CFEIMP  -   SYMBOL  DEflNITlC, 
DEFINE   TEMPLATES  GLOBALLV 

515  0OCOO2 

516  00000^ 

517  000016 

518  000020 

519  000026 

520  000030 

521  000032 

522  000034 

523  000040 

524  002054 
525 
526 
527 
528 
529 

530  000040 

531  000000 

532  000000 

533  000002 

534  000004 

535  000006 

536  000010 

537  002054 
538 
539 
540 
541 
542 

543  000010 

544  000000 

545  000000 

546  000002 

547  000004 

548  000010 

549  000012 

550  000013 
551 
552 
553 
554 
555 

556  000013 

557  000000 

558  000000 

559  000002 

560  000004 

561  000010 

562  000012 

563  000014 

564  000016 

565  000020 

566  000022 

567  C00034 

568  000036 

569  002054 
570 
571 


AND  MACRO  V05.03b  Saturday  29-Jun-85 


04:55 


.BLKW 
D$TADR::.BLKW 
0$TLIN::.BLKU 

.BLKW 


DS'STA 
DSTHSH 
DSTCT: 
DSTNET 
D$TLEN== 


BLKW 
.BLKW 
.BLKW 
.BLKW 

Ipsect 
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C.STS 

RAD50  STRING  OF  1.-15.  DECIMAL  DIGITS 

LINE  ID::  RAD50  PROCESS  NAME 

CONTROLLER,  UNIT,  TRIB  NUMBERS 
=0  — >  OFF,  >0  ~>  ON 
HASH  TABLE  SIZE  (32.-512.  ENTRIES) 
COUNTER  TIMER  VALUE  (0.-65535.) 
RAD50  NETWORK  NAME 


**** 
DEFINE  THE  OUTGOING  CHANNEL  DEFINITION  BLOCK 

.ASECT 

.=0 

.BLKW   1 

.BLKW  1 
C$HL0::.8LKW  1 
C$HHI::.BLKW  1 
C$HLEN==. 

.PSECT 

DEFINE  THE  CUG  PARAMETER  BLOCK 


C.LNK 

C.STS 

LOW  END  OF  RANGE 

HIGH  END  OF  RANGE 


CSUNAM 
CSUCUG 
CSUFLG 
CSULEN 


.ASECT 

.=0 

.BLK1-' 

.BLK 
:.BLKW 
:.BLKW 
i.BLKB 


C.LNK 
C.STS 
CUG  NAME 
GROUP  NUMBER 
FLAGS  BYTE 


DEFINE  IHE  SVC  PARAMETER  BLOCK 


.ASECT 
.=0 
.BLKW 
.BLKW 
:.BLKW 
:.BLKW 
:.BLKW 
•.BLKW 
:.BLKW 
:.BLKW 
.BLKW 
.BLKW 


SSVNAM 
SSVPSZ 

ssvwsr 

SSVrLL- 
SSVRCL 
SSVTIM 
SSVDTE 
SSVOWN 
S$VLEN==. 


C.LNK 

C.STS 

NAME  (XX. YY  OF  DLM-XX.YY) 

PACKET  SIZE 

WINDOW  SIZE 

FLAGS 

MAXIMU"  RECALLS 

RECALL  TIMER 

RAD50  OF  DTE  ADDRESS 

RAD50  OWNER  OF  SVC 


.PSECT 


.1MB  -   cvMRni    nFFiwiTrnw";   hmd  MArRn   wn5_n3h   Ssturriav   29-Jun-85 


04:55 
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DEFINE  TEMPLATES  GL  BALLY 


1150 

040000 

1151 

02l;000 

1152 

010000 

1153 

1154 

1155 

1156 

000400 

1157 

1158 

000400 

1159 

001000 

1160 

1161 

000400 

1162 

1163 

000' 00 

1164 

1165 

000400 

1166 

001000 

1167 

002000 

1168 

1169 

000001 

1170 

1171 

000400 

1172 

1173 

000400 

117A 

001000 

1175 

002000 

1176 

004000 

1177 

1178 

000400 

1179 

001000 

1180 

1181 

000400 

1182 

001000 

1183 

1184 

000400 

1135 

1186 

000400 

1187 

001000 

1188 

002000 

1189 

004000 

1190 

010000 

1191 

1192 

000400 

1193 

001000 

1194 

002000 

1195 

1196 

000400 

1197 

001000 

1198 

002000 

1  i  99 

004000 

1200 

1201 

000400 

120? 

CS.UNI 
CS.TRB 
CS.FLG 

r  = 

40000 
20000 
10000      ; 

TEMPI  ATE  SPECIFIC  STATUS  FLAGS 

CS.TOP 

.^ 

400 

CS.TI-il 
CS.TLO 

=  = 

400 
1000 

CS.NET 

== 

400 

CH$HI 

=  = 

400        ; 

PVSOWN 
PVSPSZ 
PVSWSZ 

=  = 

400 
1000 
2000 

CUSBIL 

=  = 

1 

CS.TSK 

=  = 

400 

CS.NUM 
CS.SHI 
CS.SLO 
DASCUG 

=: 

400 
1000 
2000 
4000 

CS.MSK 
CS.VAL 

== 

400 
1000        ; 

NOSEXA 
NOSHOA 

== 

400 
1000 

RESARE 

== 

400 

SLSCTM 
SLSTVP 
SLSHTM 
SLSRPR 
SLSBRA 

== 

400        ; 

1000 

2000 

4000 

10000 

SVSPSZ 
SVSUSZ 
SVSDTE 

_-- 

400 
1000 
2000 

UNSSCS 
UNSCST 
UNSDPR 
UNSPCH 

i: 

400 
1000 
2000 
4000 

STSHTM 

=  r 

400 

=1  IF  UNIT  SPECIFIED  IN  LINE  ID 
=1  IF  TRIB  SPECIFIED  IN  LINE  ID 
=1  IF  FLAGS  SPECIFIED 


=1  IF  TOP  DOWN  LOADING  (PARSDF) 

=1  IF  TRANSPORT  HI  SPECIFIED  (PSNSDF) 
=1  IF  TRANSPORT  LO  SPECIFIED  (PSNSDF) 

=1  IF  NETWORK  NAME  SPECIFIED  (DTESDF) 

=1  IF  HIGH  CHANNEL  SPECIFIED  (CHNSDF) 

=1  IF  PVC  OWNER  PROCESS  SPECIFIED  (PVCSOF) 
=1  IF  PVC  MAX  BLOCK  SIZE  SPECIFIED  (PVCSDF) 
=1  IF  PVC  WINDOW  SIZE  SPECIFIED  (PVCSDF) 

FLAG  BIT  IN  CSUFLG  FOR  BILATERAL  GROUP 

=1  IF  DESTINATION  TASKNAME  SPECIFIED  (DSTSDF) 

=1  IF  DFSriNATION  DTE  ADDR  SPECIFIED  (DSASDF) 

=1  IF  HIGH  SUBADDRESS  RANGE  SPECIFIED  (DSASDF) 

=1  IF  LOW  SUBADDRESS  RANGE  SPECIFIED  (DSASDF) 

=1  IF  CLOSED  USER  GROUP  SPECIFIED  (DSASDF) 

=  1  IF  DESTINAHON  CALL  MASK  SPECIFIED  (DSCSDF) 
=1  IF  DESTINATION  CALL  VALUE  SPECIFIED  (DSCSDF) 

=1  IF  AREA  SPECIFIED  IN  EXEC  ADDRESS  (NODSDF) 
=1  IF  AREA  SPECIFIED  IN  HOST  ADDRESS  (NODSDF) 

=1  IF  AREA  SPECIFIED  (REMSDF) 

=1  IF  COUNTER  TIMER  SPECIFIED  (SLTSDF) 

=1  I-  TYPE  SPECIFIED  (SLTSDF) 

=1  IF  HELLO  TIMER  SPECIFIED  (SLTSDF) 

=1  IF  ROUTER  PRIORITY  SPECIFIED  (SLTSDF) 

=1  IF  BROADCAST  ROUTERS  SPECIFIED  (SLTSDF) 

=1  IF  SVC  PACKET  SIZE  SPECIFIED  (SVCSDF) 
=1  IF  SVC  WINDOW  SIZE  SPECIFIED  (SVCSDF) 
=1  IF  DTE  NUMBER  SPECIFIED  (SVCSDF) 

SECONDARY  CSR  SPECIFIED  (UNTSDF) 

CIRCUIT  COST  SPECIFIED  (UNTSDF) 

DEAD  POLLING  RATION  SPECIFIED  (UNTSDF) 

EMULATOR  CHARACTERISTICS  SPECIFIED  (UNTSDF) 

HELLO  TIMER  SPECIFIED  (STASDF) 
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CFEIMP  CREATED  BY     MACRO     ON  29-JUM-85   AT   04:56 

SYMBOL    CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

PSVOWN 

000020 

G 

#9-502 

P$VP5Z 

OOOOU 

G 

#9-500 

PSVSTA 

000025 

G 

#9-504 

PtVWSZ 

000016 

G 

#9-501 

O.IOAE 

=  000012 

G 

6-95 

Q.IOFN 

=  000002 

G 

6-95               t 

-95 

Q.IOPL 

=  OOOO^A 

G 

6-95 

Q.IOSB 

=  000010 

G 

6-95               6-95 

RF^ARE 

=  000400 

G 

#12-1184 

RNi.DCT 

^  0001 00 

G 

#11-902 

1-914 

RN.DIA 

=  020000 

G 

#11-909 

1-915 

RN.OMP 

=  040000 

G 

#11-910 

1-915 

RN.DPA 

=  000040 

G 

#11-901 

1-914 

RN.HAR 

=  00040^^ 

G 

#11-904 

1-914 

RN.HOS 

=  000004 

G 

#11-898 

1-914 

RN.LOD 

=  010000 

G 

#11-908 

1-915 

RN.NAH 

=  000002 

G 

#11-897 

RN.SCI 

=  000200 

G 

#11-903 

1-914 

RN.SDV 

=  000010 

G 

#11-899 

1-914 

RN.SLO 

=  002000 

G 

#11-906 

1-915 

RN.SNV 

=  000020 

G 

#11-900 

1-914 

RN.SPA 

=  001000 

G 

«1 1-905 

1-914 

RN.TLO 

=  004000 

G 

1-907 

1-915 

RN.XXX 

=  077774 

G 

^11-915 

RSDADR 

000010 

G 

#9-661 

RSDLEN 

=  000022 

G 

#9-6i2 

RSONAM 

000004 

G 

#9-660 

R.VAR 

r     ****** 

GX 

6-105 

5-111 

SF.ENA 

=  000100 

G 

#12-1083 

SF.MFL 

^  000040 

G 

#12-1084 

SF.SER 

=  000010 

6 

#12-1086 

SF.SVC 

=  000020 

G 

#12-1085 

SL$BRA 

=  010000 

G 

#12-1190 

3L$CTM 

=   000400 

G 

#12-1186 

SLSHTM 

=  002000 

G 

#12-1188 

SLSRPf! 

=   004000 

G 

#12-1189 

SLSTVP 

=   00.000 

G 

#12-1187 

SP.ACC 

=  000001 

G 

#11-1021 

SP.CIR 

=  000004 

G 

#11-1023 

SP.DAT 

=  020000 

G 

#11-1034 

SP.KNA 

=   000002 

G 

#11-1022 

SP.KPU 

=  001000 

G 

#11-103C 

SP.MLU 

=  002000 

G 

#11-1031 

SP.MOD 

=  000040 

G 

#11-1026 

SP.PLU 

=   000020 

G 

#11-1025 

SP.PSW 

=  000200 

G 

#11-1028 

SP.51D 

=  010000 

G 

#11-1033 

sp.slu 

-•  000010 

G 

#11-1024 

SP.SPU 

=  000400 

G 

#11-1029 

SP.UID 

=  000100 

G 

#11-1027 

SP.XID 

=  004000 

J 

#11-1052 

stshtm 

=  00040C 

G 

#12-1201 

B     3 
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7-127 


7-128 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85  000000 
000003 
000006 
0O0O11 
000014 
000017 
000022 

86 


LOCAL  MACROS 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
$PRI^JT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  OIF  <T£XT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

**** 

LIBRARY  MACRO  CALLS 
**** 

.MCALL  GCL$, CLOSES, JELcTS.F INI f$ 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


015 
156 
162 
151 
156 
145 
000 


012 
164 
040 
154 
141 
072 


105 
145 
146 
145 
^55 
040 


LOCAL  DATA 
+  *** 

.ENABL 
PRMPT:   .ASCIZ 


.EVEN 


LC 

<15><12>/Enter  filename:  / 
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■»F1LE*«1D'*CFE0PN 


CCCCCCCC   FF 

FFFFFFFF 

EEEEEEEEEE 

000000 

PPPPPPPP 

m          m 

CCCCCCCC   F 

FFFFFFFF 

EEEEEEEEEE 

OOCOOO 

PPPPPPPP 

m          NN 

CC          F 

EE 

on 

DO 

pp    pp 

NN      NM 

Ct           F 

EE 

00 

00 

PP    pp 

NN      NN 

CC          F 

EE 

00 

00 

pp    pp 

NNNN    f'N 

CC            r 

EE 

no 

00 

pp    pp 

NNNN    NN 

CC          F 

FfFFFF 

EEEEEEEE 

on 

00 

PPPPPPPP 

NN  NN  NN 

CC           F 

FFFFFF 

EEEEEFEE 

on 

00 

PPPPPPPP 

NN  NN  NN 

CC          F 

EE 

00 

00 

pp 

NN    NNNN 

CC          F 

EE 

no 

00 

pp 

NN    NN.MK 

CC          F 

EE 

on 

00 

pp 

NN      NN 

CC           F 

EE 

00 

00 

pp 

NN      NN 

CCCCCCCC    F 

F 

EEEEEEEEEE 

000000 

pp 

NN      NN 

CCCCCCCC    F 

F 

EEEEEEEEEE 

C30000 

pp 

NN     NN 

ssssssss 

TTTTTTTTTT 

SSSSS5SS 

TTTTTTTTTT 

ss 

S5 

SS 

SS 

SSSS5S 

3SSSSS 

SS 

SS 

SS 

1  i 

SS 

LLLLLLLLLL 

SSSSSSSS 

L  .LLLI.LLLL 

SSSSSSSS 

FFOPKl    -    FII  F     I/n    ROUTINES 
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CFEPRG  - 
MACRO  DE 

55 

54 
55 
S6 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
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FINITIONS 

.SBTTL  M'VCRO  DEFINITIONS 

f  ** 
GLOBAL  MACROS 


;  LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT,RO 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  "AVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


000000 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.*ICALL  FlTDFS,SAVRG,RESRG 

FLTDFS 


;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 

;  DEFINE  FILTER  BLOCK  SYMBOLS 
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CFEPRG     CREATE")  BV  MAC  J  ON  29-JdM-85  AT  04:57 
SYMBOL  CROSS  REFERENCE 


B  7 

PAGE  2 

CREF   04.00 


SYMBOL  VALUE 


REFERENCES 


PURLOG 

PUROBJ 

P$VCT 

PtVLEN 

PSVNAM 

PSVOWN 

QREM 

SNKTBL 

SSLCTT 

TEMP 

WC.EVE 

WC.lOO 

WC.OBJ 

XSLLNX 

SBYTMN 

SBYTXT 

SCFERR 

SCFPRG 

SCIRID 

SCLASS 

SCOMP 

SEVENT 

SFLAGS 

SKNEVT 

SOPRND 

$PUREM 

SPUSNA 

tPUXAC 

SPUXPR 

SPUXSV 

$PUXS9 

SRLBF 

STMLST 

STNUM 

SWILD 

SXXAVL 

.ri^SLT 


000360 
000226 


****** 
001 24A 
000202 

****** 

000212 

****** 
****** 
****** 
****** 

****** 
****** 
****** 

000214 
* ***** 
****** 
****** 
****** 
****** 

*  +  V*** 

****** 
****** 

*  ***** 
****** 
****** 
****** 


R 

5-108 

R 

5-1C6 

GX 

.11-386 

GX 

11-549 

GX 

11-350 

GX 

11-368 

R 

8-196 

R 

#5-120 

GX 

*10-314 

R 

#5-126 

GX 

9-235 

GX 

9-2A4 

GX 

8-189 

GX 

11-376 

6X 

»8-200 

GX 

•8-201 

GX 

8-212 

RG 

#7-161 

GX 

11-356 

GX 

«9-236 

GX 

7-162 

GX 

*9-238 

GX 

11-538 

GX 

9-254 

GX 

9-231 

GX 

5-102 

GX 

5-115 

GX 

5-113 

GX 

5-1  il 

GX 

5-112 

GX 

5-114 

GX 

8-'99 

GX 

8-1^9 

GX 

8-191 

GX 

8-189 

GX 

S-198 

GX 

10-312 

#9-231 
#8-178 


11-384 

9-289 

9-255 

»9-234 
9-271 
9-295 
8-206 
11-577 
*9-293 
♦9-294 
11-597 

11-558 
9-265 
11-535 
♦  9-259 

li-340 

9-247 


9-292 
9-259 

8-206 
9-291 


#12-417 
9-255 


♦11-576 

♦11-577 

11-399 


11-355 
♦9-240 
11-566 

9-250 


11-374 
10-311 

♦9-233 

11-375 


♦9-242 


♦  9-241  ♦9-274  ♦9-275 

9-297  11-361 


11-345         ♦11-572         ^12-420 
9-244  9-271  9-295 


♦9-276 


♦9-277 


9-278 


rDCiTcn  Dv      Muron     fiM  ?Q-iiiw-SS    AT    04:5" 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
PIJRGE  COMPOMENTS 

A33 
43A 
^35 

436  OOOOOC 

437  000000 
458  000000 

439  000000 

440  000000 

441  000000 

442  000000 

443  000000 

444  000000 

445  000000 

446  000000 

447  000000 

448  000000 

449  000000 

450  000000 

451  000000 
452 

453  000000 
454 
455 
456 

457  000000 

458  000000 

459  000000 
460 
4b1 
462 

463  000000 
464 
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.SBTTL   PURGE  COMPONENTS 


465 

000000 

466 

000000 

467 

000000 

468 

000000 

469 

000000 

^70 

000000 

471 

000000 

47<; 

000000 

473 

000000 

474 

000000 

4  75 

000000 

476 

000000 

477 

000000 

473 

000000 

479 

000000 

480 

000000 

481 

000000 

482 

483 

484 

485 

000000 

486 

000000 

487 

^88 

;  PURGE 

COMPONENTS 

STATES 

PURGE, 

gPSPUR 

TRANS 

1KNC8J, 

PUROPT 

,,CO.KNO,SCOMP 

TRANS 

lOBJlD, 

PUROPT 

,,C0.08J,SC0MP 

TRANS 

IKNNOD, 

PURNOD 

,,CO.KNN,SCOMP 

TRANS 

'NODID, 

PURNOD 

,,CO.NOD,SCOMP 

TRANS 

ILOGID, 

LOGOPT 

,,CO.LOG,SCOMP 

TRANS 

IKNLOG, 

LOGOPT 

,,CO.KLG,SCOMP 

TPANS 

.'LINID, 

PURLIN 

,,CO.LIN,SCOMP 

TKANS 

IKNLIN, 

PURLIN 

,,CO.KNL,SCOMP 

TRAMS 

IKNCIR, 

PURCIR 

,,CO.KNC,SCOMP 

TRANS 

ICIRID, 

PURCIR 

,,CO.CIR,SCOMP 

TRANS 

IMODXPR 

,PMXPRA 

,,CO.MXP,SCOMi' 

TRANS 

IPMXPRX 

,SEXIT 

,,ro.MXP,SCOMP 

TRANS 

IMODXSV 

,PMXSRA 

,,CO.MXS,$COMP 

TRANS 

IMODXAC 

,PMXACA 

,,CO.MAC,SCOMP 

TRANS 

IM0DX29 

.PMXSRA 

,,C0.MX9,SC0MP 

TRANS 

IPMXSRV 

,SEXIT 

,,CO.MXS,$COMP 

TRANS 

IMODSPR 

,SEX1T,SSNPUR,C0.MSP,SC0MP  ;  PURGE  MOD  SNA-PROTOCOL 

•  PURGE 

OPTIONS 

STATES 
TRANS 
TRANS 

PUROPT 

&K$ALL, 

SLAMDA, 

EXIT 
EXIT 

■  PURGE 

NODE  OPTIONS 

' 

STATES 

PURNOD, 

&PSPUOP 

TRANS 

SEOS, 

EXIT,, 

RN.NAM,  SOPRND 

TRANS 

8KSALL, 

EXIT,, 

RN.NAM,  SOPRND 

TRANS 

SLAMDA 

STATES 

PNOPT 

TRANS 

:PNHOS, 

PNOPT,, 

RN.HOS, 

SOPRND 

;Host  node  address 

TRANS 

IPNSDV, 

PNOPT,, 

RN.SDV, 

SOPRND 

;Ser;yice  dewice 

TRANS 

IPNSNV, 

PNOPT,, 

RN.SNV, 

SOPRND 

;Seruice  node  version 

TRANS 

IPNDPA, 

PNOPT,, 

RN.DPA, 

SOPRND 

;Dump  address 

TRANS 

IPNDCT, 

PNOPT,, 

RN.DCT, 

SOPRND 

;Dump  count 

TRANS 

IPNSCI, 

PNOPT,, 

RN.SCI, 

SCPRND 

.-ServiLe  c  ircuit 

TRANS 

1 PNHAR , 

PNOPT,, 

RN.HAR, 

SOPRND 

.-Hardwf.re  address 

TRANS 

IPNSPA, 

PNOPT,, 

RN.SPA, 

SOPRND 

;Seruice  password 

TRANS 

IPNSLO, 

PNOPT,, 

RN.SLO, 

SOPRND 

;  Secondary  Loader  fiie 

TRANS 

IPNTLO, 

PNOPT,, 

RN.TLO, 

SOPRND 

;Tertiary  loader  file 
;Load  file 

TRANS 

IPNLOD, 

PNOPT,, 

RN.LOD, 

SCPRND 

TRANS 

IPNDIA, 

PNOPT,, 

RN.DIA, 

SOPRND 

;Di agnostics  f'le 

TRANS 

IPNDMP, 

PNOPT,, 

RN.DMP, 

SOPRND 

.-Dump  file 

TRANS 

SEOS, 

SEXIT, 

.RNCHK 

;  Purge 

Host  no 

de  address 

STATES  PNHOS 
TRANS  &KSHOS,  SEXIT 
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CFFPRS  -   STATE   TABLES   TO  PARSE     MACRO  V05.03b   Tuesday  02-Jul-85   14:08     Page  8-1 
SUB-EXPRESSIONS  FOR   PROCESS    ID 

1138  000000  TRANS     &nKNO 

1139 

1140  000000  STATES      ,8PiPEN 

1U1    000000  TRANS     4k$PR0S,SEXIT,  ,WC.PR0,$WILD 

1142 

1U3  ;    LOOK   FOR   "PROCESS   PROCESS-ID 

1145  000000  '                STATES     PROID 

1146  000000  TRANS     SKSPRO 
1147 

1148  000000  STATES      ,&PSPID 

1149  000000  TRANS     iRAD50,SEXl T ,  .PRNAM 
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CFEPRS  -   STATE    TABLES    TO   PARSE 
OEflNE   EXECUTOR   COMMAND 

1818  000000 
181''  000000 
13^0  000000 

1821  000000 

1822  000000 
1823 
182A 
1825 

1826  000000 

1827  000000 

1828  000000 

1829  000000 

1830  000000 

1831  000000 

1832  000000 

1833  000000 
183'  000000 

1835  000000 

1836  000000 
1837 
1838 
1839 
18A0 
1841 

18A2  000000 
1843  000000 
18AA  000000 

1845  000000 

1846  OC.'JOO 
18^.7  000000 

1848  000000 

1849  000000 

1850  000000 

1851  000000 

1852  000000 

1853  000000 
1854 
^855 
1856 
1857 

1858  000000 

1859  000000 

1860  000000 

1861  000000 

1862  000000 

1863  000000 

1864  000000 

1865  000000 

1866  000000 

1867  000000 

1868  000000 
1869 
1870 
1871 

1872  000000 

1873  000000 

1874  000000 
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STATES 
TRANS 

STATES 
TRANS 
TRANS 


AC0S2 
iKSCOS 
,&PSACOS 
SDNUMB,  SEXIT, 
SLAMDA,  SFAIL 


.EACOS 


Executor  Broadcast  Routing  [Timer] 


STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 


E8RT 
US8R0 

inwA. 

&KSROU 

EBRT2, 

SKSTIM, 

SLAMDA 

EBRT3, 

SDNUMB, 

SLAMDA, 


&PSBR00 
EBRT3 

8PSR0U 
EBRT3 

&PSBRT 
SEXIT, 
SFAIL 


.EXBRT 


Executor  [MaximumJ  [Broadcast]  Nonrouters 


STATES 

EBEA 

TRANS 

SKSMAX, 

EBEAl 

TRANS 

8KS8R0, 

EBEA2 

TRANS 

8KSN0NR 

,EBEA3 

STATES 

EBEAl, 

SPSMrtX 

TRANS 

SKSBRO, 

EBEA2 

TRANS 

SLAMDA 

STATES 

E8EA2 

TRANS 

SKSNONR 

STATES 

EBEA3, 

SPSBEA 

TRANS 

SDNUMB, 

SEXIT, 

TRANS 

SLAMDA, 

SFAIL 

.EXBEA 


Executor  Seg"ient  [Buffer]  [Size] 


STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 


ESEG 
8<SSEG 

&KSBUF, 

SLAMDA 

ESEG2 

8KSSIZ, 

SLAMDA 

ESEG3, 

SDNUMB, 

SLAMDA, 


ES'^G2 

ESEG3 

&PSSEG 
SEXIT, 
SFAIL 


.EXSEG 


EXECUTOR  INACTIVITY  [TIMER] 


STATES 

TRANS 

STATES 


EINAC 
SKSiNA 
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CFEPR5  -  STATE  TABLES  TO  PARSE 
UTILITY  SUBEXPRESSIONS 

2^27 
2A28 
2429 
2450 

2431  000000 

2432  000000 

2433  000000 

2434  000000 

2435  000000 

2436  000000 

2437  000000 

2438  000000 

2439  000000 

2440  000000 

2441  000000 
2442 

2443 
2444 

2445  000000 

2446  000000 

2447  000000 

2448  000000 

2449  000000 

2450  000000 
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.S8TTL  UTILITY  SUBEXPRESSIONS 
DESTINATION  NUMBER  (EXTENDED  DTE  ADDRESS  INCLUDING  "•") 


2451 
2452 


000000 

000000 

2453  000000 
2454 
2455 
2456 

2457  000000 

2458  000000 

2459  000000 

2460  000000 
246' 

2462 
2463 

2464  000000 

2465  000000 

2466  000000 

2467  000000 
2468 

2469 
2470 

2471  000000 

2472  000000 

2473  000000 


2474 
2475 


000000 
000000 

2476  000000 

2477 

24  78 

24  79 

2480  000000 

2481  000000 

2482  000000 

2483  000000 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 

DTE  ADDRESS 


DNUM 
&KSNUM 

8PSDTE 
IDNUMO,  SEXIT, 
DNUMO 


STATES 
TRANS 

STATES 
TRANS 


OBJECT  ID 


STATES 
TRANS 

STATES 
TRANS 

CALL  MASK 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

CALL  VALUE 

STATES 
TRANS 

STATES 
TRANS 


.CIDTE 


SDIGIT, 

DNUM1 
SDIGIT, 
<'  *>, 
SLAMDA, 


DNUM1 


DNUM1 
DNUM1 
SEXIT 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

OBJECT  NUMBER 


DTE 

&KSDTE 

DTENUM, 

:dteo, 

DTEO 

SDIGIT, 

DTE1 

SDIGIT, 

SLAMDA, 


SPSDTE 
SEXIT, 

.SBL.MAN 


.CIDTE 


DTE1 

SEXIT, SBL.AUT 


OBJN 
8KS08J 

&PS08J 
SDNUM8,  SEXIT, 


OBJ  I 
&KS0BJ 

&PS08J 
SRAD50,  lEXIT, 


.MOOBN 


.MOOBJ 


CLM 
8KSCALL 

&PSCALL 
&KSMSK 

SPSCLM 
iHEXSTR, SEXIT,   .MOCLM 


CLV 
SKSCALL 

^KSVAL 


&PSCALL 
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CfEPRS 

CREATED  BY      MACRO     ON  2-JUL-85   AT    U 
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MACRO  CROSS 

REFERENCE 

CREF       04.00 

MACRO  NAME 

REFERENCES 

#8-1093 

#8-1094 

#8-1099 

#8-1100 

#8-1101 

#8-1106 

#8-1109 

#8-1110 

#8-1115 

#8-1118 

#8-1121 

#8-1126 

#8-1129 

#8-1132 

#8-1138 

#8-1141 

#8-1146 

#8-1149 

#9-1156 

#9-1157 

#9-1160 

#9-1163 

#9-1164 

#9-1169 

#9-1170 

#9-1171 

#9-1172 

#9-1173 

#9-1174 

#9-1175 

#9-1176 

#9-1177 

#9-1178 

#9-1179 

#9-1180 

#9-1181 

#9-1182 

#9-1183 

#9-1184 

#9-1185 

#9-1190 

#9-1192 

#9-1193 

#9-1195 

#9-1196 

#9-1198 

#9-1203 

#9-1205 

#9-1206 

#9-1208 

#9-12U 

#9-1216 

#9-1217 

#9-1218 

#9-1224 

#9-1227 

#9-1228 

#9--1253 

#9-1236 

#9-1241 

#9-1244 

#9-1250 

#9-1253 

(,■9-1256 

#9-1261 

#9-1263 

#9-1268 

#9-1270 

#9-1272 

#9-1277 

#9-1279 

#9-1281 

#9-1286 

#9-1280 

#9-1290 

#9-1295 

#9-1297 

#9-1299 

#9-1304 

#9-1306 

#9-1308 

#9-1313 

#9-1315 

#9-1316 

#9-1317 

#9-1323 

#9-1324 

#9-1327 

#9-1330 

#9-1331 

#9-1336 

#9-1337 

#9-1338 

#9-1339 

#9-1340 

#9-1341 

#9-1342 

#9-1343 

#9-1344 

#9-1345 

#9-1346 

#9-1347 

#9-1348 

#9-1349 

#9-1350 

#9-1355 

#9-1358 

#9-1359 

#9-1360 

#9-1365 

#9-1368 

#9-1373 

#9-1376 

#9-1381 

#9-1384 

#9-1385 

#9-1390 

#9-1393 

#9-1394 

#9-1399 

#9-1401 

#9-1406 

#9-1407 

#9-1410 

#9-1413 

#9-1418 

#9-1419 

#9-1422 

#9-1425 

#9-1430 

#9-1433 

#9-1436 

#9-1437 

#9-1440 

#9-1441 

#9-1442 

#9-1443 

#9-1444 

#9-1445 

#9-1446 

#9-1447 

#9-1448 

#9-1449 

#9-1450 

#9-1451 

#9-1452 

#9-1453 

#9-1454 

#9-1455 

#9-1460 

#9-1463 

#9-1466 

#9-1471 

#9-1473 

#9-1475 

#9-1480 

#9-1482 

#9-1484 

#9-1489 

#9-1491 

#9-1493 

#9-1498 

#9-1500 

#9-1502 

#9-1507 

#9-1509 

#9-1511 

#9-1518 

#9-1521 

#9-1522 

#9-1527 

#9-1530 

#9-1531 

#9-1537 

#9-1543 

#9-1546 

#9-1549 

#9-1550 

#9-1553 

#9-1554 

#9-1557 

#9-1558 

#9-1561 

#9-1562 

#9-1565 

#9-1567 

#9-1570 

#9-1571 

#9-1577 

#9-1580 

#9-1585 

#9-1588 

#10-1595 

#10-1598 

#10-1601 

#10-1602 

#10-1607 

#10-1608 

#10-1609 

#10-1610 

#10-1611 

#10-1612 

#10-1613 

#10-1614 

#10-1615 

#10-1616 

#10-1617 

#10-1618 

#10-1619 

#10-1620 

#10-1621 

#10-1622 

#10-162i 

#10-1624 

#10-1625 

#10-1626 

#10-1627 

#10-1628 

#10-1633 

#10-1636 

#10-1641 

#10-1644 

#10-1649 

#10-1652 

#10-1654 

#10-1655 

#10-1656 

#10-1662 

#10-1665 

#10-1668 

#10-1673 

#10-1674 

#10-1677 

#10-1678 

#10-1683 

#10-1686 

#10-1687 

#10-1688 

#10-1693 

#10-1696 

#10-1697 

#10-1698 

#10-1701 

#10-1703 

#10-1708 

#10-1711 

#10-1712 

#10-1715 

#10-1716 

#10-1721 

#10-1724 

#10-1727 

#10-1732 

#10-1735 

#10-1738 

#10-1743 

#10-1746 

#10-1749 

#10-1754 

#10-1757 

#10-1760 

#10-1763 

#10-1768 

#10-1770 

#10-1772 

#10-1777 

#10-1779 

#10-1781 

#10-1782 

#10-1784 

#10-1790 

#10-1792 

#10-1794 

#10-1795 

#10-1800 

#10-1802 

#10-1803 

#10-1805 

#10-1807 

#10-1808 

#10-1814 

#10-1816 

#10-1817 

#10-1819 

#10-1821 

#10-1822 

#10-1827 

#10-1829 

#10-1830 

#10-1832 

#10-1833 

#10-1835 

#10-1836 

#10-1843 

#10-1844 

#10-1845 

#10-1847 

#10-1848 

#10-1850 

#10-1852 

#10-18^3 

#10-1859 

#10-1861 

#10-1862 

#10-1864 

#10-1865 

10-1867 

#10-1868 

#10-1873 

#10-1875 

#10-1b/6 

#10-1878 

#10-1879 

#10-1884 

#10-1886 

#10-1887 

-  10-1889 

#10-1890 

#10-1895 

#10-1897 

#10-1898 

#10-1900 

#10-1901 

#10-1906 

#10-1908 

#10-1909 

#10-1911 

#10-1912 

#11-1919 

#11-1922 

#11-1925 

#11-1926 

#11-1931 

#11-1932 

#11-1933 

#11-1934 

#11-1939 

#11-1942 

#11-1947 

#11-1950 

#11-1951 

#11-1956 

#11-1959 

#11-1960 

#11-1965 

#11-1968 

#11-1969 

#11-1970 

#11-1975 

#11-1978 

#11-1981 

#11-1984 

#12-1991 

#12-1994 

#12-1997 

#12-1998 

#12-2003 

#12-2004 

#12-2005 

#12-2006 

#12-2007 

#12-2008 

#12-2009 

#12-2015 

#12-2018 

#12-2019 

#12-2020 

#12-2025 

#12-2028 

#12-2033 

#12-2036 

#12-2041 

#12-2044 

#12-2045 

#12-2048 

#12-2049 

#12-2052 

#12-2057 

#12-2058 

#12-2061 

#12-2064 

#12-2065 

#12-2070 

#12-2073 

#12-2076 

#12-2079 

#12-2084 

#12-2087 

#12-2090 

#12-2093 

#12-2098 

#12-2101 

#12-2104 

#12-2107 

#12-2112 

#12-2115 

#12-2118 

#12-2121 

#12-2126 

#12-2129 

#12-2132 

#12-2135 

#13-2142 

#13-2143 

#13-2144 

#13-2145 

#13-2146 

#13-2147 

#13-2152 

#13-2153 

#13-2155 

#13-2156 

#13-2161 

#13-2162 

#13-2164 

#13-2165 

#13-2167 

#13-2168 

#13-2173 

#13-2175 

#13-2176 

#13-2178 

#13-2179 

#13-2184 

#13-2185 

#13-2187 

#13-2188 

#13-2190 

#13-2191 

#13-2196 

#15-2197 

#13-2199 

#13-2201 

#13-2202 

#13-2204 

#13-2205 

#13-2206 

#13-2207 

#15-2208 

#13-2209 

#13-2210 

#13-2211 

#13-2216 

#13-2218 

#13-2219 

#13-2222 

#13-2223 

#13-2224 

#13-2225 

#13-2226 

#13-2227 

#13-2228 

#13-2229 

#13-2230 

#13-2231 

#13-2232 

#15-2255 

#13-2238 

#13-2239 

#13-2241 

#13-2243 

#13-2244 

#13-2247 

#13-2248 

#13-2249 

#13-2250 

#13-2251 

#13-2257 

#13-2258 

#13-2260 

#13-2262 

#13-2263 

#13-2266 

#13-2267 

#13-2268 

#13-?274 

#13-2276 

#13-2278 

#13-2283 

#13-2285 

#13-228^ 

#13-2292 

#13-2294 

#13-2296 

#13-2301 

#13-2303 

#15-2505 

#13-2310 

#13-2312 

#13-2314 

#13-2320 

#13-2322 

#13-2324 

#13-2329 

#13-2331 

#13-2333 

#13-2558 

#13-2340 

#13-2342 

#13-2347 

#13-2349 

#13-2351 

#13-2356 

#13-2358 

#13-2360 

#13-2566 

#13-2368 

#13-2370 

#13-2376 

#13-2378 

#13-2380 

#13-2385 

#13-2387 

#13-2389 

#13-2394 

#13-2396 

#15-2597 

#15-2402 

#13-24C4 

#13-2409 
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9 

10 
11 
12 
13 
U 
15 
15 
17 
18 
19 
20 
21 
22 
23 


26 
27 
28 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
i,0 
A1 
42 
43 
44 


.TITLE   CFERQB  -  DYNAMIC  BUFFER  MANAGEMENT 
.IDEigT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1982,  1983,  1985  BY 

DIGITM  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


SUBJECT  TO  CHANGE 
A  COMMITMENT  BY  I 


WITHOUT   NOTICE 
>"ITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE  IS 
AND  SHOULD  NOT  BE  CONSTRUED  AS 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  DYNAMIC  BUFFER  MANAGEMENT  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


ITS 
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CFESTB  -  STATE  TABLES  TO  READ 

B  1A 

MACRO  V05.03b  Saturday  29-Jun-85  05:13  Pa 

102 

103 

lO-i 

105 

106  000002 

107 

108 
ino 

;*I^ITIALIZt  TABLE  GENERATION 

ISTATS  TMPSTB.TMPKTB 

;  SEARCH  TABLE  FOR  DEFINITION 

111 


112 

000002 

lis 

000002 

IK 

000002 

IIS 

000002 

116 

000002 

^^7 

000002 

IIH 

000002 

11V 

000002 

120 

000002 

121 

000002 

122 

000002 

123 

000002 

124 

000002 

125 

000002 

126 

000002 

,2/' 

000002 

12H 

000002 

129 

000002 

130 

000002 

ni 

000002 

132 

000002 

13S 

000002 

134 

000002 

H5 

000002 

136 

000002 

137 

000002 

1  W 

000002 

i^y 

000002 

1A0 

000002 

141 

000002 

142 

000002 

U'; 

000002 

144 

000002 

145 

000002 

146 

000002 

14/ 

000002 

14H 

000002 

149 

150 

151 

152 

15i 

0C0002 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

irIANS 

TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
I RANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRmNS 
TRANS 
TRANS 
TRANS 
TRAN<. 
TRANi. 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 


FINAL  STATE 
STATES 


XeUFSDFX 
XLLCSDFJ! 
XDLCSDFJi 
XDDMSDfX 
XCNTSDFX 
XSLTSDFX 
5!UNTSDF% 
ZNODSDFX 
JIDECSDF!! 
XPARSDFX 
XEVTSDFX 
XLOGSSTJi 
XOBJSDFX 
XFEASDF5! 
XREMSDFJ; 
ZSERSDF)! 
)!FILSDF% 
XROUSDfZ 
XSTASDFX 
XPSNSDFX 
«X3P$DF5! 

xdtesdf;! 

JiCHNSDFX 
XPVCSDFX 

xcugsdfx 
xdstsdf;; 

zdscsdfx 
zrdtsdfx 

•/iX2PSDFX 
/(SVCSDFX 
!iX29SDFX 
5!SNA$DFX 
!!SACSDF% 
5(SADSDF'^ 
XSPUSDF!! 
XENDSDFX 
SLAMDA,S 


,$EXIT, 
,SEXIT 
,  SEXI 

,SExri 

.SEXIT 

,se\it 

,SEXIT 
.SFXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 

.';exit 

.SEXIT 
.SEXIT 
, SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
.SEXIT 
EXIT 


STMBUF 
STMLLC 
UMDLC 
STMDDM 
STMCNT 
STMSLT 
STMUNT 
STMNDD 
STMDEC 
STMPAR 
STMEVT 
STMLOG 
STMOBJ 
STMFEA 
STMREM 
STMSER 
STMFIL 
STMROU 
STMSTA 
STMPSN 
STMX3P 
STMDTE 
STMCHN 
STMPVC 
STMCUG 
STMDST 
STMDSA 
STMDSC 
STMRDT 
STMX2P 
STMSVC 
STMX29 
STMSNA 
STMSAC 
STMSAD 
STMSPU 
.CM.EXI.SCMAND 


C  K. 
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CFESUB   -   COMMON   SUBROUTINES 
tPRINT    -   PRINT   A5C1Z    STRING 


147 
1A8 
U9 
150 
151 
152 
155 
15A 
155 
156 
157 
158 
159 

160  000000 

161  000000     012767 

162  000006     010U6 

163  003010     012701 
16A   OOOOU 

165  OOOOU     010061 

166  000020     105720 

167  000022     OOU03 

168  00002A      100375 

169  000026     005061 

170  000032     166100 

171  000036     005300 

172  OOOOAO     010061 

173  000044 

174  000050  012761 

175  000056  012601 

176  000060  000207 


B  15 
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.SBTTL   SPRINT  -  PRINT  ASCIZ  STRING 

*»♦  -  SPRINT  -  PRINT  ASCIZ  STRING 

INPUT: 

RO  =  ADDRESS  OF  ASCIZ  STRING 


OUTPUT: 

STRING  PRINTED 

RO  MODIFIED 


OOOOOOG  OOOOOOC 
OOOOOOG 


SPRINT: 


OOOOOOG 


PRINT: 
10$: 


000004G 
OOOOOOG 

000002G 

000040  000004G 


20$: 


MOV  *10.WVB,$T1DPB+Q.I0FN 

MOV  R1,-(SP) 

MOV  *STIDPB,R1 

MOV  RO.Q.IOPKRD 

TSTB  (R0)+ 

BEQ  20$ 

BPL  10$ 

CLR  Q.I0PLt4(R1) 

SUB  Q.IOPL(R1),RO 

DEC  RO 

MOV  R0,Q.IOPL<-2(R1) 

n  I RS  R 1 

MOV  *40,0.IOPLt4(R1) 

MOV  (SP)+,R1 

RETURN 


SET  FUNCTION  CODE 
SAVE  REGISTER 
POINT  TO  DPB 

STORE  ADDRESS  OF  STR'NG 

AT  END  OF  STRING  ? 

IF  EQ,  YES 

IF  PL,  NO 

IF  MI,  NO  CARRAIGE  CONTROL 

CALCULATE  STRING  LENGTH 

DON'T  COUNT  NULL  BYTE 

STORE  STRING  LENGRH 

PRINT  STRING 

RESTORE  CARRAIGE  CONTROL 

RESTORE  REGISTER 


C-ESUB  -  COMMON  SUBROUTINES 


C  15 
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CFESUB  -  rOMMON  SUBROUTINES     MACRO  V05.05b  Saturday  29-Jun-85 
tUPBLK.  -  UPDATE  POOL  BLOCK  ALLOCATION 


V:^^ 


Page  16-1 


61?  00U20 

618  00U22 

619  001A2A 

620  00U30 

621  00K32 

622  0OK3A 

623  OOIAAO 
62A  001A46 

625  00K50 

626  0OK52 
627 

628 


100001 
005000 

BPL 

CLP 

010U67 

OOOOOOG 

AA$: 

MO^ 

000A06 

BR 

060^01 

A5$: 

ADD 

OIC  62 

OOOOIOG 

MOV 

052,^62 

OOOOOOG 

OOOOOOG 

BIS 

005727 

A7$: 

TST 

000261 

50$: 

SEC 

000207 

RETURN 

RO.SPBLK 

R0,R1 

Rl,C.PRMtlO(R2)  , 
#CS.M0D,C.STS(R2) 
(PC)t 


IF  PL,  CETA8  VALUE  IS  BIG  ENOUGH 

ELSE  BUMP  IT  UP 

SAVE  IT 

RETURN  SUCCESS 

ADD  FUDGE  FACTOR  INTO  CALCULATED  SIZE 

UPDATE  ALLOCATION  IN  PARTITION  TEMPLATE 

;  INDICATE  THAT  THE  PARSDF  HAS  BEEN  MODIFIED 

RETURN  SUCCESS 

RETURN  FAILURE 


000001 


.END 


C  16 
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Ci^IMP  -  SYMBOL  DEFINITIONS  AND  MACRO  V05.03b  Saturday  29-Jun-85  04:55 

Define  templates  globally 


Page  9-4 


572 

573 

57A 

575  000056 

576 

577  000000 

578  000002 

579  000004 

580  000006 
581 

582  002054 

583 

584 

585 

586 

587 

58P  000010 

589 

590  000000 

591  000002 

592  000004 
■"53  000006 
:,  ■■  000010 
5^2  000011 

596  000012 

597  000013 

598  OCOOH 

599  000015 

600  000016 

601  000017 

602  000020 
603 

604   002054 

605 

606 

607 

608 

609 

610  000021 

611 

612  000000 

613  000002 

614  000004 

615  000006 

616  000012 

617  0000'3 

618  000014 
619 

620  002054 

621 

622 

623 

624 

625  000020 

626 

627  000000 

628  000002 


000000 


0000:0 


000000 


000021 


000000 


000020 


000000 


DEFINE  THE  X.29  PARAMETER  BLOCK 


.ASECT 
.=0 
.BLKW 
.BLKW 
X$9MXC::.BLKU 


X$9CT: 
X$9LEN= 


.BLKW 

!psect 


C.LNK 

C.STS 

MAXIMUM  CIRCUITS 

COUNTER  TIMER 


DEFINE  THE  X.25  LEVEL  3  PARAMETER  BLOCK 


X$3DFP 

X$3MXP 

X$3DW 

X$3MU 

X$3CT 

X$3KT 

X$3RT 

X$3ST 

X$3KM 

X$3RM 

X$3SM 

X$3LEN 


.ASECT 

.=0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.QLKB 

.BLKB 

.BLKB 

.BLKB 

!psect 


X$3LNK 

X$3STS 

DEFAULT  BLOCK  SIZE 

MAXIMUM  BLOCK  SIZE 

DEFAULT  WINDOW  SIZE 

MAXIMUM  WINDOW  SIZE 

CALL  TIMER  VALUE 

CLEAR  TIMER  VALUE 

RESET  TIMER  VALUE 

RESTART  TIMER  VALUE 

MAXIMUM  CLEAR  VALUE 

MAXIMUM  RESETS  VALUE 

MAXIMUM  RESTARTS  VALUE(0.-255. ) 

LENGTH  OF  THE  BLOCK 


(21.-1029.) 

(21.-1029.) 

(1.-127.) 

(1.-127.) 

(0.-255.) 

(0.-255.) 

(0.-255.) 

(0.-255.) 

(0.-255.) 

(0.-255.) 


DEFINE  THE  DESTINATION  PARAMETER  BLOCK 


DSSTYP 
DSSNAM 
DSSPRI 
DSSOBJ 
DSSTSK 
DSSLEN 


.ASECT 

.=0 

.BLKW 

.BLKW 
i.BLKW 
:.BLKw 
:.BLK8 
:.8LKe 
:.BLKW 

Ipsect 


C.LNK 

C.STS 

RAD50  "X25"  OR  ■'X29" 

RAD50  DESTINATION  NAME 

LIST  INSERTION  PRIORITY 

OBJECT  NUMBER 

RAD50  TASK  NAME 


DEFINE  THE  DSA  PARAMETER  BLOCK 


.ASECT 
.=0 
.BLKW 
.BLKW 


C.LNK 
C.STS 


,k\{\    MA  ran    i/At:    A7k    c-.^l, 
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1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
121> 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 


000001 


.SBTTL  ERROR  MESSAGES 


;  ERROR  MESSAGES 


.NLIST 

BEX 

.ENABL 

L^ 

000000 

EXSWAR 

=  0 

000001 

EXSSUC 

=  1 

000002 

EXSERR 

=  2 

000004 

EXSSEV 

=  4 

002054 

002 

103 

106 

ERRSYN 

:. ASCIZ 

<EX$ERR>/CFE 

002101 

C04 

103 

106 

ERRCON 

:. ASCIZ 

<EX$SEV>/CFE 

002133 

002 

103 

06 

ERRILC 

.-.ASCIZ 

<EX$ERR>/CFE 

002163 

002 

105 

06 

ERRGCL 

.-.ASCIZ 

<EX$ERR>/CFE 

002216 

002 

103 

106 

ERRJLN 

.-.ASCIZ 

<EX$ERR>/CFE 

002245 

004 

103 

106 

ERRFIL 

:. ASCIZ 

<EX$SEV>/CFE 

002303 

004 

103 

106 

ERROUT 

:. ASCIZ 

<EX$SEV>/CFE 

002336 

004 

103 

106 

ERRALL 

:. ASCIZ 

<EX$SEV>/CFE 

002400 

002 

103 

106 

ERRPRC 

.-.ASCIZ 

<EX$ERR>/CFE 

002445 

002 

103 

106 

ERrtLIS 

:. ASCIZ 

<EX$ERR>/CFE 

002507 

002 

103 

106 

ERRCIS 

:. ASCIZ 

<EX$ERR>/CFE 

002554 

002 

103 

106 

ERRNOD 

:. ASCIZ 

<EX$ERR>/CFE 

002616 

002 

103 

106 

ERRPNA 

.-.ASCIZ 
.LIST 
.EVEN 

<EX$ERR>/CFE 
BEX 

Syntax  error/ 
Consistency  error,' 
Illegal  command/ 
Command  line  error/ 
Invalid  number/ 
Error  in  opening  file/ 
Error  wri  ting  f i le/ 
Insufficient  buffer  space/ 
Process  not  in  configuration/ 
Line  not  in  configuration/ 
Circuit  not  in  configuration/ 
Node  not  in  configuration/ 
Parameter  not  applicable/ 


.END 


-ret  MD 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SVSDTE 

=  002000 

6 

#12-1194 

SV$PSZ 

=   OOO'^OO 

G 

#12-1192 

svtwsz 

=  001000 

G 

#12-1193 

SW.ENA 

=   000004 

G 

#11-731 

SW.FUL 

=  000010 

G 

#11-732 

SU.INC 

=  002000 

G 

#11-739 

SW.LOA 

=  000002 

G 

#11-730 

SW.LON 

n   000200 

G 

#11-736 

SW.OUT 

-  001 000 

G 

#11-738 

SW.PUR 

=  OOOAOO 

G 

#11-737 

SW.RLU 

=   000020 

G 

#11-733 

SW.SDl 

=  010000 

G 

#11-741 

11-743 

SW.SEN 

^  004000 

G 

#11-740 

11-743 

SW.SLT 

=  ouooo 

G 

#11-743 

SW.SMC 

=   OOOOAO 

G 

#11-734 

SU.TOP 

=  00000-: 

G 

#11-729 

SW.VFY 

=  000100 

G 

#11-735 

SSLBRA 

000022 

G 

#9-362 

SSLCNT 

000010 

G 

#9-355 

SSLCTT 

000012 

G 

#9-357 

SSLFLG 

000006 

G 

#9-354 

SSLHTM 

000016 

G 

#9-360 

SSLLEN 

=  00002A 

G 

#9-363 

S$LNAM 

000004 

G 

#9-353 

SSLRPR 

000020 

G 

#9-361 

SSLTYP 

000014 

G 

#9-358 

SSLUNi 

000011 

G 

#9-356 

SSTADD 

000005 

G 

#9-426 

SSTAPR 

000010 

G 

#9-429 

S$TCST 

000007 

G 

#9-428 

SSTFLC- 

000006 

G 

#9-427 

SSTHTM 

000012 

G 

#9-431 

S$TLEN 

=  000016 

G 

#9-433 

SITSTA 

000004 

G 

#9-425 

SSVDTE 

C00022 

G 

#9-566 

SSVFLG 

000014 

G 

#9-563 

S5VLEN 

=   000036 

G 

#9-568 

S$\/NAM 

000004 

G 

#9-560 

SSVOWN 

000034 

G 

#9-567 

SSVPSZ 

000010 

G 

#9-561 

SSVRCL 

000016 

G 

#9-564 

SSVTIM 

000020 

G 

#9-565 

SSVWSZ 

000012 

G 

#9-562 

S.BFHD 

=   000020 

6-92 

6-92 

S.ETEF 

=  OOOOfO 

6-95 

S.FDB 

=   000 1 40 

6-95 

6-95 

6-104 

6-104 

S.FNAM 

=  000006 

6-95 

6-95 

6-115 

6-115 

S.FNB 

=  000036 

6-95 

6-115 

S.FTVP 

--    -00002 

6-'''5 

6-95 

6-115 

6-115 

JNSCST 

=  001 OOC 

G 

#12-119^ 

JNSDPR 

=  002000 

G 

#12-1198 

UN$PCh 

=  004000 

G 

#12-1199 

6-110 


6-110 


r C  C  IMD 


roc  A  Ten  Dv 
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89 
90 

91 

Q2 

93 

% 

95 

96 

97 

98 

99 
100 
101 
102 

103  000024 
lOA  00002A 

105  000032 

106  000036 

107  000042 

108  000046 

109  000054 

110  000060 

111  000066 

112  000072 

113  000100 

114  000104 

115  000106 

116  000112 

117  000114 

118  000124 

119  000126 

120  000132 

121  000136 

122  000142 

123  000144 

124  000150 

125  000152 

126  000162 

127  000172 

128  000174 

129  000176 

130  000202 

131  000206 

132  000212 

133  000216 

134  000222 

135  000226 

136  000? 30 

137  00C240 
13P  000250 
13s'  000252 
140 

141 
142 


.SBTTL  SCFINI  -  INITIALIZE  END  Of  TASK  BUFFERS 

*•»  -  SCFINI  -  INITIALIZE  END  OF  TASK  BUFFERSS 

THE  CETAB  FILE-SPEC  IS  INPUT  BY  THE  USER  AND  THE  FILE  IS  OPENED  AND 
READ  INTO  THE  END-OF-TASK  TEMPLATES.  A  NEW  FILE  IS  OPENED  FOR  OUTPUT. 


INPUT: 


NONE. 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 


012767 
004767 

016746 
012767 
016700 
042767 

052767 
012667 
103010 
122710 
001427 

000746 
016002 
012701 
004767 
103407 
004767 
103012 


000261 
000426 
012700 
004767 
010-67 
010267 
010367 
004767 
103011 


000261 
000207 


000001 


SCFINI: 


0000006  OOOOOOG 
OOOOOOG 

OOOOOOG        5S: 
000000'  OOOOOOG 
OOOOOOG 
OOOOOOG  0000006 

OOOOOOG  0000006 
OOOOOOG 

OOOOOOG 


000002 

0000006 

OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
0000006 


IDS: 


20$; 
30$: 

40$: 


50$: 


MOV 

*EX$SUC,$EXSTS 

CALL 

SXXINl 

FINITS 

MOV 

$CLPMT,-(SP) 

MOV 

*PRMPT,SCLPMT 

MOV 

SCL10S,RO 

BIC 

#CL.CMT,$CLFLG 

GCLS 

BIS 

#CL.CMT,SCLFL6 

MOV 

(SP)+,SCLPMT 

BCC 

10$ 

CMPB 

*IE.EOF,(R0) 

BEQ 

30$ 

ERROR$ 

/KERRGCL 

BR 

5$ 

MOV 

2(R0),R2 

MOV 

#$BUFF,R1 

CALL 

$JOPEN 

BCS 

20$ 

CALL 

$OPEN 

BCC 

40$ 

CLOSE$ 

#SIFDB 

ERROR$ 

#ERRF!l 

SEC 

BR 

50$ 

MOV 

#$lfDR,RO 

CALL 

.MARK 

MOV 

RI.SHIVBN 

MOV 

R2,$l0VBN 

MOV 

R3,$8YTE 

CALL 

$TMSTB 

BCC 

50$ 

CLOSES 

*Sr'D8 

DELET$ 

#$OFDB 

SEC 

RETURN 

.END 


ASSUME  SUCESSFUL  EXECUTION  OF  CFE 

INITIALIZE  END  OF  TASK  BUFFERS 

INITIALIZE  FILE  CONTROL  SYSTEM 

SAVE  CURRENT  PROMPT  STRING 

PROMPT  FOR  FILENAME 

POINT  RO  AT  I/O  STATUS  BLOCK 

ALLOW  VERSION  NUMBER 

GET  A  COMMAND  LINE 

FILTER  COMMENTS 

RESTORE  PREVIOUS  PROMPT 

IF  CC,  OKAY 

JUST  AN  ENO-OF-FILE  ? 

IF  EQ,  YES  -  SKIP  THE  MESSAGE 

ELSE,  COMMAND  LINE  ERROR 

AND  TRY  AGAIN 

GET  LENGTH  OF  FILE-SPEC 

POINT  R1  AT  START  OF  FILE-SPEC 

TRY  TO  OPEN  INPUT  FILE 

IF  CS,  ERROR  OPENING  FILE 

TRY  TO  OPEN  FILE  FOR  OUTPUT 

IF  CC,  FILE  WAS  OPENED 

CLOSE  THE  INPUT  FILE 

ELSE,  ERROR  IN  OPENING  FILE 

SHOW  FAILURE 

AND  LEAVE 

POINT  AT  INPUT  FILE  FOB 

MARK  POSITION  OF  TOP  OF  FILE 

SAVE  HIGH-ORDER  BITS  OF  VBN 

SAVE  LOW-ORDER  BITS  OF  VBN 

SAVE  BYTE  ADDRESS 

SET  UP  THE  END  OF  TASK  TEMPLATES 

IF  CC,  ALL  OKAY 

CLOSE  THE  INPUT  FILE 

DELETE  THE  OUTPUT  FILE 

MAKE  SURE  THE  C-B!T  IS  SET  ! 


nkirr    nMi 
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lFEOPN  -  FILE  I/O  ROUTINES 


1 
2 
3 
A 
5 
6 

7 

8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
M 
3"^ 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
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.TITLE   CFEDPN  -  FILE  I/O  ROUTINES 
.IDENT  /V05.00/ 

COPyRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MArNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  If  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORAMON. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  INPUT  AND  CUTPU^  FILE  OPEN  AND  I/O  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


2.00 


3.00 


4.00 


5.00 


10-FEB-78 

VERSION  2.0  RELEASE 

14-DEC-79 
DECNET-HM/S   V3.0 
DECNET-ilM-PLUS   VI .0 

16-APR-82 
DECNET-11M  V3.1 
DEC'JET~rM-PLUS   V1.1 

07-NOV-83 
DECiMET-HM  V4.0 
DECNET-ilM-PLUS   V2.0 

22-JUL-85 
DECnet-IIM/S   V4.2 
D£Cnet-11M-PliiS   V3.0 
DtCnet-Micro/RSX   V'.  .0 


MA  ran     v/nt;     A  7k 


0     5 


CFEPRG  -  PERfORM  PURGE  COMMAND 
LOCAL  DATA 


C  6 
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85 

.S8TTL 

LOCAL  DATA 

8A 
85 
86 

.NLIST 

BEX 

■  ***t 

87 

;•  LOCAL 

DATA 

88 
89 
90 

***** 

.ENABL 

LC 

91 

000002 

EXSERR 

=  ? 

92  000000 

002 

103 

106 

ERRORJ: 

.ASC1Z 

<EX$ERR>/CFE  —  Object  not  in  configuration/ 

93  000044 

CO? 

103 

106 

ERRCTY: 

.ASCIZ 

<EX$ERR>/CFE  — 

llegal  circuit  type/ 

94  000101 

002 

103 

106 

ERRNSC: 

.ASCIZ 

<EX$ERR>/CFE  —  Circuit  not  in  configuration/ 

95 

.EVEN 

9b 
97 

.DSA8L 

LC 

98 
99 

;  DEFINE 

THE  DISPATCF'  TABLE 

100 

101  000146 

DSPTBL: 

102  000146 

OOOOOOG 

.WORD 

SPUREM 

"PURGE  REMOTE"  REQUEST 

103  000150 

177777 

.WORD 

-1 

"PURGE  PROCESS"  ??? 

104  000152 

177777 

.WORD 

-1 

"PURGE  EXECUTOR"  ??? 

105  O00154 

177777 

.WORD 

-1 

"PURGE  SYSTEM"  ??? 

106  000156 

000226' 

.WORD 

PUR08J 

"PURGE  OBJECT"  REQUEST 

1C7  000160 

000734' 

.WORD 

PURLIN 

"PURGE  LINE" 

108  000162 

000360' 

.WORD 

PURLOG 

"PURGE  LOGGING"  REQUEST 

109  000164 

000756' 

.WORD 

PURCIR 

"PURGE  CIRCUIT"  REQUEST 

110  000166 

000756' 

.WORD 

PURCIR 

"PURGE  KNOWN  CIRCUITS"  REQUEST 

r,  1  000170 

OOOOOOG 

.WORD 

SPUXPR 

"PURGE  MODULE  X25-PROTOCOL"  REQUEST 

112  000172 

OOOOOOG 

.WORD 

SPUXSV 

"PURGE  MODULE  X25-SERVER"  REQUEST 

113  000174 

OOOOOOG 

.WORD 

SPUXAC 

"PURGE  MODULE  X25-ACCESS"  REQUEST 

114  000176 

OOOOOOG 

.WORD 

$PUXS9 

"PURGE  MODULE  X29-SERVER"  REQUEST 

115  000200 

OOOOOOG 

.WORD 

SPUSNA 

"PURGE  MODULE  SNA-PROTOCOL"  REQUEST 

116 
117 
118 
119 
120  000202 

;  DEFIN 

=  SINK 

rVPE  TABLE 

!;NKT8L: 

121  C00202 

000001 

.WORD 

FF.CON 

CONSOLE  SINK  TYPE 

122  000204 

000002 

.WORD 

FF.FIL 

FILE  SINK  TYPE 

123  000206 

000004 

.WORD 

FF.MON 

MONITOR  SINK  TYPE 

124  C00210 

125 

126  000212 

000000 

.WORD 

0 

TEMP: 

.BLKW 

1 

■  TEMPORARY  STORAGE 

127 

.LIST 

BEX 
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PAGE    > 

CREF        OA.OO 


ERROR$ 

#4-68 

8-212 

FLTDFt 

#A-79 

4-81 

PRINT 

#A-65 

RESRG 

#A-79 

SAVRG 

#A-7Q 

11-397 


11-399 
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FEPRS   -   STATE    TABLES    TO  PARSE 
PURGE    COMPONENTS 


489 

4S)() 

491 

300000 

W? 

000000 

A9^ 

000000 

A94 

000000 

49S 

000000 

A9ft 

49^ 

498 

499 

son 

000000 

SOT 

ouoooo 

so;' 

000000 

SO^ 

000000 

S()4 

000000 

SOI 

000000 

S06 

000000 

so^ 

000000 

SOH 

S09 

S10 

sn 

sv 

000000 

SH 

000000 

S14 

000000 

SIS 

oocooo 

S16 

S17 

SiH 

S19 

S^'O 

000000 

s;^i 

000000 

•^7? 

000000 

s?', 

000000 

s;^4 

s;'s 

s;>ft 

s?/ 

cooooo 

s;jH 

000000 

s-'9 

000000 

S^O 

000000 

s^i 

000000 

SI? 

S'l'i 

S'JA 

S'iS 

000000 

S'iiS 

000000 

S';/ 

000000 

s'la 

000000 

SS9 

OOOOGO 

S4() 

S41 

S4? 

S4< 

S44 

000000 

545 

000000 

MACRO  V05.03b  Tuesday  02-Jul-85   14: 
;    Purge   [Service]   dei/i'ce 


C  8 


Page  6-1 


STATES 

PNSDV 

TRANS 

8KSDEV,  SEXIT 

TRANS 

&KSSER 

STATES 

.JPSSERO 

TRANS 

kSDEV,  SEXIT 

;  Purge 

Service 

node  version 

STATES 

PNSNV 

TRANS 

SKSVRSN, SEXIT 

TRANS 

8KSSER 

STATES 

,£PSSER 

TRANS 

&KSVRSN,irXIT 

TRANS 

&KSN0D 

STATES 

TRANS 

8KSVRSN, SEXIT 

;  Purge 

nump  address 

STATES  PNDPA 

TRANS  &K$DMP 

STATES  ,       8PSDMP0 

TRANS  8KSADD,  SEXIT 


Purge  Dump  Count 

STATES  PNDCT 

TRANS  8KSDMP 

STATES  .SPSDMPO 

TRANS  &K$COUN,SEXIT 

Purge  [Service]  circuit 

STATES  PNSCI 

TRANS  8KSCIR,  SEXIT 

TRANS  8KSSER 

STATES  .SPSSERG 

TRANS  SKSCIR,  SEXIT 

Purge  Hardware  [address] 

STATES  PNHAR 

TRANS  SKSHRD 

STATES 

TRANS  8KSADD,  SEXIT 

TRANS  SLAMDA,  SEXIT 


Purge  [Service]  password 

STATE'^  °NSPA 
TRANS  &KSSER,  PNSPA? 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEflNE  CIRCUIT  COMMAMD 

1151 
1152 
1153 
115^ 

1155  000000 

1156  000000 

1157  000000 
1158 

1159  000000 

1160  000000 
1161 

1162  000000 

1163  000000 
116A  000000 
1165 
1166 
1167 

1168  000000 

1169  000000 

11 70  000000 

1171  000000 
117?  000000 

1173  000000 

1174  000000 

1175  000000 

1176  000000 

1177  000000 

1178  000000 

1179  000000 

1180  000000 
llfcl  000000 

1182  000000 

1183  COOOOO 

1184  000000 

1185  000000 
1186 
1187 
1188 

1189  000000 
'190  000000 

1191  000000 

1192  000000 

1193  000000 
119A  000000 

1195  000000 

1196  000000 

1197  000000 

1198  000000 
1199 
1200 
1201 

1202  000000 

1203  OOOCOO 

1204  000000 

1205  000000 

1206  000000 

1207  OOOOCO 


C  9 

MACRO  V05.03b  Tuesday  02-Jul-85  U:08 


Page  9 


.SBTTL      DEFINE    CIRCUIT    COMMAND 


■  DEFINE  CIRCUIT  COMMAND 

STATES 

DEFCIR 

TRANS 

!CIRi;,  CIRC, 

CO.CIR, 

SCOMP 

TRANS 

IKN'Cjh,,, 

CO.KNC, 

SCOMP 

STATES 

CIRCSPSDECl 

TRANS 

ICIROPT 

STATES 

CIRC 

TRANS 

;CIR0PT,C1R0 

TRANS 

SLAMDA,  SEXIT 

;  CIRCUIT  OPTIONS 

STATES 

CIROPT 

TRANS 

ICSTATE, SEXIT,, 

OC.STA, 

SOPRND 

TRANS 

!COST,   SEXIT,, 

OC.CST, 

SOPRND 

TRANS 

ITRI8,   SEXIT,, 

OC.TRI, 

SOPRND 

TRANS 

lAPR,   SEXIT,, 

OC.APR, 

SOPRND 

TRANS 

ICHN,   SEXIT,, 

OC.CHN, 

SOPRND 

TRANS 

ICT,    SEXIT,, 

OC.CTM, 

SOPRND 

TRANS 

!DTE,   SEXIT,, 

OC.DTE, 

SOPRND 

TRANS 

IHTM,   SEXIT,, 

OC.HTM, 

SOPRND 

TRANS 

IMBL,   SEXIT,, 

OC.MBL, 

SOPRND 

TRANS 

IMRC,   SEXIT,, 

OC.MRC, 

SOPRND 

TRANS 

IMWIL,   SEXIT,, 

OC.MWI, 

SOPRND 

TRANS 

!RTM,   SEXIT,, 

OC.RTM, 

SOPRND 

TRANS 

lUSG,   SEXIT,, 

OC.USG, 

SOPRND 

TRANS 

IDNUM,   ttXIT,, 

OC.NUM, 

SOPRND 

TRANS 

ICIMXR,  SEXIT,, 

OC.MXP, 

SOPRND 

TRANS 

ICIRPR,  SEXIT,, 

OC.RPR, 

SOPRND 

TRANS 

ICISER,  SEXIT 

■  CIRCUIT  MAXIMUM  [BROADCAST]  ROUTERS 

STATES 

CIMXR 

TRANS 

ftKSMAX 

STATES 

,&PSMAX 

TRANS 

&KSR0UT,CIMXR3 

TRANS 

8KS6R0 

STATES 

CIMXR2 

TRANS 

8KSR0UT,CIMXR3 

TRANS 

SLAMDA 

STATES 

CIMXR3,  i.;JSMXR 

TRANS 

SDNUMB,  SEXIT, 

.CIMXR 

■  CIRCUIT  ROUTER  PRIORITY 

STATES 

CIRPR 

TRANS 

8KSR0UT 

STATES 

TRANS 

8KSPRI,  CIRPR2 

TRANS 

SlAMDA 

STATES 

CIRP"2,  &PSRPR 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  EXECUTOR  COMMAND 
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1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

189A 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

190'; 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 


000000 
000000 
OOOCOC 
OOOOOQ 
000000 


000000 
000000 
000000 
000000 
000000 

ocoooo 

000000 
000000 


000000 
OO^JOO 
000000 
000000 

oocooo 

000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


TRANS 

£KSTIM,EINA2 

TRANS 

SLAMDA 

STATES 

EINA2,   8PS1NA 

TRANS 

SDNUMB,  SEXIT, 

TRANS 

SLAMDA,  SFAIL 

;  EXECUTOR  INCOMING  [TIMER] 

STATES 

EINCT 

TRANS 

8KSINC 

STATES 

TRANS 

&KSTIM,EINC2 

TRANS 

SLAMDA 

STATES 

EINC2,  8PSINC 

TRANS 

SDNUMB,  SEXIT, 

TRANS 

SLAMDA,  SFAIL 

;  EXECUTOR  OUTGOING  [TIMER] 

STATES 

EOUTT 

TRANS 

&KSOUT 

STATES 

TRANS 

8KSriM,EOUT2 

TRANS 

SLAMDA 

STATES 

E0UT2,   &PSOUT 

TRANS 

SDNUMB,  SEXIT, 

TRANS 

SIAMDA,  SFAIL 

;  EXECUTOR  RETRANSMIT  [FACTOR] 

STATES 

ERETF 

TRANS 

8KSRTR 

STATES 

TRANS 

8K$FAC,ERET2 

TRANS 

SLAMDA 

STATES 

ERET2,   gPSRETF 

TRANS 

SDNUMB,  SEXIT, 

TRANS 

SLAMDA,  SFAIL 

.EXINA 


.EXINT 


.EXOUT 


.EXRET 


<;T4TF    T4B1  PS    TCI    PARSF 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
UTILITY  SUBEXPRESSIONS 

2A8A  000000 
2A85  000000 
2A86 
?;87 
2A88 

2A89  000000 
2A90  000000 
2A91  OOOOOJ 
2A92  000000 
2A95  000000 
2A9A  000000 
2A95  000000 
2496  000000 
2A'7 
2A98 
2A99 

2500  000000 

2501  000000 

2502  000000 

2503  OOOOOC 
250A  000000 

2505  000000 

2506  000000 

2507  000000 
2508 
2509 
2510 

2511  000000 

2512  OOCOOO 

2513  000000 
251A  000000 
2515 
2516 
2517 

2518  000000 

2519  000000 

2520  POOOOO 

2521  000000 

2522  000000 

2523  000000 
252A  000000 

2525  000000 

2526  000000 
2527 
2528 
2529 
2530 

2531  000000 

2532  000000 

2533  000000 
"^SA  OOOCOO 

""  000000 

C- 

25: 

2538 

255^  000000 

25A;,  OOOOOO 
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STATE* 
TRAMS 


&P$CLM 
IHEXSTR,$EXIT, 


.MOCLV 
HEXADECIAL  STRING  FOR  CALL  MASK  AND  VALUE 


STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 


HEXSTR 
SLAMDA,, 

:hexdig,hfxst2 

SLAMDA,, 
HEXST2 

IHEXD]G,HEXST2 
SLAMDA,  SEXIT, 


SBL.MAN 
.BL.AU3 
SBL.AUT 


RESTORE  AUTO  BLANKS  AND  FAIL 


MATCH  A  HEXADECIMAL  DIGIT 


STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 


HEXDIG 

SDJGIT, 

'A, 

'B, 

'C, 

'D, 

'E, 

'F, 


SEXIT 
SEXIT 
SEXIT 
SEXIT 
SEXIT 
SEXIT 
SEXIT 


LIST  INSERTION  PRIORITY  FOR  DESTINATIONS 


STATES 
TRANS 

STATES 
TRANS 


DPR] 
&KSPRI 


8PSLPRI 
SEXIT,   .MOPRI 


SDNUMB 
SU8ADDRESS  RANGE  FOR  DESTINATIONS 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TR1NS 


DSUB 
&KSSUBA 

SDNUMB, 


&PSSUBA 


SLAMDA 

Dsua2 

SDNUMB,  SEXIT 


DSUB2 

SEXIT 


.M0DS1 


.M0DS2 


SUBEXPRESSION  TO  MATCH  MODULE  X25-PR0T0C0L 


SiATES  MODXPR 

TRANS  :MX25 

STATES 

TRANS  &KSPRT,  BLAUT 

TRANS  SLAMDA,, 


.BL.AU3 
SUBEXPRESSION  TO  MATCH  MODULE  X25-SERVER 


STATES 
TRANS 


MODXSV 

■.ml'-- 
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MACRO  CALLS 


46 
kl 
48 
49 

50 
51 
Vi 
55 
54 
55 
56 


.S8TTL  MACRO  CALLS 
MACRO  CALLS 

.MCALL   SAVRG,RESRG,EXTK$5 


000020 


GLOBAL  SYMBOL  DEMMITION 
.EXII^C   ==  20 


;  NUMBER  OF  100  BrTE  BLOCKS  TO  EXTEND  BY 
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155 
^56 
157 
158 
159 
160 
161 
162 
165 
164 
165 
166 
167 

168  000002 

169  000002 

170  003006 

171  00CC12 

172  000020 

173  000022 
17A  000026 

175  000030 

176  000032 

177  000034 

178  000036 

179  000042 

180  000046 

181  000052 
1S2  000056 

183  000060 

184  000064 

185  000066 

186  000070 
187 

188 
189 

190  000100 

191  000102 

192  000104 

193  000106 

194  000112 

195  000114 

196  000116 

197  000122 

198  000126 

199  000136 

200  000140 

201  000142 

202  0OOU4 


INPUT: 


.sbttl  $tmst8  -  set  up  cetab  template  blocks 
stmstb  -  set  up  cetab  template  blocks 

'none. 


OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

THE  CETAB  FILE  IS  READ  INTO  THE  END  OF  TASK  SPACE  AS  BINARV  INFO. 


005067 
005067 
022767 
001450 
004767 
103445 
005703 
001767 
005001 
012702 
012704 
012705 
004767 
103404 
005767 
001752 
100404 


010400 
105720 
001376 
114060 
020004 
001374 
112720 
112720 

000261 
000401 
000241 
00C207 


STMST 
OOOOOOG 
177766 
OOOOOOG  OOOOOOG  10$: 

OOOOOOG 


000000' 
OOOOOOG 
000000' 
OOOOOOG 

177714 


15$: 


CLR 

$CMAND 

CLR 

SEfiROR 

CMP 

#CM.EXI,$CMAND 

BEQ 

30$ 

CALL 

$RDATA 

BCS 

30$ 

TST 

R3 

BEQ 

10$ 

CLR 

R1 

MOV 

#TMPKTB,R2 

MOV 

#$BUFI,R4 

MOV 

#TMPST8,R5 

CALL 

.TPARS 

BCS 

15$ 

TST 

SERROft 

BEQ 

10$ 

BMI 

20$ 

ERRORS 

tfERRSYN 

CLEAR  COMMAND  CODE 

CLEAR  ERROR  INDICATOR 

TIME  TO  EXIT  ? 

IF  EQ,  YES 

READ  A  RECORD 

IF  CS,  END  OF  FILE 

ZERO  LENGTH  RECORD  ? 

IF   EQ,    YES 

TPARS    INITIALIZATION  -  EXACT   MATCH 

KEYWORD    TABLE 

ADDRESS   OF   RECORD 

STATE    TABLE 

PARSE  THE  RECORD 

IF  CS,  ERROR 

SYNTAX  ERROR  ? 

IF  EQ,  NO  ..  READ  NEXT  RECORD 

IF  MI,  MESSAGE  PRINTED 

ELSE,  SYNTAX  ERROR 


INSERT  ERROR  FLAG  IN  OFFENHING  LINE  AND  PRINT  IT 


000002 


000076 
000076 


J0$: 
22$: 

24$: 


30$: 
40$: 


MOV 

TSTB 

BNE 

MOVB 

CMP 

BNE 

MOVB 

MOVB 

EPRINT 

SEC 

BR 

CLC 

RETURN 


F4,R0 

(R0)  + 

22$ 

-(R0),2(R0) 

R0,R4 

24$ 

#R8RKT, 

*R8RKT, 

#$euF  I 

40$ 


(R0)  + 
(R0)  + 


COPY  ADDRESS  OF  OFFENDING  SYMBOL 

LOCATE  END  OF  STRING 

IF    NE,    MORE 

SLIDE   EVERYTHING   DOWN  2  BYTES 

HAVE   WE   REACHED    START   OF    ERROR   ? 

IF   NE,   NO 

INSERT  ERROR  FLAG 

PrInT  the  bad  LINE 
SHOW  FATAL  ERROR 
AND  LEAVE 
SUCCESS  ! II 
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178 

179 

180 

181 

182 

183 

18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195   0O0062 

196  000062 

022767 

OOOOOOG  OOOOOOG 

197  000070 

001403 

198  000072 

121067 

OOOOOOG 

199  000076 

101402 

200  000100 

111067 

OOOOOOG 

201    000104 

105720 

202  000106 

010146 

203  000110 

012^01 

OOOOOOG 

20A   00011 A 

000737 

205 

206  000116 

010067 

OOOOOOC 

207  000122 

105720 

208  000 12A 

001403 

209  000126 

100375 

210  000130 

005067 

OOOOOOC 

211    000134 

166700 

OOOOOOC 

^12   OOOUO 

005300 

213  0001A2 

0^0067 

OOOOOOC 

2U   000U6 

215   000154 

012727 

000040     OOOOOOC 

216   000162 

000207 

217 

.S8TTL 
.SBTTL 


SCFERR 
SCFERl 


SET  UP  EXIT  STATUS  AND  PRINT  ASCI7  ERROR  MESSAGE 
PRINT  ASCIZ  STRING  ON  ERROR  LUN 


»»»  -  SCFERR  -  PRINT  ASCIZ  STRING  AND  SET  UP  EXIT  STATUS 
*••  -  SCFERl  -  JUST  PRINT  STRING 


INPUT; 


RO  =  POINTER  TO  EXIT  STATUS  (BUE)    FOLLOWED  BV  ERROR  MESSAGE  (SCFERR) 
RO  =  ADDRESS  OF  ASCIZ  STRING  (SCFERl) 


OUTPUT: 

STRING  PRINTED  (AND  EXIT  STATUS  SET  UP) 

RO  MODIFIED 


SCFERR: 


3S; 
5$: 
SCFERl 


10$: 


20$: 


.ENABL  LSB 

'cMP  #EXSSUC,SEXSTS 

BEQ  3S 

CMP8  (R0),$EXSTS 

BLOS  5$ 

MOVB  (RO),$EXSTS 

TST8  (R0)+ 

:MOV  R1,-(SP) 

MOV  #$ERDPB,R1 

BR  PRINT 

MOV  RO.SERDPB+Q.IOPL 

TST8  (R0)+ 

BEO  20$ 

BPL  10$ 

CLR  SERDPBtQ.I0PLt4 

SUB  $EfiOP8+Q.IOPL,RC 

DEC  RO 

MOV  R0,$ERDPBtQ.I0PLt2 

DIR$  #$ERDPB 

MOV  #40,«SERDPBtQ.I0PL+4 

RETURN 

.DSA8L  LS8 


ANY  ERRORS  YET  ? 

IF  EQ,  NO  -  SET  STATUS 

IS  ERROR  WORSE  THAN  LAST  ? 

IF  LOS,  NO  -  DON'T  SET  STATUS 

STORE  NEW  EXIT  STATUS 

S>IP  STATUS  FIELD  OF  MESSAGE 

SAVE  REGISTER 

POINT  TO  DPB 

PRINT  STRING 

STORE  ADDRESS  OF  ERROR  MESSAGE 

AT  END  OF  STRING  ? 

IF  EQ,  YES 

IF  PL,  NO 

ELSE  CLEAR  CARRAIGE  CONTROL 

CALCULATE  STK.'ftiC  LENGTK 

DON'T  COUNT  NULL  BYTE 

STORE  STRING  LENGTH 

PRINT  STRING 

RESTORE  CARRAIGE  CONTROL 
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table 


MACRO  V05.03b  Saturday  29-Jun-85 


Ssl^. 


Page  16-2 


Cl,>1fL  = 

CL$5FL= 

CLtTyP= 

CL.MU1= 

CL.MU2= 

CL.RES= 

CNTRL 

CS.DDM= 

CS.DEC= 

CS.DLC= 

CS.LLC= 

CS.MOD  = 

CS.PAR= 

CS.ROU= 

CS.SLT= 

CS.STA= 

CVTBL 

CVTC 

CVSMS"-- 

CV$3i  = 

CV$32  = 

:v$40  = 

CSDTE 

C$FLG 

CSGNAM 

CSLCN 

r$LEN 

C$LENX= 

C$LN< 

C$NAM 

C$NML 

C SPORT 

C.CNT 

C.DELF 

C.DELW 

C.FLG 

C.INAC 

C.INCT 

C.I  PL 

C.LKS 

C.LST 

C.NAM 

C.NDC 

C.OUTT 

CPRM  = 

CRETE 

C.SEG 

CSTS  = 

CUNT 

DSACL 

DSCUGL 

OSCUGN 

DSDATL 

DSDSL 

DsrsT 


00022 
000102 
000010 
00000^ 
000001 
000001 
000002 
177774 
0004O4R 
•  *«••  .  GX 
»»«»*•  GX 
«»*««*  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  ,jX 
***.  *  GX 
Of^OAUR 
J00316R 
000003 
000001 
000000 
000002 
000012 
000015 
000016 
000010 
000016 
000020  G 
000000 
000002 
000002 
OOOOU 
000010 
000016 
000017 
000006 
OOOOK 
000012 
000020 
000010 
000021 
000004 
000006 
000013 

000015 

OOOOOA 

******  GX 

000011 

000027 

000023 

000022 

000030 

000022 

000010 


GX 


DSDTEL 

000051 

DSFLEN 

000032 

0$FLNX= 

00003A  I 

D$GLEN 

000032 

BtGVBL 

000032 

D$LNK 

000000 

DSNAM 

000004 

DSNOD 

000010 

OSDBJ 

000003 

DSPAL 

000026 

D$PRI 

000002 

DSPRL 

00C024 

DSSHI 

000020 

DSSLO 

000016 

DSUSL 

000G25 

DSVBL 

000032 

ER$ABM= 

010010 

ER$ABO= 

'  0046 

ER$ABT= 

.  '0011 

ER$ACC= 

000042 

ER$CDI= 

000052 

ER$COM= 

00004  ■(' 

ER$FMT= 

000005 

ER$MLB= 

000006 

ERSNNF-- 

000012 

ER$NO[)= 

000002 

ER$NSL= 

000013 

ER$NSR= 

000003 

ER$RE5= 

000001 

ER$STA= 

000051 

ER$U08= 

000004 

EXTCHR 

000232R 

EX$SUC= 

****** 

ESNBR 

000014 

E$N8S 

000020 

ESNCR 

000034 

ESNCS 

000036 

EINIC 

000044 

ESNLEN 

000050 

ESNLLA 

000012 

E$NLN< 

000000 

ESNML 

003040 

ESNMR 

000024 

ESNMS 

000030 

ESNNOD 

000002 

ESNRT 

000042 

ESNRTP 

000005 

ESNSEG 

000010 

ESNTJM 

000046 

ESNUSE 

000004 

ESSTRT 

000006 

FF.ADD= 

000020 

FF.CIR= 

000040 

FF.CON= 

000001 

FF.FIL= 

000002 

FF.HST= 

040000 

FF.LIN= 

000010 

GX 


FF.MOD-- 
FF.MON= 
FF.MSX= 
FF.PRT= 
FF.QUL= 
FF.REM= 
FL.MFL= 
FL.MTP= 
FL.MUX= 
FL.TRI= 
F.ADD 
F.CEV 
F.CIR 
F.CLS 
F.EVT 
F.FLG 
F.LEN 
F.LENX= 
F.LIN 
.LNK 


f  .MOD 

F.REM 

F.SEV 

GF$8UG= 

GSCUG 

GSDTE 

GSFLG 

G$GNAM 

G$LEN 

G$LENX= 

G^LNK 

GSNAM 

GSNML 

IN.DAT= 

]N.ILS= 

I0.WV8= 

L4.ACK= 

LA.CRS= 

LA.MSI<;= 

LA.NAK= 

LA.NMS= 

LA.RES= 

LA.WND= 

LF.DRD= 

LF.FRC= 

LF.HFO= 

LF.HMF= 

LF.HSF= 

LF.IRD 

LF.MFL 

LF.MMF 

LF.MSF 

LF.MTP 

LN$OfF 

LNSON 

LNSSHU 

LPSEIP 


000100 
000004 
000077 
000200 
000370 
100000 

****** 
****** 
****** 
****** 

000016 
000030 
000024 
000002 
000004 
000014 
000016 
000020 
000020 
000000 
000022 
000026 
000004 
000001 
000010 
000012 
000014 
000016 
000016 
000020 
000000 
000002 
000015 
000400 
000001 

****** 

100000 
020000 
170000 
110000 
010000 
040000 
004000 
000004 
000001 
000010 
000040 
000020 
000002 

-      ****** 

000200 
000100 

****** 

000001 
000000 
000002 
002000 


GX 
GX 
GX 
GX 


GX 


GX 


GX 


LP$EN8= 

004000 

LSNRPK 

000056 

LP$PCT= 

001400 

LSNRRE 

OOO'OS 

LP$TMR= 

100000 

LSNRST 

000107 

LPSUP  = 

010000 

LSNTBY 

000052 

LP$WTD= 

020000 

LSNTCA 

000070 

LP$WTS= 

040000 

LSNTFS 

000102 

LS$GDN= 

000004 

LSNTPK 

000062 

LS$OFf= 

000000 

LSOMST 

000002 

LS$STR= 

000002 

LSPCS 

000112 

LSSUP  = 

000003 

LSPLS 

000110 

LS$WT  = 

000001 

LSQCNT 

000122 

LS.DLS= 

100000 

LSQUEH 

000124 

LS.FCC-- 

000004 

LSQUET 

000130 

LS.FCO= 

000001 

LSRTRV 

000007 

LS.FC1= 

000002 

LSSLN 

000004 

LS.ILS= 

100000 

LSST 

000005 

ls.mak;= 

000020 

LSTCL7 

000044 

LS.MNK= 

000040 

LSTIM 

000006 

LS.RES= 

000360 

LSTRI  = 

******  GX 

LS.RSV= 

000300 

LSUNT  = 

******  GX 

LT.CCA= 

000020 

L.ACC 

000146 

LI.DIR= 

000010 

L.CHN 

000124 

LT.LCL= 

000001 

L.CINT 

000142 

LT.LPL= 

000002 

L.CSTA 

000037 

LT.NOT= 

000040 

L.CIR 

000074 

LT.RSU= 

000200 

L.CXMT 

000134 

LT.SLI= 

000004 

L.DCR 

000100 

LT.T[)A= 

000100 

L.FLAG 

000014 

LSACHN 

000012 

L.ILSQ 

000052 

LSAPVC 

000014 

L.ILTT 

000066 

LSASVC 

000010 

L.INTQ 

000136 

LSAUC 

000042 

L.LDA 

000032 

LSCHLS 

000034 

L.LIA 

000034 

LSCHTB 

000030 

L.LLA 

000002 

L$CLEN= 

000044 

L.LNG 

000150 

L$CNT  = 

**»•**  GX 

L.LNGX= 

000150  G 

LSCTEN 

000032 

L.LNG 

000026 

LSCTIM 

000040 

L.LPT 

000065 

LSDTEA 

000020 

L.LSA 

000030 

LSDTEL 

000017 

L.LSFD 

000046 

LSGLEN 

000134 

L.LSFI 

000044 

LSLEN 

000122 

L.LTT 

000062 

LSLENX= 

000124  G 

L.MASQ 

C00070 

LSLLCH 

000016 

L.MAST 

000073 

LSLNK 

000000 

L.MASZ 

000072 

LSMCHN 

000036 

L.NIN 

000020 

LSNAM  = 

******  GX 

L.NXN 

000016 

LSNETW 

000114 

L.NXTH 

000010 

LSNIRE 

000072 

L.OPD 

000103 

LSNLRE 

000104 

L.OPDL 

000102 

LSNMAC 

000076 

L  PCTL 

000144 

LSNMAS 

000074 

L.PDVC 

000126 

LSNMST 

000003 

L.PDVD 

000127 

LSNNRE 

000106 

L.REM 

000006 

LSNRBY 

000046 

L.RFC 

000050 

LSNRC/! 

000066 

L.RLA 

000004 

LSNRFS 

000100 

L.RNO 

000022 
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629  OOOOOA 

630  000016 

651  000020 

652  000022 
655  000026 
654 

655  002054 
656 

657 

658 

659 

640 

641   000050 

642 

645  000000 
644  000002 
615  000004 

646  000052 

647  000060 
64°  000061 

650  002054 

651 

652 

655 

654 

655 

656  000062 
657 

658  000000 

659  000002 

660  000004 

661  000010 
662 

665  002054 

664 

665 


000050 


000000 


000062 


000000 


000022 


DSANUM: 

:.BLKW   5 

JtASLO: 

:.BLKW   1 

)$ASHI: 

:.BLKW   1 

)$ACUG: 

:.BLKW   2            ; 

)$ADLN: 

:.BLKW   1 

)$ALEN==. 

.PSECT 

;  **** 

•  DEFINE  THE  DESTINATION  CALL  PAR 

.ASECT 

.=0 

.BLKW   1 

.BLKW   1 

DSCMSK: 

:.BLKW   11. 

DSCVAL: 

:.BLKW   11. 

DSCMLN: 

:.BLKB   1 

D$CVLN: 

:.BLKB   1 

0$CLEN==. 

.PSECT 

;  *  *  *  * 

•  DEFINE  THE  RDT  PARAMETER  BLOCK 

.ASECT 

.=0 

.BLKW   1 

.BLKW   1 

R$ONAM::.BLKW   2. 

R$DADR::.8LKW   5. 

R$DLEN==. 

.PSECT 

.NLIST  BEX 

REMOTE  DTE  NUMBER   (1.-15.   DECIMAL  DIGITS) 

SUBADDRESS  LOW  RANGE 

SUBADDRESS  HI   RANGE 

USER  GROUP  NAME 

LENGTH  OF   BCD   DTE   ADDRESS    IN  BYTES 


C.LNK 

C.STS 

CALL  MASK  (1.-32.  HEX  DIGITS) 

CALL  VALUE  (1.-52.  HEX  DIGITS) 

LENGTH  OF  CALL  MASK 

LENGTH  OF  CALL  VALUE 


C.LNK 

C.STS 

RAD50  DTE  NAME 

RAD50  DTE  ADDRESS  (1. 


-15.  DECIMAL  DIGITS) 


E  1 

OC  A/ . CC 
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A.LULU= 

A.LUNA= 

A.LUNU= 

BUFSIZ= 

CH$HI  = 

CL.AST= 

CL.ATT= 

CL.CAS= 

CL.CMT= 

CL.EIF= 

CL.EXN= 

CL.EXT= 

CL.IND= 

CL.LCC= 

CL.NPR= 

CL.OPN= 

a.RNE  = 

CL.XIT= 

CM.DEF= 

CM.EX1= 

CM.HLP= 

CM.KIL= 

CM.LIS= 

CM.PUR= 

CO.CIR= 

CO.EXE= 

CO.KLG= 

CO.KNC= 

CO.KNL= 

CO.KNN= 

CO.KNO= 

CO.KNP= 

C0.L1N= 

CO.LOG= 

CO. MAC = 

CO.MSP= 

CO.MXP= 

CO.MXS= 

C0.MX9= 

C0.N0D= 

C0.0BJ= 

C0.PR0= 

C0.SYS= 

CS.BUF= 

CS.CHN= 

CS.CNT= 

CS.CUG= 

CS.DDM= 

CS.DEC= 

CS.DIF= 

CS.DLC= 

CS.DSA= 

CS.DSC= 

CS.DST= 

CS.DTE= 

CS.DVF; 

CS.EQU= 


000002 

000004 

000006 

000764 

000400 

004000 

000200 

020000 

000001 

000040 

040000 

000010 

000002 

000020 

000400 

000100 

000004 

100000 

000001 

000004 

000003 

000005 

000002 

000006 

000010 

000003 

000007 

000011 

000006 

000001 

000005 

000002 

000006 

000007 

000014 

000016 

000012 

000013 

000015 

000001 

000005 

000002 

000004 

000001 

000027 

000006 

000031 

000005 

000046 

000002 

000004 

000033 

000034 

000032 

000026 

000004 

000040 


CS.EVT= 

CS.FEA= 

CS.F1L= 

CS.FLG= 

CS.INP= 

CS.LLC= 

CS.L0G= 

CS.MOD= 

CS.MOR= 

CS.MSK= 

CS.NET= 

CS.NMF= 

CS.NOD= 

CS.NUM= 

CS.OBJ= 

CS.OUT= 

CS.PAR= 

CS.PSN= 

CS.PVC= 

CS.RDT:= 

CS.REM= 

CS.ROU= 

CS.SAC= 

CS.SAD= 

CS.SER= 

CS.SH]= 

CS.SLD= 

CS.SLT= 

CS.SNA= 

CS.SPU= 

CS.STA= 

CS.SVC= 

CS.THI= 

CS.TLO= 

CS.TOP= 

CS.TRB= 

CS.TSK= 

CS.UNI= 

CS.UNT= 

CS.VAL= 

CS.WLD= 

CS.X2P= 

CS.X29= 

CS.X3P= 

CU$BIL= 

C$HHI 

C$HLEN= 

C$HLO 

CSNCNT 

C$NCSR 

C$NLEN= 

CSNPRi 

CSNURM 

CSNVEC 

CSUCUG 

CSUFLG 

C$ULEN= 


000017 

000015 

000045 

010000 

000001 

000003 

000020 

100000 

000020 

000400 

000400 

000001 

000012 

000400 

000014 

000002 

000011 

000022 

000030 

000035 

000013 

000016 

000041 

000042 

000044 

001000 

002000 

000002 

000040 

000043 

000010 

000021 

000400 

001000 

000400 

020000 

000400 

040000 

000007 

001000 

000010 

000024 

000025 

000023 

000001 

000006 

000010 

000004 

000004 

000010 

000016 

000012 

000014 

000006 

000010 

000012 

000013 


C SUN AM 

C.CMLD= 

C.DEVD= 

C.DIRD= 

C.DSDS= 

C.F]LD= 

C.LNK 

C.MKW1= 

C.MKW2= 


.PRM 

.SIZE= 

.STAT= 

.STS 

.SWAD= 
..TYPR= 
DA$CUG= 
DEFFLG= 
DFLTNB 
DFTLEN= 
DSACUG 
DSADLN 
DJALEtJr 
DSANUM 
DSASHI 
DSASLO 
D$CLEN= 
DSCMLN 
DSCHSK 
DSCVAL 
DSCVLN 
DSDFLG 
D$DLEN= 
DSDNAM 
DSDNCT 
DSDNLT 
DSDPRI 
D$SLEN= 
DSSNAM 
DSSOBJ 
DSSPRI 
D$STSK 
DSSTYP 
DSTADR 
OSTCT 
DSTHSH 
D$TLEN= 
DSTLIN 
OSTNET 
DSTSTA 
EF 

ERRALL 
ERRCIS 
ERRCON 
ERRFIL 
ERRGCL 
ERRILC 
ERRILN 


000004  G 

000002 

000006 

000012 

000006 

000016 

000000  G 

000024 

000026 

000004  G 

000054 

000001 

000002  G 

000022 

000000 

004000  G 

000233 

000426R 

000007 

000022 

000026 

000030 

000004 

000020 

000016 

000062 

000060 

000004 

000032 

000061 

000106 

000014 

000004 

000013 

000012 

000010 

000020 

000006 

000013 

000012 

000014 

000004 

000004 

000032 

000030 

000040 

000016 

000034 

000026 

000001 

002336RG 

002507RG 

002101RG 

002245RG 

002163RG 

002133RG 

002216RG 


ERRLn 
ERRNOD 
ERROUT 
ERRPNA 
ERRPRC 
ERRSYN 
EX$ERR= 
EX$SEV= 
EX$SUC= 
EX$WAR= 
E2.BEA= 
E2.BRT= 
E2.INA= 
E2.INC= 
E2.NSP= 
E2.0UT= 
E2.RET= 
003  E2.R0U^- 
E2.SEG= 
FD.CR  = 
FL.ADD= 
FL.CRE= 
FL.DDM= 
FL.DLC= 
FL.DLH= 
FL.KMX= 
Fl.!.LC  = 
FL.LMC-- 
FL.HFL= 
FL.MTP= 
FL.MUX= 
FL.NAM= 
FL.PVC= 
FL.SLV^ 
FL.SNA= 
FL.TIM= 
FL.TRB= 
FL.THI= 
FL.X25= 
FO.UPD= 
FO.WRT= 
FX.DIR= 
FX.DLN= 
FX.DMX= 
FX.LEN= 
F.ACTL= 
F.ALOC= 
F.BBFS= 
F.BD8  = 
F.BGBC= 
F.BKDN= 
F.BKDS= 
F.BKEF= 
F.BKP1= 
F.BKST= 
F.BKVB= 
F.CHR  = 


002445RG 

002554RG 

002303RG 

002616RG 

002400RG 

002054RG 

000002 

000004 

000001 

000000 

000002 

000001 

000010 

000020 

000174 

000040 

000100 

000003 

000004 

****** 

002000 

001000 

000001 

000002 

000200 

000020 

000004 

000100 

000010 

000400 

000040 

004000 

004000 

001000 

040000 

000200 

020000 

010000 

002000 


000004 
000003 
000002 
000000 
000076 
000040 
000062 
000070 
000057 
000026 
000020 
000050 
000051 
000024 
000064 
000075 


G 

G 

6 

G 

G 

G 

G 

G 

G 

GX 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

GX 

GX 


F.CNTG= 
F.DFNB= 
F.DSPT= 
F.DVNM= 
F.EFBK= 
F.EFN  = 
F.E0BB= 
F.ERR  = 


EXT 
F.FACC= 
F.FF8Y= 
F.FLG  = 
F.FNAM= 
F.FNB  = 
F.FTYP= 
F.FVER= 
F.HIBK= 
F.LUN  = 
F.MBCT=: 
F.MBC1= 
F.MBFG= 
F.NRBD= 
F.NREC= 


0VBS= 

RACC  = 

RATT= 

F.RCNM= 

F.RCTL= 

F.R$IZ= 

F.RTYP= 

F.SEQN= 

SPDV= 

SPUN= 

STBK= 

UNIT  = 

URBD= 

VBN  = 

F.VBSZ= 

G.MCRB= 

IN$CHA= 

IN$COU= 

"JIEVE  = 

1NISTA= 

IN$SUM= 

I0.WVB= 

LF.BR0= 

LF.ENA= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.SER= 

LF.TIM= 

LF.X2P= 

LUNX  = 

LUN1   = 

LUN2  = 

LUN3  = 


000034 
000046 
000044 
000134 
000010 
000050 
000032 
000052 
000072 
000043 
000014 
000074 
000110 
000102 
000116 
000120 
000004 
000042 
000054 
000055 
000056 
000024 
000030 
000030 
000016 
000001 
000034 
000017 
000002 
000000 
000100 
000072 
000074 
000036 
000136 
000020 
000064 
000060 
000002 
000004 
000006 
000010 
000002 
000000 

****** 

000100 
000001 
000002 
000010 
000004 
000200 
000020 
000040 
000006 
000001 
000002 
000003 
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SYMBOL 

VALUE 

REFERENCES 

UNSSCS 

=  000400 

G 

#12-1196 

UtNCSR 

00001? 

(i 

#9-408 

USNCST 

00001 '. 

G 

#9-409 

USNCWO 

000006 

G 

#9-406 

USNCWl 

000010 

G 

#9-407 

UtNDPR 

000016 

G 

#9-410 

USNLEN 

=  000026 

G 

#9-414 

USNPCH 

000024 

G 

#9-413 

U$NUNT 

000004 

G 

#9-405 

UC.CIR 

=  000017 

G 

#11-753 

UC.CNT 

=  000002 

G 

#11-749 

WC.EVE 

=  000001 

G 

#11-757 

WC.LIN 

=  00001? 

G 

#11-752 

UC.LOG 

=  000002 

ti 

#11-7^3 

UC.NAM 

=  000001 

G 

#11-748 

UC.NOD 

=  000001 

G 

#11-756 

UC.OBJ 

=  000001 

G 

#11-755 

WC.PRO 

=  000001 

G 

#11-754 

WC.TRI 

=  000010 

G 

#11-751 

WC.UNT 

--  000004 

G 

#11-750 

W.TSEF 

=  000002 

6-95  „ 

XA.DST 

=  000001 

G 

#11-998 

XA.KND 

=  000002 

G 

#11-999 

XA.NUM 

=  000004 

G 

#11-1000 

XP.BIL 

=  000004 

G 

#11-975 

XP.CHN 

=  000001 

G 

#11-961 

XP.CLT 

=  000002 

G 

#11-941 

XP.COU 

=  0000C2 

G 

#11-962 

XP.CTM 

=  000001 

G 

#11-940 

XP.CUG 

=  040000 

G 

#11-970 

XP.DFB 

=  000004 

G 

#11-942 

XP.DFW 

=  000010 

G 

#11-943 

XP.DTA 

=  000001 

G 

#11-973 

XP.DTE 

=  010000 

G 

#11-958 

XP.<ND 

=  020000 

G 

#11-959 

XP.KNG 

=  100000 

G 

#11-971 

XP.LIN 

=  000004 

G 

#11-963 

XP.LV3 

=  003777 

G 

#11-953 

XP.MCI 

=  000010 

G 

#11-964 

XP.MRE 

=  000100 

G 

#11-946 

XP.f-iXB 

=  000020 

G 

#11-944 

XP.MXC 

=  000040 

G 

#11-945 

XP.MXR 

=  000200 

G 

#11-947 

XP.MXW 

=  000400 

G 

#11-948 

XP.NNA 

=  004000 

G 

#11-951 

XP.NUM 

=  000002 

G 

#11-974 

XP.RET 

=  001000 

G 

#11 -9' 9 

XP.RST 

=  002000 

G 

#1--950 

XP.STA 

=  000020 

G 

#•1-965 

XP.ST1 

-  000040 

G 

#1-966 

XS.CLM 

=  000020 

G 

#11-987 

XS.CLV 

=  000040 

G 

#11-988 

11-1000 


11-953 

11-953 

11-953 
11-953 


11-954         #11-954 

11-953 
11-953 
11-9:3 
11-954 
11-954 


11-954 

11-954 

11-979 

11-980 

11-1009 

11-1010 


mc  d  T^^ 


MA  rcin 


0L._  M  iM-Q*^     AT     n/.  .  t^A 


E     3 
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Symbol  table 


CL.CMT= 

».«♦*«  GX 

PRMPT   OOOOOOR 

$CLIOS= 

****** 

GX 

ERRFIL= 

•♦*♦«*  GX 

SBUFF  =  ******  GX 

$CLPMT= 

****** 

bX 

ERRGCL= 

******  GX 

$BYTE  =  «**«*»  GX 

$EXSTS= 

****** 

GX 

EX$SUC= 

******  GX 

ICFERR=  ***•*•  GX 

$GCLEP= 

****** 

GX 

IE. EOF  = 

******  GX 

SCFINI  000024RG 

$H1VBN= 

****** 

GX 

PAR$$$= 

0C0027 

$CLFLG=  ******  GX 

$]FDB  = 

****** 

GX 

.  ABS. 

OOOC  ,,J 
000254 

000 
001 

(RW,1,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 

Errors 

detected: 

0 

$IOPcN=  ******  GX 
$LOVBN=  ******  GX 
$OFDB  =  ******  GX 
SOPENI  =  ******  GX 
$TMSTB=  ******  GX 


$XXINI=  ******  GX 


.CLOSED 

****** 

G 

.DELET= 

****** 

G 

.FINIT= 

****** 

G 

MARK  = 

****** 

GX 

•♦*  Assembler  statistics 


Work   file   reads:  0 

Work  f i le  writes:  0 

Size  of  work  file:  8840  Words  (  35  Pages) 

Size  of  core  pool:  14440  Words  (  55  PagesJ 

Operating  system:  RSX-11M/PLUS 


SY:rFEINr.V2!c°32??34]CFEINi/CR/-SP=SY:[1,i:RSXMCM.3ML/ML,i;i30,110]NETLI6/ML,[132,10]CFEINl 


AT  n /  .  c A 


E  4 


CFEOPN  -  FILE  I/O  ROUTIMES 


58 
59 
60 
61 
62 
63 
M 
65 
66 
67 
68 

69  000000 

70  000000 

71  000000 
72 

73  000000 

74  000030 
75 

76  000122 

77  000034 

78  000156 

79  000300 
80 


D  i 
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LIBRARY  MACRO  CALLS 


.MCALL   CSI$i ,CSI$2,FD0P$R,0PFN$W,PUT$,CSI$ 
.MCALL  GETS, OPENSR, FDOFSL, NBOFSL, QlOWt, DIRS 


DEFINE  CSI  OFFSETS 
DEFINE  FDB  OFFSETS 
nF^I^'?  NAME  BLOCK  OFFSETS 


•  **** 
;•  LOCAL 

;  *  *  *  * 

DATA 

CSIS 

FDOFSL 

NBOFSL 

RATDPB: 
I0S8: 

QIOUS   10. RAT, 0,1, 
.BLKW   2 

,IOSd, 

SBUFR:: 
SeUFl:: 
CSBLK: 

BUFSZ=82. 
.BLKS   BUFSZ 
.BLKB   BUFSZ 
.BLK8   C.SIZE 
.EVEN 

,<SIFDB+F.FNB+N.FID,$FIATR> 


OUTPUT  BUFFER  SIZE 
OUTPUT  FILE  BUFFER 
INPUT  FILE  BUFFER 
CSI  CONTROL  BLDlK 


i/nt;  n7K  c^f, 


i,,n-RR  fli-';? 


CFEPRG  -  PERFORM  PURGE  COMMAND 
LOCAL  SYMBOL  DEFINITIONS 

129 

1?0 

131 

152 

133 

134       000013 

135 

136 

137 

138  000040 

139  OOOCCO 
KO  000000 

141  000002 

142  000004 

143  000006 

144  000016 

145  000020 

146  000214 
147 


.^7 
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.SBTTL  LOCAL  SYMBOL  DEFINITIONS 
**** 
LOCAL  SYMBOL  DEFINITIONS 


OBJLEN  ^  13 

DEFINE  EVENT  TEMPLATE  BLOCK 


C.CLS 
C.EVT 
C.SNK 
EVTLEN; 


.ASECT 

.=0 

.3LKW 

.BLKW 

.8LKW 

.BLKW 

.BLKW 

.PSECT 


LENGTH  OF  OBJECT  TEMPLATE 


LINK  WORD 
STATUS 
EVENT  CLASS 
EVENT  MASKS 
SINK  TYPE 


E  6 


D     7 


•f  ;lf.**id»*cfeprs 


CCCCCCCC   F 

FFFFFFFFf 

EEEEEEEEEE 

pppppppp 

RRRRRRRR 

SSSSSSSS 

CCCCCCCC   F 

FFFFFfFFF 

EEEEEEEEEE 

pppppppp 

RRRRRRR,? 

SSSSSSSS 

CC          F 

EE 

PP      PP 

RR      RR 

SS 

CC          F 

EE 

PP      PP 

RR      RR 

SS 

CC          F 

EE 

PP      PP 

RR      RR 

SS 

CC          F 

EE 

PP      PP 

RR      RR 

SS 

CC          F 

FFFFFFF 

EEEEEEEE 

PPPPPPPP 

RRRRRRRR 

ssssss 

CC          F 

FFFFFFF 

EEEEEEEE 

pppppppp 

RRRRRRRR 

ssssss 

CC          F 

EE 

PP 

RR  RR 

ss 

CC           F 

EE 

PP 

RR  RR 

ss 

CC           F 

EE 

PP 

RR    RR 

ss 

CC           F 

EE 

PP 

RR    Rfi 

ss 

CCCCCCCC   F 

EEEEEEEEEE 

PP 

RR      RR 

SSSSSSSS 

CCCCCrcC   F 

EEEEEEEEEE 

PP 

RR      RR 

SSSSSSSS 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

S^ 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

-\C       A7L       T 


E      7 

_BC    1  /.  . no 


CFEPRS  -  STATE  TABLES  TO  PARSE 
PURGE  CbrtPONENTS 

5^6  ooooro 

547  000000 
■'ji,8   000000 

550 
551 

552  100000 

553  JOOOOO 

554  000000 

555  000000 

556  000000 
557 
558 
559 
560 

561  000000 

562  000000 

563  000000 
56A  000000 
565  OOOOOC 
566 
567 
568 
569 
570  000000 


571 


000000 
572  000000 
573 

574  000000 

575  000000 

576  000000 
577 

578  COOOOO 

579  000000 
580 

581 
582 
583 

584  000000 

585  000000 
586 

587  OOOOCG 

588  000000 

589  000000 
590 

591 
592 
593 

594  000000 

595  000000 
596 

597  030000 

598  000000 
599 

60C 
601 
602 
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TRANS  SLAMDA 

STATES  PNSPA2 

TRANS  &KSPAS,  SEXIT 

Purge  Secondary  [loader] 

STATES  PNSLO 

TRANS  &KSSEC 

STATES 

TRANS  &KSL0AD, SEXIT 

TRANS  SLAMDA,  SEXIT 


Purge  Tertiary  [loader] 

STATES  PNTLO 

TRANS  8KSTER 

STATES 

TRANS  gKSLOAD, SEXIT 

TRANS  SLAMDA,  SEXIT 


;  Purge 

Load  fi 

Le  (  Load  [file 

STATES 
TRANS 
TRANS 

PNLOD 

8KSL0AD,PNL0D2 
SLAMDA,  PNL0D3 

STATES 
TRANS 
TRANS 

PNL0D2 

&KSFIL,  SEXIT 
SLAMDA,  SEXIT 

STATES 
TRANS 

PNL0D3 

axSFiL,  SExir 

;  Purge 

Diagnostics  [file] 

STATES 
TRANS 

PNDIA 
RKSDIAG 

STATES 
TRANS  8KSFIL,  SEXIT 
TRANS  SLAMDA,  SEXIT 


Purge  Dump  f i le 


STATES 
TRANS 

STATES 
TRANS 


PNDMP 
SKSDMP 

.SPSDMPO 
kSFIL,  SEXIT 


LOGGING  OPTIONS 


CTATC     TADI  CC     TO    DADCC        MATCn    \/A^    Ci'Kh    TiipcHav    n?-.l 


E    B 

-R5    U-.nfi      PsQP   6-3 


CFEPRS  -   STATE   TABLES   TO  PARSE 
DEFINE    CIRCUIT   COMMAND 

1208  000000 

1209 

1210 

1211 

1212 

1213  000000 

12U  000000 

1215  000000 

1216  OOC300 

1217  000000 

1218  000000 
1219 
1220 
1221 
1222 

1223  0'',000 
122A  01 0000 
1225 

1226  000000 

1227  000000 

1228  000000 
1229 
1230 
1231 

1232  OOOOOO 

1233  OOOOOO 
1234 

1235  OOOOOO 
U36  OOOOOO 
1237 
1238 
1239 

12'40  OOOOOO 
1241  OOOOOO 
1242 

1243  OOOOCO 

1244  OOOOOO 
1245 
1246 
1247 
1248 

1249  OOOOOO 

1250  OOOOOO 
1251 

1252  OOOOOO 

1253  OOCOOO 
1254 

1255  OOOOOO 

1256  OOOOOO 
1257 
1258 
1259 

1260  OOOOOO 

1261  OOOOOO 

1262  OOOOOO 

1263  OOOOOO 
1264 


0  9 
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TRANS  SDNUMB,  SEXIT,   .CIRPR 

CIRCUIT  SERVICE  [ENABLED/DISABLED] 

STATES  CJSER 

TRANS  aKSSER 

STATES  ,8P$SER 

TRANS  SKSENA,  SEXIT,,        SW.SEN,  SSWICH 

TRANS  8K$DIS,  SEXIT,,        SW.SDI,  SSWICH 

TRANS  SLAMDA,  SFAIL,  SCLERR,  ERRIPV,  SERROR 


•  LOOK  FOR  CIRCUIT  STATE 

STATES  CSTATE 
TRANS  KKSSTA 

STATES  .SPSCIST 
TRANS  SKSON,   SEXIT 
TRANS  8KS0FF,  SEXIT 

,  SU.LOAISW.ENA, 
,  SW.LOA, 

SSWICH 
SSWICH 

•  LOOK  FOR  CIRCUIT  COST 

STATES  COST 
TRANS  &KSCOS 

STATES   ,aP$COS 
TRANS  SDNUMB, SEXIT, 

CICOS 

■  LOOK  FOR  TRIBUTARY  ADDRESS 

STATES  TRI6 
TRANS  £KSTRIB 

STATES   .8PSTRIB 
TRANS  SDNUMB..  SEXIT, 

CITRI 

;  MULTI-POINT  ACTIVE 

STATES  APR 
TRANS  8KSMUL 

STATES  .RPSMUL 
TRANS  SKSACT 

STATES   ,&PSACT 
TRANS  SDNUMB, SEXIT, 

.CIACT 

;  CHAN'    NUMBER 

STATES  CHN 

TRANS  &KSCHN 
STATES  .SPSCHN 

TRANS  SDNUMB,SEX!T, 

.CI CHN 

-ccoDc    _    CTAC    TADicc    TH    D/vDCf:       MArDPi    \iC\^    OJh    TiiocH;*v    OP- 


E     9 
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CTEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  OBJECT  COMMAND 

19K 
1915 
1916 
1917 

1918  000000 

1919  000000 
1920 

1921  000000 

1922  000000 
1923 

1924  000000 

1925  000000 

1926  000000 
1927 
1928 
1929 

1930  000000 

1931  000000 

1932  000000 

1933  000000 
193A  000000 
1935 
1936 
1937 

1938  000000 

1939  000000 
1940 

1941  000000 

1942  000000 
19^3 
1944 
1945 

1946  000000 

1947  000000 
1948 

1949  000000 

1950  000000 

1951  000000 
1952 
1953 
1954 

1955  000000 

1956  000000 
1957 

1958  000000 

1959  000000 

1960  000000 
1961 
1962 
1963 

1964  000 JOO 

1965  000000 
1966 

1967  000000 

1968  000000 

1969  000000 

1970  000000 
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;  DEFINE  OBJECT 

COMMAND 

STATES 
TRANS 

DEFOBJ 
I08JIC,,, 

CO. OBJ, 

SCOMP 

STATES 
TRANS 

,6PSDE0B 
lOBJOPT 

STATES 
TRANS 
TRANS 

OBJO 

I03JOPT,OBJO 
SLAMDA,  iEXIT 

•  OBJECT  OPTIONS 

S-.ATES 
TRANS 
TRANS 
TRANS 
TRANS 

OBJOPT 

lONAME,  SEXIT,, 
ICOPY,   SEXIT, 
lUSER,  SEXIT, 
lOVFV,   SEXIT, 

00. NAM, 
00. COP, 
OO.USR, 
OO.VFY, 

SOPRND 
SOPRND 
SOPRND 
SOPRND 

■  OBJECT  NAME 

STATES 
TRANS 

ONAME 
SKSNAM 

STATES 
TRANS 

.aPSONAM 
SRAD50,  SEXIT, 

. OBNAM 

;  COPIES 

STATES 
TRANS 

COPY 
8KSC0P 

STATES 
TRANS 
TRANS 

.8PSC0P 
iKiSlN.   SEXIT 
SDNUMB,  SEXIT, 

.OBCOP, 

SW.SMC 

;  USER  (DEFAULT/LOGIN) 

STATES 
TRANS 

USER 
SKSUSE 

STATES 
TRANS 
TRANS 

,&PSUSE 
kSDFA,  SEXIT 
8KSL0GI, SEXIT, 

,  SW.RLU, 

SSWICH 

■  VERIFICATION 

STATES 
TRANS 

OVFY 

;k«;v3R 

STATES 
TRANS 
TRANS 
TRA^J$ 

,&PSOVER 
kSUN,   SEXIT 
8KS0FF,  SEXIT, 
8KSINS,  SEXIT, 

,  2, 

,  1, 

SVLVL 
SVLVL 

SSWICH 


jrx    nAncc        MArDn     \lf\^     Cilk     Ti 


i-ss  u-ni 


Pano    11-1 


CFEPRS  -  STATE  TABLES  TO  PARSE 
UTILITY  SUBEXPRESSIOMS 

25A1  000000 

2542  000000 

2543  000000 
2544 
2545 
2546 

2547  000000 

2548  000000 

2549  000000 

2550  000000 

2551  000000 
2552 
2553 
•2554 

2555  000000 

2556  000000 

2557  000000 

2558  000000 

2559  000000 
2560 
2561 
2562 

2563  000000 

2564  000000 
2565 
2566 
2567 

2568  000000 

2569  000000 

2570  000000 

2571  000000 

2572  000000 

2573  000000 

2574  000000 

2575  000000 

2576  000000 

2577  000900 

2578  000000 

2579  000000 
2580 
2581 
2582 

2583  OOOOCO 

2584  000000 

2585  OOOCJO 

2586  000000 

2587  000000 

2588  COOOCO 

2589  POOOOO 

2590  000000 

2591  000000 

2592  OOOOCO 

2593  000000 

2594  000000 
2595 
2596 
2597 
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STATES 
TRANS 
TRANS 


aKSSRV, 
SLAMDA, 


BLAUT 


.8L.AU3 
SUBEXPRESSION  TO  MATCH  MODULE  X25-ACCESS 


STATES 
TRANS 

STATES 
TRANS 
TRANS 


MODXAC 
IMX25 

&KSACC,  BLAUT 
SLAMDA,, 


.BL.AU3 
SUBEXPRESSION  TO  MATCH  MODULE  X29-SERVER 


STATES 
TRANS 

STATES 
TRANS 
TRANS 


M0DX29 
IMX29 

P.^SSRV,  BLAUT 
SLAMDA,, 


.8L.AU3 
SUBEXPRESSION  TO  TURN  ON  AUTOMATIC  BLANK  PARSING 


STATES 
TRANS 


BLAUT 
SLAMDA, 


SEXIT,  $BL.A3T 
SUBEXPRESSION  TO  MATCH  "[MODULE]  X25-' 


STATES 

MX25 

TRANS 

SKSMOD, 

MX25A 

TRANS 

SLAMDA, 

HX25B 

STATES 

MX25A, 

SPSMOD 

TRANS 

SEOS, 

MX25A 

TRANS 

SLAMDA 

STATES 

MX25B 

TRANS 

8KSX25 

STATES 

TRANS 

SLAMDA , 

SBL.MN 

STATES 

TRANS 

<'->, 

SEXIT 

SUBEXPRESSION 

TO  MATCH  "[MODULE]  X29 

STATES 

MX29 

TRANS 

SKSMOD, 

MX29A 

TRANS 

SLAMDA, 

MX29B 

STATE! 

MX29A, 

8PSM0D 

TRANi 

SEOS, 

MX29A 

TRANS 

SLAMDA 

STATES 

MX  2  98 

TRANS 

aK$X29 

STATES 

TRANS 

SLAMDA, 

SBL.MN 

STATES 

TRANS 

<'->, 

SEXIT 

;  MAXIMUM  WINDOW 


E  11 
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**F1LE"1D>«CFER0T 


CCCCCCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

RRRPRRRR 

000000 

TTTTT 

TTTTT 

CCCCCCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

RRRRRRRR 

000000 

TTTTT 

TTTTT 

EE 

RR     Rfi 

00 

00 

EE 

RR     Rfi 

00 

00 

EE 

RR     RR 

00 

00 

EE 

RR      RR 

00 

00 

FFFFFFF 

EEEEEEEE 

RRRRRRRR 

00 

00 

FFFFFFF 

EEEEEEEE 

RRRRRRRR 

00 

00 

EE 

RR  RR 

00 

00 

EE 

RR  RR 

00 

00 

EE 

RR    RR 

00 

00 

EE 

RR    RR 

00 

00 

CCCCCCCC    F 

EEEEEEEEEE 

RR      RR 

000000 

CCCCCCCC    F 

EEEEEEEEEE 

RR      RR 

000000 

LL 

Sf  .sssss 

TTTTTTTTTT 

LI 

ssssssss 

TTTTTTTTTT 

LL 

ss 

.L 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

Ll 

ss 

ss 

!  L 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

rc cnnr 


Dnnr    ccrMCMT    cnD    rcp 


E  12 
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MACRO  CALLS 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

6? 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91  000000 

92  000000 

93  000006 

94  000012 

95  000014 

96  000030 

97  000032 

98  000036 

99  000042 

100  000046 

101  000052 

102  000056 

103  000062 

104  000070 

105  000072 
106 

107  000074 

108  000076 

109  000100 


.SBTTL  $RQ6F  -  REQUEST  CORE  BLOCK  WITH  TASK  EXTENSION 

•*-$R08F-REQUEST  CORE  BLOCK  WITH  TASK  EXTENSION 

THIS  ROUTINE  IS  CALLED  TO  REQUEST  A  CORE  BLOCK  FROM  THE  FREE  LIST. 
THE  SELECTION  IS  MADE  EITHER  FIRST  FIT  OR  BEST  FIT  ACCORDING  TO  THE 
THE  INPUT  PARAMETERS.  IF  THERE  IS  NOT  ENOUGH  SPACE  IN  THE  BU.'FER  POOL, 
AN  ATTEMPT  IS  MADE  TO  EXTEND  THE  TASK  TO  INCREASE  THE  AVAILABLE  BUFFERS. 


INPUTS: 


RO=ADDRESS  OF  FREE  BLOCK  LIST  HEAD. 
R1=SIZE  OF  BLOCK  REQUESTED  IN  BYTES. 

IF  R1  IS  GE  0,  THEN  BEST  FIT  IS  USED. 

If  R1  IS  LT  0,  THEN  FIRST  FIT  IS  USED. 

IN  EITHER  CASE  THE  MAGNITUDE  OF  R1  IS  THE  SIZE  OF  THE  BLOCK. 

SXXBUF  =  ADDRESS  OF  BUFFER 
SXXLEN  =  LENGTH  OF  BUFFER  POOL 


OUTPUTS: 


004767 
103030 

103414 
016600 
016702 
066702 
012701 
060167 
004767 

103343 
000207 

022626 
005726 
000207 


000174 


000004 

OOOOOOG 

OOOOOOG 

002000 

OOOOOOG 

000020 


C=1  IF  REQUEST  CANNOT  BE  FULFILLED. 
C=0  IF  REQUEST  IS  SATISFIED. 

RO=ADDRESS  OF  REQUESTED  CORE  BLOCK. 

JXXBUF,  SXXLEN  ARE  UPDATED, 


JRQBF: 

10$: 

SAVRG 

<R0,R1,R2> 

CALL 

.RQC8 

BCC 

20$ 

EXTK$S 

#.EXINC 

BCS 

15$ 

MOV 

4(SP),R0 

MOV 

$XX8UF,R2 

ADD 

$XXLEN,R2 

MOV 

#.EXINC*64. 

ADD 

R1,$XXLEN 

CALL 

$RLBF 

15$: 

RESRG 

<R2,R1,R0> 

BCC 

10$ 

RETURN 

20$: 

CMP 

(SP)+,(SP)t 

TST 

(SP)  + 

RETURN 

,R1 


SAVE  PARAMETERS  IN  CASE  OF  FAILURE 
TRY  TO  ALLOCATE  OUT  OF  BUFFER  POOL 
IF  CC,  SUCCESS 
ELSE  TRY  TO  EXTEND  TASK 
IF  CS,  DIRECTIVE  FAILED 
ELSE  POINT  TO  FREE  LISTHEAD, 
CALCULATE  ADDRESS  OF 
EXTENSION 
GET  SIZE  OF  EXTENSION 
EXTEND  BUFFER  POOL  SIZE 
LET  CORAL  PUT  IT  ON  LIST 
RESTORE  SAVED  REGISTERS 
IF  CC,  TRY  AND  ALLOCATE  AGAIN 
ELSE  RETURN  FAILURE 

CLEAN  UP  STACK  ... 

...  RETURN  CLEAR  CARRY 
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fFESTB   - 
STALOC    - 

204 

206 
207 
208 
209 
210 
211 
212 
213 
2H 
215 
216 
217 
218 
219 
220 
221 


STATt    TABLES   10  READ    I   MACRO  V05.03b  Saturday  29-Jun-6. 
ALLOCATE    TEMPLATES 


05:13 
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.S8TTL      STALOC    -  ALLOCATE    TEMPLATES 

»•♦   -  STALOC    -  ALLOCATE    TEMPLATES  OR   EXIT   ON  ERROR 

INPUTS: 

Rl    =   LENrTII  OF    ALLOCATION  REQUEST 

OUTPUTS; 

RO  =  ADDRESS  Of  ALLOCATED  BUFFER 


00OK6 

000U6  012700  OOOOOOG 

000152  004767  000012 

000156  012701  OOOOOOG 

000162  004767  OOOOOOG 

000166  000207 


STALOC:: 


MOV  i»$XXAVL,R0 

CALL  ST1ALC 

MOV  #STriLST,R1 

CALL  SQINS 
RETURN 


GET   ADDRESS   OF    END   OF    TASK   LISTHEAD 
TRY   TO  ALLOCATE   BLOCK 
GET   TEMPLATE   LISTHEAD 
INSERT    TEMPLATE    INTO  LIST 


E  H 
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CFESUB  -  COMMON  SUBROUTINES 
SMVASC  -  MOVE  ASCII  STRING 

219 
220 
221 
222 
223 
22A 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23^!. 
235 
235 
257 

238  000164 

239  000164     005702 

240  000166     003403 

241  000170     112120 

242  000172     005302 

243  000174     003375 

244  000176     000207 
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.SBTTL  SMVASC  -  MOVE  ASCII  STRING 

*•*  -  SMVASC  -  MOVE  ASCII  STRING 

SUBROUTINE  TO  MOVE  ASCII  STRINGS 

INPUTS: 

RO  =  OUTPUT  BUrfFR  POINTER 
R1  =  INPUT  BUFFER  POINTER 
R2  =  NUMBER  OF  BYTES  TO  MOVE 

OUTPUTS: 

RO  =  NEXT  LOCATION  IN  OUTPUT  BUFFER 
R1  =  NEXT  LOCATION  IN  INPUT  BUFFER 
R2  =  DESTROYED 


SMVASC: 


lOS: 


20S: 


TST 

R2 

EMPTY  SIRING  ? 

BLE 

20S 

IF  LE,  YES  -  LEAVE 

MOVB 

(Rl)t 

(RO)t 

MOVE  THE  NEXT  BYTE 

DEC 

R2 

ALL  DONE  ? 

BGT 

10S 

IF  GT,  NO  -  LOOP 

RETURN 

CFESUB  -  COMMON  SUBROUTINES 
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CFESUB  -  COMMON  SUBROUTINES 
Symbol  table 


L.RIQ 

L.RTYO 

L.RTYI 

L.SEC 

L.SEGZ 

L.STA 

L.TC 

L.TK 

L.TIPD 

L.TIPI 

L.TMRD 

L 

L 

L 

L 

L 

I 

L 

L 
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000060 

O.TYP 

000002 

S$TIM 

000055 

PRINT 

000014R 

S$TMR 

000057 

Q.10FN= 

•♦*»••  GX 

S$UND 

000064 

Q.!OPL= 

>«••••  GX 

S.ADD 

000076 

RF.LOO= 

100000 

S.CIR 

000000 

R$DAL 

0000  3 

S.DEV 

0000A2 

R$DTE 

000014 

S.DIA 

0OO0A3 

R$LEN 

000024 

S.DPA 

000013 

R$LENX= 

000024  G 

S.DPC 

000012 

R$LNK 

000000 

S.DUM 

000054 

RSNAM 

000002 

S.FLAG 

000056 

R$OWN 

000010 

S.HAD 

000001 

R.ADD 

000010 

S.HST 

000125 

R.FLAG 

000012 

S.LENG 

00002A 

R.I.EN 

000014 

S.LENX= 

000036 

R.LENX= 

OOOOK  G 

S.LNK 

000015 

R.LNK 

000000 

S.LOA 

000040 

R.NAM 

000002 

S.PSS 

000130 

SF$BLK= 

000001 

S.SEC 

000040 

SF$1NC= 

O0C0O2 

S.TER 

000000 

SF.CIR= 

000010 

TSFLAG 

000020 

SF.DEV= 

000020 

TSLIF 

000040 

SF.DIA= 

004000 

TSLIFL 

000020 

SF.DPA= 

000100 

TSLIFO 

000100 

SF.DPC= 

000200 

T$LIFS 

0C006O 

SF.DUM= 

010000 

T$LIN 

000000 

SF.HAD= 

000004 

TSLIPS 

000140 

SF.HST= 

000002 

T$LLD 

000040 

SF.LOA= 

002000 

TSLLDC 

000100 

SF.PH3= 

020000 

TSLLDL 

000040 

SF.PSS= 

000040 

TSLLDO 

000020 

SF.SEC= 

000400 

rSMDS 

000004 

SF.TER= 

001000 

TSL.i^N 

000010 

ST$CC  = 

000004 

TSLOPR 

000000 

ST$CIR= 

000006 

TSLTCL 

000000 

ST$CIS= 

000002 

TSLTIM 

000001 

ST$DAT= 

000010 

TSLTPR 

000002 

ST$DIP= 

000012 

TSLTPS 

000000 

STSPND= 

00C014 

TJNAPL 

000002 

S$ADS2 

000007 

TSNFE 

000004 

SSCTL 

000002 

TSNLEN 

000001 

SSDTE 

000020 

TSNNUL 

000040 

S$FLG 

000010 

TSNOPL 

000100 

SSLEN 

000032 

TSNRNl 

000200 

S$LENX= 

000034  G 

TSNRPL 

000003 

S$LFT 

000012 

TSNRUL 

000012 

S$LNK 

000000 

T$MVR 

000014  G 

SSOWNR 

000030 

TSRPRl 

000000 

SSPKSZ 

000004 

T$SVC 

000004 

S$RCL 

000013 

T$T5 

000006 

SSSTA 

000003 

T$T6 

TMRI 

TYP 

'ILA 

USA 

USTA 

VER 

WIND 
_,XMTQ 
MA. CI  = 
MA. DA  = 
MA.IL  = 
MC.CC  = 
MC.Cl  = 
MC.DC  = 
MC.DI  = 
MC.NO  = 
MC.RC  = 
MD.BM  = 
MD.EM  = 
MD.ILS= 
MD.IM  = 
MF.ACK= 
MF.CTL= 
MF.DAT= 
NC.FMO= 
NC.FM1= 
NC.FM2= 
NS$DON= 
NS$SDI= 
NS$WDC= 
N$$SLI= 
OF.PRO= 
OF.RLU= 
OF.SMC= 
O.FLG 
O.LEN 
O.LENX= 
O.LNK 
O.MXC 
O.NAM 


.  ABS.   000150 
001454 
Errors  detected: 


000 
OCT 
0 


(RW,I,G8L,ABS,0VR) 
(RW,I,LCL,REL,CON) 


000014 

000016 

000006 

000004 

000016 

000020 

000046 

000032 

0r0036 

0^-0050 

000002 

000010 

000006 

000052 

00C054  I 

000000 

000044 

000022 

000040 

000042 

000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

000000 

000010 

000002 

000006 

000042 

000005 

000007 

000001 

000040 

000034 

000030 

000032 


US$CNF= 

US$DIS= 

US$D0N= 

US$DSC= 

US$EAC= 

US$WDS= 

WC.CNT= 

WC.NAM= 

UC.TRI= 

UC.UNT= 

XA$NCO= 

XA$RR  = 

XA$UCL= 

XA$URE= 

XF$NCO= 

XF$OFF= 

XF$ORI= 

XF$OTI= 

XF$TIL= 

XF$TIR= 

XT$CHN= 

XT$DGR= 

XT$FAS= 

XT$]NC= 

XT$OU'"^ 

XT$P-,C  = 

XtABQ 

X$ALF 

XSAUC 

X$CLEN= 

XSCTIM 

XJDIAG 

XSDTE 

X$FLG 

XSGLEN 

X$LCN 

X$LEN 

X$LENX= 

XSMOWN 

XSNLRE 

XSNNRE 

XSNPL 

X$NPR 

XSNRBY 

XSNRPK 

XSNRRE 

XSNTBY 

XSNTPK 

XSPKSZ 

X$PR 


mm 

000000 
000004 
000012 
000010 

****** 


000020 
000200 
000040 
000100 
000020 
000200 
000002 
000001 
000010 
000004 
000100 
000002 
000200 
000004 
000010 
000001 
000076 
000055 
000056 
000025 
000060 
000003 
000024 
000014 
000106 
000026 
000106 
000110 
000023 
000052 
000054 
0000J6 
OOOOD^ 
000032 
00':j42 
000053 
000036 
000046 
000016 
000011 


GX 
GX 
GX 
GX 


X$PRT 

X$PS 

X$RPR 

X$RPS 

XtRTRY 

X$RXI 

XSRXO 

X$SS 

X$ST 

XSTCLZ 

XSTIMC 

XSTIMR 

X$TXI 

X$IXQ 

X$TYP 

X$USR 

X$WAQ 

X$W3Z 

$CAT5 

SCFERR 

SCFERI 

$C5TA 

$C5TA1 

$DIV  = 

$DVNAM= 

$ERDPB= 

$EXSTS= 

$FLAGS= 

SFNPRO 

SFNSLT 

SFNSTA 

$MUL  = 

IMVASC 

$P8LK  = 

SPRINT 

$PRNAM= 

SQ'NS 

SQINSN 

$SAVAL= 

*S.",'.':;G= 

SSTAN  = 

$,iDPB= 

$TMLST= 

SUPBLK 

SWILD  = 

$$SHFT= 

$$$R  = 

.CAT5 

.CAT5E 

.FNSLT 


000021 
000010 
000013 
000012 
000002 
000104 
000072 
000004 
000005 
000030 
000001 
000000 
000102 
000066 
000015 
000022 
000062 
000020 
000442RG 
000062RG 
000106RG 
000244RG 
000234RG 
******  GX 
«*«*♦*  GX 
******  GX 
******  GX 
******  GX 
000634RG 
000730RG 
001172RG 
******  GX 
00016'.RG 
******  GX 
OOOOOORG 
******  GX 
000200RG 
00021 6RG 
******  GX 
******  GX 
GX 
GX 
GX 

001244RG 
******  GX 
000001 
000010 
000432RG 
000422RG 
000726RG 


****** 
****** 
****** 


■•*   Assembler   statistics 
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DEFINE  TEMPLATES  GLOBALLY 


Ea:55 
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667 

668 

669 

670 

671 

000001 

672 

000002 

673 

OOOOOA 

674 

000010 

6:'5 

000020 

676 

000040 

677 

000100 

678 

000200 

679 

000200 

680 

000400 

681 

001000 

682 

001000 

683 

002000 

684 

002000 

685 

004000 

686 

004000 

687 

010000 

688 

020000 

689 

040000 

***** 
FLAGS  BITS 


LOW  BYTE  SAME  AS  PROCESS  FLAGS 


PROCESS  IS  A  DDM 
PROCESS  IS  A  DLC_ 


FL.DDM 

== 

1 

FL.DLC 

r  = 

2 

FL.LLC 

=r 

4 

FL.MFL 

== 

10 

FL.KMX 

=  = 

20 

FL.MUX 

=  = 

40 

FL.LMC 

=  r 

100 

FL.TIM 

-  = 

200 

FL.DLM 

==; 

200 

FL.MTP 

=  = 

400 

FL.SLV 

=  = 

1000 

FL.CRE 

=  = 

1000 

FL.X25 

=  = 

2000 

FL.ADD 

=  = 

2000 

FL.PVC 

=  = 

4000 

FL.NAM 

rr 

4000 

FL.TRI 

== 

10000 

FL.TR8 

=  = 

20000 

FL.SNA 

-= 

40000 

PROCESS  IS  AN  LLC 

PROCESS  IS  MARKED  FOR  LOAD 

PROCESS  IS  A  KHC  MULTIPLEXER 

PROCESS  IS  A  MUX  DEVICE 

PROCESS  HAS  MICRO-CODE 

PROCESS  NEEDS  TIMER  SUPPORT 

CIRCUIT  IS  DATALINK  MAPPING  CIRCUIT 

LINE  IS  MULTI-POINT 

LINE  IS  A  SLAVE 

CIRCUIT  NEEDS  TO  BE  CREATED 

CIRCUIT  IS  AN  X25  CIRCUIT 

NODE  ADDRESS  GIVEN  IN  COMi*IAND 

CIRCUIT  IS  A  PVC 

NODE  NAME  GIVEN  IN  COMMAND 

TRIBUTARY  INFORMATION  NEEDED 

PRINT  TRIBUTARY  ADDRESS 

LINE  BELONGS  TO  SNA  GATEWAY 
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LUN4  = 

LUN5  = 

LSCNT 

L$LCTM 

LSLDEV 

LtLEXT 

LSLFLG 

L$LLEN= 

LSLLIN 

LiLNAM 

LSLNLT 

LtLPRI 

LSNAM 

L$TRI 

LSUNT 

HAXARE= 

MAXCST  = 

MAXHOP= 

MAXNN  = 

MXCSTL= 

NF$ACC= 

NF$EVT= 

NF.ACC= 

NF.BCP= 

NF.END= 

NF.EVT= 

NF.LLI= 

NF.LV2= 

NF.SLI= 

NF.SMC= 

NF.SWP= 

NO$EXA= 

NO$HOA= 

N.ANM1= 

N.ANM2= 

N.DID  = 

N.DVNH= 

N.FID  = 

N.FNAM= 

N.FTYP= 

N.FVER= 

N.NEX7= 

N.STAT= 

N.UNIT= 

OC.APR= 

OC.CHN- 

OC.CNT= 

CC.CST= 

OC.CTM= 

OC.DTE= 

OC.EXE= 

OC.HTM= 

OC.MBL= 

CC.MRC= 

OC.MWI= 

OC.MXR= 

OC.NUM= 


000004 

000005 

000002 

000016 

000012 

000015 

000006 

000020 

000011 

000004 

000014 

000010 

000000 

000006 

000004 

000077 

001776 

000035 

001777 

000031 

100000 

040000 

000001 

000040 

000200 

000002 

000004 

000100 

000400 

000020 

000010 

000400 

001000 

000002 

000024 

000024 

000032 

COOOOO 

OOOC06 

000014 

000016 

000022 

000020 

000034 

010000 

oooo4r 

000000 
000004 
000001 
000020 
002000 
002000 
000100 
001000 
OOOOIO 
004000 
100000 


OC.NWC= 

OC.PVC= 

OC.RPR= 

OC.RTM= 

OC.SLT= 

OC.STA= 

OC.STN= 

OC.SVC= 

OC.TRI= 

OC.UNT= 

OC.USG= 

OC.X25= 

OE.ACO= 

OE.ADD= 

OE.AHO= 

OE.AMA= 

OE.HOS= 

OE.ID  = 

OE.LNK= 

0E.LV2= 

0E.MXC= 

OE.MXH^ 

0E.NAM= 

0E.NC0= 

OE.NN  = 

0E.N0D= 

0E.NSP= 

OE.ROU= 

OE.RTM= 

OE.SUB= 

OE.VFY= 

OL.BAU= 

OL.BSZ= 

OL.CNT= 

OL.CSR= 

OL.CTM= 

OL.DPR= 

OL.HBT= 

OL.NWC= 

OL.PLX= 

OL.PRI= 

OL.RTC= 

OL.RiT= 

OL.SEC= 

OL.SLT= 

OL.STA= 

0L.S1N= 

OL.UNT= 

OL.URM= 

OL.VEC= 

OL.WSZ= 

OL.X25= 

OH.CON- 

OM.EVE= 

OW.FIL= 

OM.KEV= 

OM.MON= 


000240 

000060 

040000 

000400 

046002 

000002 

010204 

101400 

000200 

010204 

020000 

101570 

040000 

000002 

020000 

010000 

001000 

000004 

000010 

070000 

000020 

000040 

000001 

000200 

000100 

001007 

000610 

072160 

002000 

004000 

000400 

000040 

020000 

000624 

000200 

000001 

001000 

002000 

000320 

000010 

000004 

004000 

040000 

000100 

000003 

000002 

OOOPOO 

001150 

000400 

000020 

010000 

076000 

000004 

000020 

000010 

000040 

000002 


0,^.STA= 

ON.ADD= 

ON.NAM= 

OO.COP= 

OO.NA/«l= 

OO.USR= 

OO.VFY= 

OP.NCT= 

OP.NLT= 

OP.SIA= 

OS.BLK= 

OS.BUF= 

OS.BYT= 

0S.CC8= 

0S.L0C= 

0S.NAM= 

OS.PAR= 

OS.PRT= 

OS.RBN= 

OS.RBS= 

0S.S8N= 

OS.THR= 

PVIOWN= 

PV$PSZ= 

PV$WSZ= 

PSSFLG 

P$SLEN= 

PSSNAM 

PSSPOR 

PSSTHl 

PSSTLO 

PSVCT 

PSVFLG 

PSVLCN 

P$VLEN= 

PSVNAM 

PSVOWN 

PSVPSZ 

PSVSTA 

PSVUSZ 

Q.IOAE= 

Q.]OEF= 

Q.]OFN= 

Q.IOLU= 

Q.IOPL= 

O.IOPR= 

Q.IOSB^ 

RE$ARE= 

RN.DCT=: 

RN.DiA= 

RN.DMP= 

RN.DPA= 

RN.HAR= 

RN.HOS= 

RN.LOD= 

RN.NAM= 

RN.SCI= 


000001 

000001 

00"001 

000400 

002000 

000200 

001000 

000004 

000002 

000001 

001000 

000370 

000400 

000010 

000001 

000002 

000004 

001407 

000020 

000040 

000100 

000200 

000400 

001000 

002000 

000012 

000020 

000004 

000010 

000016 

000014 

000012 

000022 

000010 

000024 

000004 

000020 

000014 

000023 

00C016 

000012 

000006 

000002 

000004 

000014 

000007 

000010 

000400 

000100 

020000 

040000 

000040 

000400 

000004 

010000 

000002 

000200 


RN.SDV= 

RN.SL0= 

RN.SNV= 

RN.SPA= 

RN.TLO= 

RN.yXX= 

RSDADR 

R$DLEN= 

RSDNAM 

R.VAR  = 

SF.ENA= 

SF.MFL= 

SF.SER= 

SF.SVC= 

SL$BRA= 

SL$CTM= 

SL$HrM= 

SL$RPR= 

SL$TYP= 

SP.ACC= 

SP.CIR= 

SP.DAT= 

SP.KNA= 

SP.KPU= 

SP.MLU= 

SP.MOD= 

SP.PLU= 

SP.PSW= 

SP.SID= 

SP.SLU= 

SP.SPU= 

SP.UID= 

SP.XID^ 

ST$HTM= 

SV$DTE= 

SV$PSZ= 

SV$WSZ= 

SW.ENA^ 

SW.FUL= 

SW.INC= 

SW.LOA= 

SW.LON= 

SW.OUT= 

SU.PUR= 

SW.RLU= 

SW.SDI= 

SW.SEN= 

SW.SLT= 

SW.SMC= 

SU.TOP= 

SW.VFY= 

SSLBRA 

SSLCNT 

%%■   -TT 

SSlFLG 

SSLHTM 

S$LLEN= 


000010 
002000 
000020 
001000 
004000 
077774 
000010 
000022 
000004 
****** 
000100 
000040 
000010 
000020 
010000 
000400 
002000 
004000 
001000 
000001 
000004 
020000 
000002 
001000 
002000 
000040 
000020 
000200 
010000 
000010 
000400 
000100 
004000 
000400 
002000 
000400 
001000 
000004 
000010 
002000 
000002 
000200 
001000 
000400 
000020 
010000 
004000 
014000 
000040 
000001 
000100 
000022 
000010 
000012 
000006 
000016 
000024 


G 

G 

G 

G 

G 

G 

G 

G 

G 

GX 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

6 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 


SSLNAH 

SSLRPR 

SSLTYP 

SSLUNT 

S$TADD 

SSTAPR 

SSTCST 

S$TFLG 

SSTHTH 

S$TLEN= 

SSTSTA 

SSVDTE 

SSVFLG 

S$VLEN= 

SSVNAM 

SSVOWN 

SSVPSZ 

SSVRCL 

SSVTIM 

S$VWSZ 

S.ANM1= 

S.ANM2= 

S.BFHD= 

S.ETEF= 

S.FATT^ 

S.FDB  = 

S.FNAM= 

S.FNB  = 

S.FNBW= 

S.FNTY= 

S.FTYP= 

S.NFEN= 

UN$CST= 

UN$DPR= 

UN5PCH= 

UN$SCS= 

USNCSR 

USNCST 

USNCUO 

USNCWl 

USNDPR 

U$NLEN= 

USNPCH 

USNUNT 

WC.CIR= 

WC.CNT= 

WC.EVE= 

WC.L1N= 

WC.L0G= 

WC.NAM= 

WC.N0D= 

WC.0BJ= 

WC.PRO= 

WC.TRI^ 

WC.UNT= 

W.TSEF= 

XA.DST= 


000004 
000020 
000014 
000011 
000005 
000010 
000007 
000006 
000012 
000016 
000004 
000022 
000014 
000036 
000004 
000034 
000010 
000016 
000020 
000012 
000014 
000005 
000020 
000002 
000016 
000140 
000006 
000036 
000017 
000004 
000002 
000020 
001000 
002000 
004000 
000400 
000012 
000014 
000006 
000010 
000016 
000026 
000024 
000004 
000017 
000C02 
000001 
000017 
000002 
000001 
000001 
000001 
000001 
000010 
000004 
000002 
000001 
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SYMBOL      VALUE 


XS.CTM 

XS.CUG 

XS.DST 

XS.DTE 

XS.KND 

XS.MXC 

XS.OBI 

XS.OBJ 

XS.PRI 

XS.STA 

XS.STl 

XS.SUB 

X$2BSZ 

X$2HBT 

X$2LEN 

X$2LIN 

X$2RTC 

X$2RTT 

X$2WSZ 

X$3CT 

X$3DFP 

X$3DW 

XtBKM 

X$3<T 

X$3LEN 

X$3MW 

X$3MXP 

X$3RM 

X$3RT 

X$3SM 

x$3sr 

X$9CT 

X$9LEN 

X$9MXC 

X9.CLM 

X9.CLV 

X9.CTM 

X9.CUG 

X9.DST 

X9.DTE 

X9.KND 

X9.MXC 

X9.0BI 

X9.0BJ 

X9.PRI 

X9.SUB 

ZF.COU 

ZF.DPM 

ZF.DIA 

ZF.DLC 

ZF.DVP 

ZF.INI 


=   000004 

=  000100 

=  000001 

=  000200 

=  000002 

=  000010 

=  001000 

=  OOOAOO 

=  002000 

^  000020 

=  OOOOAO 

=  004000 

000014 

000022 

=  000024 

000004 

000016 

000020 

000012 

000012 

000C04 

000010 

000016 

000013 

=  000021 

000011 

000006 

000017 

000014 

000020 

000015 

OOC006 

=  000010 

000004 

=  000020 

=  000040 

=  000004 

=  000100 

=  000001 

=  000200 

=  000002 

=  000010 

=  001000 

000400 


=  002000     G 


004000 
=  001000 
=  000001 
=  020000 
=  000002 
=  040000 
=  100000 


REFERENCES 

#11-984 

#11-989 

#11-982 

#11-990 

#11-983 

#11-985 

#11-992 

#11-991 

#11-993 

#11-979 

#11-980 

#11-994 

#9-482 

#9-485 

#9-486 

#9-479 

#9-483 

#9-484 

#9-481 

#9-596 

#9-592 

#9-594 

#9-600 

#9-597 

#9-603 

#9-595 

#9-593 

#9-60 1 

#9-598 

#9-602 

#9-599 

#9-580 

#9-581 

#9-579 

#11-1009 

#11-1010 

#11-1006 

Ml -1011 

.11-1004 

#11-1012 

#11-1005 

#11-1007 

#11-1014 

#11-1013 

#11-1015 

#11-1016 

#12-1058 

#12-1049 

#12-1063 

#12-1050 

#12-1064 

#12-1065 


11-1006 

11-1011 

11-998 

11-1012 

1 1 -999 

11-1007 

11-1014 

11-1013 

11-1015 


11-1016 


11-1004 
11-1005 


DA/tC   1  "3 
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SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CL.CMT 

- 

*^**** 

GX 

5-110 

5-112 

ERRFIL 

- 

****t* 

GX 

5-126 

;rrgcl 

= 

****** 

GX 

5-117 

:xssuc 

= 

****** 

GX 

5-104 

IE. EOF 

- 

****** 

GX 

5-115 

PAR$$$ 

r 

000027 

#5-125 

5-125 

#5-136 

PRMPT 

000000 

R 

#4-85 

5-108 

SBUFF 

- 

****** 

GX 

5-120 

$BYTE 

= 

****** 

GX 

«5-133 

SCFER'^ 

= 

****** 

GX 

5-117 

5-126 

SCFINI 

00002A 

RG 

#5-103 

tCLFLG 

=: 

****** 

GX 

•5-110 

♦5-112 

SCLIOS 

~ 

****** 

GX 

5-109 

SCLPMT 

:; 

****** 

GX 

5-107 

♦5-108 

♦5-113 

SEXSTS 

= 

****** 

GX 

*5-104 

$GCLEP 

r: 

****** 

GX 

5-111 

SHIVBN 

- 

****** 

GX 

♦5-131 

SIFDB 

r 

****** 

GX 

5-125 

5-125 

5-129 

S'OPEN 

- 

****** 

GX 

5-121 

SLOVSN 

- 

****** 

GX 

♦5-132 

SOFDB 

~ 

****** 

GX 

5-137 

5-137 

SOPEN 

= 

*»-**** 

GX 

5-123 

STMSTB 

- 

****** 

GX 

5-134 

SXXIN! 

- 

****** 

GX 

5-105 

.CLOSE 

- 

****** 

G 

5-125 

5-125 

5-136 

.DELET 

- 

****** 

G 

5-137 

5-137 

.FINIT 

~ 

G 

5-106 

5-106 

.MARK 

- 

**-**** 

GX 

5-130 

5-136    #5-137 


5-137 


5-136     5-136 


5-136 
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82 
83 

+ 
***  - 

$I0PEN 

-  OPEN  THE  INPUI  FILE 

84 
85 

INPUT 

S: 

86 

Rl  =  ADDRESS  OF  FILE-SPEC 

87 

R2  =  LENGTH  OF  FILE- :°EC 

88 
89 

OUTPUTS: 

90 

C-BIT  = 

SUCCESS/FAILU.'^E 

91 

RO  =  FD8  ADDRESS 

92 

R1,R2  = 

PRESERVED 

93 
9A 

IF  SUCCESS:  FILE  IS  OPENED  FOR  UPDATE 

95 
96 
97  000354 

SIOPEN: 

98  000354 

012700 

000300' 

'mov 

#CS8LK,R0 

POINT  RO  AT  CSI  CONTROL  BLOCK 

99  000360 

010260 

000002 

MOV 

R2,C.CMLD(R0) 

SET  LENGTH  OF  FILE-SPEC  STRING 

100  000364 

010160 

000004 

MOV 

R1,C.CMLD+2(R0) 

AND  ADDRESS  OF  FILE-SPEC 

101  000570 

CS]$1 

PARSE  FILESTRING 

102  000374 

103404 

BCS 

10$ 

IF  CS,  ERROR 

103  000376 

CSJ$2 

.OUTPUT 

GET  OUTPUT  FILE  SPEC 

104  000406 

012700 

OOOOOOG 

0$: 

MOV 

#$JFDB,RO       ■  POINT  AT  FDB 
#IE.BNM,F.ERR(ROS  ;  ASSUME  BAD  FILENAME 

105  000412 

112760 

OOOOOOG  000052 

MOVB 

106  000420 

103425 

BCS 

20$ 

IF  CS,  RETURN  WITH  ERROR  CODE 

107  000422 

FDPP$R 

,,#CSBLKtC.DSDS 

POINT  AT  PARSED  FILE-SPEC 

108  000430 

OPEN$R 

OPEN  INPUT  FILE 

109  00044? 

103414 

BCS 

20$ 

IF  CS,  RETURN 

110 
111 

;  SAVE 

OWNER  INFORMATION  AND  PROTECTION  OF  INPUT  FILE 

112 

113  000444 

116067 

000042  177332 

MOVB 

F.LUN(R0),RATDPBtQ.IOLU  ;  GET  LUN  INTO  DPS 

114  000452 

D1R$ 

#fiATDPB 

TRY  TO  READ  ATTRIBUTES 

115  000460 

103403 

BCS 

15$ 

IF  CS,  DIRECTIVE  FAILED 

116  000462 

105767 

177342 

TST8 

lOSB 

ELSE,  CHECK  STATUS 

117  000466 

100002 

BPL 

20$ 

IF  PL,  OK 

118  000470 

105067 

OOOOOOG 

15$: 

CLRB 

$FIATS 

■  ELSE  CLEAR  TO  PREVENT  LATER  WRITE 

119  00047^ 

000207 

20$: 

RETURN 

•  RETURN  TO  CALLER 

F  5 


CFEhKG  - 
SCFPRG  - 

149 
150 
151 
152 
155 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
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PERFORM  PURGE  COMMAND 

.S8TTL  SCFPRG  -  PERFORM  PURGE  COMMAND 
«*  -  SCFPRo  -  PERFORM  PURGE  COMMAND 


INPUT: 


$COMP  =  THE  COMPONENT  CODE 


OUTPUT 


CONTROL  IS  PASSED  TO  THE  PROPER  ROUIIM"" 


000214 

000214  0167G0  OOOOOOG 

000220  006300 

000222  000170  000144' 


SCFPRG: 


MOV 
ASL 
JMP 


$COMP,RO 

RO 

aDSPTBL-2(R0) 


GET  THE  COMPONENT  CODE 
CONVERT  TO  A  UORD  INDEX 
DISPATCH  TO  PROPER  ROUTINE 


E  7 

CFEPRS  -  STATE  TABLES  TO  PARSE  MACRO  VO5.03b  Tuesday  02-Jul-85  1A:08 
Table  of  content? 

MACROS  AND  STORAGE 

KEYWORDS 

COMMANDS 

LIST  COMPONENTS 

PURGE  COMPONENTS 

DEFINE  LOGGING  MONITOR 

SUB-EXEPRESSIONS  FOR  EVENT  ID 

SUB-EXPRESSION  TO  PARSE  LOGGING  MONITOR 

DEFINE  NODE  COMMAND 

DEFINE  PROCESS  COMMAND 

SUB-EXPRESSIONS  FOR  PROCESS  ID 

DEFINE  CIRCUIT  COMMAND 

DEFINE  LINE  COMMAND 

SUB-EXPRESSIONS  FOR  CIRCUIT/LINE  ID 

DEFINE  EXECUTOR  COMMAND 

DEFINE  OBJECT  COMMAND 

DEFINE  SYSTEM  COMMAND 

DEFINE  MODULE  COMMAND 

UTILITY  SUBEXPRESSIONS 

EXIT  STATE 


4- 

54 

A- 

n 

A- 

m 

s- 

SiW 

fl- 

4V 

ft- 

6S6 

ft- 

ftV,- 

(S- 

/<,/ 

7- 

7SR 

H- 

1081 

R- 

mi 

9- 

11S1 

q- 

iii« 

9- 

IMI 

10- 

1S90 

11- 

191 A 

V- 

19Hft 

11- 

;jiv 

14- 

■f'^?f 

1'j- 

2(:>i/ 

MATDn      \ir\C,       r\1^       TimnW-v 
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CfEPRS  -  STATE  TABLES  TO  PARSE 
PURGE  COMPONENTS 

603  000000 

60A  000000 

605 

606 

607 

608  000000 

609  000000 
610 
611 
612 

613  000000 

614  000000 

615  000000 
616 
617 

619  OCOOOO 

620  000000 

621  000000 

622  000000 
623 
62A 
625 

626  000000 

627  000000 

628  000000 

629  OOCOOO 

630  000000 

631  000000 

632  000000 

633  000000 

634  000000 

635  000000 
636 
637 
638 

639  000000 

640  000000 
641 
642 
643 

644  000000 

645  000000 

646  000000 

647  000000 

648  000000 
649 
650 
651 

652  000000 

653  000000 

654  000000 
655 
656 
657 
658 
659 
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STATES 
TRANS 


LOGOPT 
lOPEVE,  SEXIT 


PURGE  LINE  OPTIONS 


OM.EVE,  SOPRND 
COUNTER  TIMFR 


STATES  PURLIN, aPSPUOP 
TRANS  .'PURCT,  SEXIT, 

PURGE  CIRCUIT  OPTIONS 


.LIX25 


STATES 
TRANS 
TRANS 


PURCIR,  gPSPUOP 
IPURCT,  SEXIT,, 
SLAMDA,  PUROPT 


OC.CTM,   SOPRND 


COUNTER    TIMER  PURGE   OPTION 


STATES 
TfvANS 

STATES 
TRANS 


PURCT 
gKSCOU 
,8PSCT0 
8KSTIM,  SEXIT 


PURGE  MODULE  X25-PR0T0C0L  OPTIONS 


STATES 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 


PMXPRA, 

SLAMDA 

PMXPRX 

IDTE, 

iKND, 

ICUG, 

IKNG, 

PMXPR1 

iPURCT, 

SLAMDA, 


8PSPM0D 


PMXPR1,,XP. DTE, SOPRND 
PHXPR1,,XP.KND, SOPRND 
PUROPT, ,XP.CUG, SOPRND 
PUROPT,, XP.KNG, SOPRND 


SEXIT,, 
PUROPT 


XP.CTM, SOPRND 


PURGE  MODULE  X25-ACCESS  OPTIONS 


STATES 
TRANS 


PMXACA, 
SLAMDA, 


SPSPMOD 
PMXDST 


SOPRND 


PURGE  MODULE  X25/X29-SERVER  OPTIONS 

STATES  PMXSRA,  SPSPMOD 

TRANS  SLAMDA 

STATES  PMXSRV 

TRANS  IPURCT,  SEXIT,,  XS.CTM, 

TRANS  SLAMDA 

PURGE  MODULE  X25/X29-SERVER,  X25-ACCESS  COMMON  OPTIONS 

STATES  PMXDST 
TRANS  IKNDS,  PUROPT, ,XS.KND,  SOPRND 
TRANS   !DST,   PUROPT, ,XS.DST,  SOPRND 

.SBTTL  DEFINE  LOGGING  MONITOR 

DEFINE  LOGGING  MONITOR 


MA  ran    \if\'^    A7k    Ti 
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DEFINE  ClRCUiT  COMMAND 


1265 
1266 

1267  000000 

1268  000000 

1269  000000 

1270  000000 

1271  000000 

1272  000000 
1273 

1274 
1275 

1276  000000 

1277  000000 

1278  000000 

1279  000000 

1280  000000 

1281  000000 
1282 

1283 
1284 

1285  000000 

1286  000000 

1287  000000 

1288  000000 

1289  000000 

1290  000000 
1291 

1292 
1293 

1294  000000 

1295  000000 

1296  000000 

1297  000000 

1298  000000 

1299  000000 
1300 

1301 
1302 

1303  000000 

1304  000000 

1305  000000 

1306  000000 

1307  000000 

1308  000000 
1309 

1310 
1311 

1312  OOOCOO 

1313  OOOf'OO 

1314  OOOCOO 

1315  COOOOO 

1316  000000 

1317  OOOCOO 
1318 

1319 
1320 
1321 


COUNTER  TIMER 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

HELLO  TIMER 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

MAXIMUM  DATA 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


CT 

8KSC0U 
,&PSCTO 
&K$TIM 
&P$CT 
iDNUMB,SEXIT,.CJCT 


HTM 

&KSHL0 

,8PSHT0 

8KSTIM 

.SPSHTH 

$DNUMB,$EXIT,.CIHTM 


MBL 

8KSMAX 

,8P$MAX 

8KSDAT 

,8P$MBD 

SDNUMB,SEXIT,.CIMBL 


MAXIMUM  RECALLS 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

RECALL  TIMER 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

CIRCUIT  USEAGE 

STATES 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 

.S8TTL 


MRC 

8K$MAX 

,8PSMAX 

8KSRCL 

,8PSMRC 

SDNUMB,SEXIT, 


RTM 

8K$RCL 

,8PSRC0 

8KSTIM 

,8PSRTM 

$DNUMB,$EXIT, 


USG 

SKSUSG 

,8PSUSG 

8KSPER,SEXIT 

8KSINC,SEXIT, 

gKSOUT.SEXIT, 


CIMRC 


DEFINE  LINE  COMMAND 
DEFINE  LINE  COMMAND 


,CIRTM 


,SW.INC,SSWICH 
,SW.OUT,$SWICH 


MATDn      \l(\K      A7k       T,  iacA^\ 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  OBJECT  COMMA^^D 

1971 

1-72 

1973 

197A  000000 

1975  000000 

1976 

1977  000000 

1978  000000 
1979 

1980  000000 

1981  000000 
1982 

1983  OOOOCO 

1984  OOOOCO 
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LOOK  FOR  OBJECT  ID 


IJ8 


Page  11- 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


iEXIT, 


OBJ  ID 
&Kt09l 

.KPSOID 
SDNUM8, 

KNOBJ 
gKSKNO 


,&PSPEN 

4ksobjs,sexit,, 


.08NUM 


WC.D8J,  SWILD 


r r  rnnc 


rT^Tc     TADitic     Tn     DADCC        MAfDn     \/i;^     n7u     TiiQcrlav     OP-li 
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CfEPRS  -  STATE  TABLES  TO  PARSE 
UTILITY  SUBEXPRESSIONS 


2598 

2599 

2600 

2601 

2602 

2603 

260^ 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

261? 

26U 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

262A 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 

000000 
000000 

000000 
000000 

000000 
000000 

000000 
000000 
000000 
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STATES  MUI 

TRANS  8KSMAX 

STATES  .      SPSMAX 

TRANS  &K$UIN 

STATES  ,      8PSMUI 

TRANS  SDNUMB,  SEXIT,   .PRMWI 

MAXIMUM  DATA 

STATES  HDA 

TRANS  &KSMAX 

STATES  ,      8PSMAX 

TRANS  JKSDAT 

STATES  ,      8PSMBD 

TRANS  SDNUMB,  SEXIT,   .MOMDA 

TRANS  JKSDAT 


"MODULE  SNA-PROTOCOL" 

STATES  MODSPR 

TRANS  SKSMOD.MSPRI 

TRANS  SLAMDA,MSPR2 

STATES  MSPRI.SPSMOD 

TRANS  SLAMDA 

STATES  MSPR2 

TRANS  8KSSNA,,SBL.MN 

STATES 

TRANS  <'-> 

STATES 

TRANS  BKSPRT, SEXIT, SBL. A3 

TRANS  SLAMDA,,.BL.AU 


i/ni;    f\xw   T,.c<^,^3^/   00-  h 
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CfERQB 
Rn-B 


-  DYNAMIC  BUFFER  MANAGEM  MACRO  V05.03b  Saturday  29-Jun-85 
REQUEST  CORE  BLOCK 


05:1 


3  Page  6 


111 
112 
115 
1U 
115 
116 
117 
118 
11V 
120 
121 
122 
123 

125 
126 
127 
128 
129 
130 
131 
132 
133 

13^; 

135 
136 
137 
138 
139 
HO 
141 
U2 
U3 
U4 
U5 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
1C.5 
166 
167 


.S8TTL 
.SflTTL 


.RQC8 
$RL8F 


REQUEST  CORE  BLOCK 
RELEASE  CORE  BLOCK 


BEST/FIRST  FIT  OVNAMIC  CORE  ALLOCATION  ROUTINES 
DATA  STRUCTURES 
FREE  SLOCK  LIST  HEADER: 
FREEHD 


.WORD   NEXT    .-POINTER  TO  NEXT  FREE  BLOCK  OR  0 
.WORD   0      ;ALWAYS  ZERO 


FREE  BLOCK: 

FREEBK: 


.WORD   NEXT    .-POINTER  TO  NEXT  OR  0 
.WORD   SIZE    ;SIZE  OF  BLOCK  IN  BYTES 


NOTE:  THE  FREE  BLOCK  LIST  IS  ORDERED  BY  THE  CORE  ADDRESS  OF  THE  BLOCKS 
THEMSELVES.  THIS  IS  SO  GARBAGE  COLLECTION  AND  BLOCK  AGGLOMERATIO 
CAN  BE  PERFORMED  WITH  LITTLE  OVERHEAD. 

•♦-$RL8F-RELEASE  CORE  BLOCK 

THIS  SUBROUTINE  IS  CALLED  TO  RELEASE  A  CORE  BLOCK  TO  THE  FREE  LIST. 
THE  FREE  LIST  IS  SEARCHED  UNTIL  THE  PROPER  SLOT  IS  FOUND  AND  THE 
BLOCK  IS  MERGED  INTO  THE  FREE  LIST.  IF  THE  BLOCK  BEING  RELEASED 
CAN  BE  AGGLOMERATED  WITH  A  BLOCK  ALREADY  IN  THE  FREE  LIST,  THEN  THE 
BLOCKS  ARE  AGGLOMERATED  AND  THE  NEW  BLOCK  IS  MERGED  INTO  THE  FREE 
LIST. 


INPUTS: 


RO=ADDRESS  OF  FREE  BLOCK  LIST  HEAD. 
R1=S]ZE  OF  BLOCK  TO  RELEASE  IN  BYTES. 
R2=ADDfiESS  Of  BLOCK  TO  RELEASE. 


OUTPUTS: 

NONE. 


000102 
000106 
000112 
000116 
000120 
000122 
000124 
000126 
000130 
000132 


000134 
000136 


004567 
062701 
042701 
001432 
011003 
001404 
020203 
103402 
010300 
000772 


010312 
010204 


OOOOOOG 

000003 

000003 


$RLSF: 


JSR 
ADD 
BIC 
BEQ 
MOV 
BEQ 
CMP 
BLO 
MOV 
BR 


R5,$SAVRG 

*3,R1 

#3,R1 

5$ 

(R0),R3 

2$ 

R2,R3 

2$ 

R3,R0 

1$ 


;SAVE  NONVOLITILE  REGISTERS 
ROUND  UP  TO  NEXT  2  WORD  BOUNDRY 
CLEAR  EXCESS  BITS 
IF  EQ  VERGESSEN! I  I 
GET  ADDRESS  OF  NEXT  IN  LIST 
IF  EQ  END  OF  CHAIN 
COMPARE  ADDRESSES 
IF  LO  FOUND  SLOT 
SET  NEW  PREVIOUS  ADDRESS 
GO  AGAIN 


SEE  IF  BLOCKS  CAN  BE  MERGED  IN  NEW  +  OLD  ORDER. 


5$: 


MOV 
MOV 


R3,(R2) 
R2,R4 


.-ASSUME  NO  AGGLOMERATION 
,-CALCULATE  ADDRESS  OF  NEXT  BLOCK 
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CFESTB  -  STATE  TABLES  TO  READ 
iTIAlC  -  ALLOCATE  TEMPLATES 


2ii 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 

235  000170 

236  000170 

237  000174 
258  000176 

239  000202 

240  000204 

241  000214 

242  000220 

243  000222 

244  000224 

245  000226 

246  000230 

247  000232 
248 

249 


i  1^ 

05:r 
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.SBTTL  STIALC  -  ALLOCATE  TEMPLATES 

^•*  -  STIALC  -  ALLOCATE  TEMPLATES  OR  EXIT  ON  ERROR 

INPUTS; 

R1  =  LENGTH  OF  ALLOCATION  REQUEST 

OUTPUTS: 

RO  =  ADDRESS   OF    ALLOCATED  BUFFER 


012700     OOOOOOG 

010146 

004767  OOOOOOG 

103006 

000167  OOOOOOG 

010001 

105021 

005316 

003375 

005726 

000207 

000001 


STIALC: 


10S: 
20$: 


MOV 

MOV 

CALL 

BCC 

ERRORS 

JMP 

MOV 

CLRB 

DEC 

BGT 

TST 

RETURN 

.END 


#SXXAVL,RO 

R1,-(SP) 

SROBF 

10$ 

#ERRALL 

RO.RI 
(R1)  + 
(SP) 
20$ 
(SP)  + 


GET  ADDRESS  OF  END  OF  TASK  LISTHEAD 

PUSH  LENGTH 

TRY  TO  ALLOCATE  BLOCK 

IF  CC,  GOT  ONE 

ELSE,  ALLOCATION  FAILURE 

AND  EXIT  IMMEDIATELY 

COPY  POINTER 

CLEAR  ONE  BYTE 

COUNTDOWN 

UNTIL   BLOCK    IS   ZEROED 

CLEAN   STACK 
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CfESUB 
SQINS  - 

2A6 

2A8 
2A9 
250 
251 
252 
253 
25^ 
255 
256 
257 
258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 
272 
273 


-  COMMON  SUBROUTINES     MACRO  V05.D3b  Saturday  29-Jun-85 
INSERT  ENTRY  AT  END  Of  QUEUE 


I  15 

05;U 
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.SBTTL 
.SBTTL 

*•♦  -  $QINS  - 
»♦»  -  $QINSN 


$Q1NS  - 
SQINSN 


INSERT  ENTRY  AT  END  OF  QUEUE 
-  INSERT  ENTRY  INTO  MIDDLE  OF  QUEUE 


INSERT  ENTRY  AT  END  Of  QUEUE 
-  INSERT  ENTRY  INTO  MIDDLE  OF  QUEUE 


INPUT: 


RO  :  ADDRESS  OF  ENTRY  TO  INSERT  INTO  QUEUE 

R1  =  ADDRESS  OF  DOUBLE  WORD  LISTHEAD  (SQINS)  OR  PREVIOUS  ENTRY  (SQINSN) 


REGISTERS  ALTERED: 
R2 


o':'O200 

000200  016102  000002 

000204  010061  000002 

000210  010012 

000212  005010 

0002U  000207 

000216 

000216  011110 

000220  001002 

000222  010067  000002G 

000226  010011 

000250  OC0207 


SQINS: 


SQINSN: 


10$: 


MOV  2(R1),R2 

MOV  R0,2(R1) 

MOV  R0.(R2) 

CLR  (RO) 
RETURN 


MOV  (R1),(R0) 

BNE  10S 

MOV  R0,$TMLSTt2 

MOV  R0,(R1) 

RETURN 


GET  LAST  ENTRY  IN  QUEUE 
SET  NEW  ENTRY  AS  LAST 
LINK  NEW  ENTRY  INTO  CHAIN 
CLEAR  POINTER  TO  NEXT 


SET  NEW  NEXT  ENTRY 
IF  NE,  NO  NEW  LAST 
ELSE,  SET  NEW  LAST 
INSERT  NEW  ENTRY  INTO  LIST 


CFFSUR  -  COMMON  SUBROUTINES 
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CFEI*IP  -   SYMBOL  DEFINITIONS  AND  MACRO  V05.03b  Saturday  29-Jun-85  0A:55 
DEFINE    TEMPLATES  GLOBALLY 


COMMAND  CODES 


691 

692 

693 

694 

695 

000001 

696 

00000? 

697 

000003 

698 

000004 

699 

000005 

700 

000006 

701 

702 

703 

70A 

705 

706 

000001 

707 

000001 

708 

000002 

709 

000002 

710 

000003 

711 

000004 

712 

000005 

713 

000005 

7U 

000006 

715 

000006 

716 

000007 

717 

000007 

718 

000010 

719 

OOOOM 

720 

000012 

721 

000013 

722 

000014 

723 

000015 

724 

000016 

725 

726 

727 

728 

729 

000001 

730 

000002 

731 

000004 

732 

000010 

733 

000020 

734 

000040 

735 

000100 

736 

000200 

737 

000400 

738 

001000 

739 

002000 

740 

004000 

741 

010000 

742 

743 

014000 

744 

745 

746 

747 

CM.DEF  == 

1 

CM. LIS  == 

2 

CM.HLP  == 

3 

CM.EXI  == 

4 

CM.KIL  == 

5 

CM. PUR  == 

6 

•  ***** 

;  COMPONENT  CODES 

CO. NOD  == 

1 

CO.KNN  == 

1 

CO. PRO  == 

2 

CO.KNP  == 

2 

CO. EXE  == 

3 

CO. SYS  == 

4 

C0.08J  == 

5 

CO.KNO  == 

5 

CO. LIN  == 

6 

CO.KNL  == 

6          ; 

CO. LOG  == 

7 

CO.KLG  == 

7 

CO.CIR  == 

10 

CO.KNC  == 

11 

CO.MXP  == 

12 

CO.MXS  == 

13 

CO. MAC  == 

14 

C0.MX9  == 

15 

CO. MSP  == 

16 

■  ***** 

;  SWITCH  BIT  DEFINITIONS 

SW.TOP  == 

1 

SW.LOA  == 

2 

SW.ENA  == 

4 

SW.FUL  == 

10 

SW.RLU  == 

20 

SW.SMC  == 

40 

SW.VFY  == 

100 

SW.LON  == 

200 

SW.PUR  == 

400 

SW.OUT  == 

1000 

SW.INC  == 

2000 

SW.SEN  == 

4000 

SW.SDI  == 

10000 

Page  11 


"DEFINE"  COMMAND 
"LIST"  COMMAND 
"HELP"  COMMAND 
"EXIT"  COMMAND 
'KILL"  COMMAND 
"PURGE"  COMMAND 


"NODE" 

"KNOWN  NODES" 

"PROCESS" 

"KNOWN  PROCESSES" 

"EXECUTOR" 

"SYSTEM" 

"OBJECT" 

"KNOWN  OBJECTS 

"LINE" 

"KNOWN  LINES" 

"LOGGING  " 

"KNOWN  LOGGING" 

"CIRCUIT" 

"KNOWN  CIRCUITS" 

"MODULE  X25-PROT0C0L' 

'WODULE  X25-SERVER" 

"MODULE  X25-ACCESS" 

"MODULE  X29-SERVER" 

"MODULE  SNA-PROTOCOL' 


TOP  DOWN  LOADING 

AUTOMATIC  LOAD 

AUTOMATIC  ENABLE 

FULL  DUPLEX  LINE 

OBJECT  TASK  IS  TO  RUN  ON  LOGIN  UK 

OBJECT  TASK  SHOULD  SPAWN  MULT.  COPIES 

LOCAL  VERIFICATION  IS  ON 

LOGGING  STATE  IS  ON 

EXIT  AND  PURGE  COMMAND 

USAGE  IS  OUTGOING     (PSI,  SVC  ONLY) 

USAGE  IS  INCOMING     (PSI,  SVC  ONLY) 

CIRCUIT  SERVICE  ENABLED 

CIRCUIT  SERVICE  DISABLED 


SW.SLT  ==  SW.SENISW.SDI  ;  SLT  SWITCHES 


***** 
WILD  CARD  BIT  DEFINITIONS 


i, 
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Symbol  table 

000172RG  003  $HBT  =  001602RG  $RNSDV=  001554RG 

00031  ORG  003  SHIVBN  00U72RG  $RNSLO=  00  620RG 

000212RG  003  SHOST  =  001560RG  $RNSPA=  00  6WRG 

000206RG  003  $HTM  =  001620RG  $RNTLO=  001657RG 

000266RG  003  SID    001622RG  $RNXXX=  002053RG 

000161RG  003  SIFDB   000U2RG  $RST    00  S/^RG 

000132RG  003  JINFO   00U6ARG  $RTC  =  00  616RG 

001726RG  SLINKS  001562RG  SRTM    00  722RG 

OOJOOORG  003  SLOVBN  00U7'iRG  SSACNM=  00  73ARG 

000466RG  003  SLSNAD  00U3GRG  SSCIRC=  001724RG 

000472R  003  SLSTMP  00U3ARG  SSCSR   001560RG 

000122RG  003  SMAXC  =  001550RG  SSDAT  =  O0155ORG 

OOOOOOR  SMAXH  =  001552RG  SSD8NM  00  526RG 

000176RG  003  SMBL  =  001564RG  SSLUCT=  001622RG 

000156RG  003  $MCI  =  001542RG  SSLUS  =  001624RG 

000306RG  003  SMRC  =  001560RG  SSMOD  =  001754RG 

000470RG  003  SMRE  =  001550RG  SSNAPT  00U26RG 

001562RG  SKWl  =  001556RG  SSNLU  =  0017'i4RG 

000202RG  003  SMXC  =  001560RG  SSNSID=  001746RG 

000204RG  003  SHXNCT=  000100  G  SSPARE=  001734RG 

001756RG  SMXNLT=  000100  G  SSPLU  =  C01744R6 

000152RG  003  SMXR  =  001570RG  SSPSW  =  001774RG 

00U46RG  SMXSTA=  000100  G  SSPUNM=  00172ARG 

00U5ORG  SNCOU  =  001574RG  SSSERN=  001750RG 

OOUAORG  SNCT  =  001620RG  $SSSCP=  001754RG 

001534RG  SNLN    001706RG  $STADR=  001566RG 

00H50RG  SNLT  =  001564RG  SSTAN   001540RG 

001574RG  SNN   =  001556RG  SSUB1   002004RG 

001 71  ORG  SNNAM   001724RG  SSUB2   002006RG 

001556RG  SNODAD  001546RG  SSUID  =  001764RG 

001574RG  SNODNA  001542RG  SSVUPD  00U30RG 

001576RG  SNTADD  OOISOARG  SSWICH  00U6ORG 

000302RG  SNTNAM  001500RG  STHRSH  001530RG 

001602RG  SNUM  =  001550RG  STIDPB  00035ARG 

001540RG  SOBJ    001712R6  STMLST  00U20RG 

001570RG  SOFDB   000002RG  STNAM   001576RG 

001716RG  SOPRND  00U52RG  STNUH   001602RG 

001622RG  S0PRN2  OOUSARG  SUHRIN  001512RG 

001532RG  SPARNA  001570R6  SUHRUP  001  SURG 

00201 2RG  SPBLK   001516RG  SUNTNM  001536RG 

0020URG  SPOLNA  00156ARG  SURM  =  001562RG 

002010RG  SPRI    001552RG  SVEC    001550RG 

002020RG  SPRNAM  001532RG  SVLVL   001620RG 

002016RG  SPSHPT  00017'iRG    003  SWILD   00U62RG 

002024RG  SPSIPT  0OU24RG  SUSZ  =  001556RG 

002025RG  SRDBNM  001522R6  $$$   =  001774 

002026RG  SRDBSZ  001524RG  S$SARG=  000003 

000404RG  SRET  =  001620RG  SSSOST=  000010 

002027RG  $RNDCP=  001562RG  SSSTI  =  000002 

002022RG  SRNDIA=  001755RG  SSST2  =  000166R 

001716RG  SRNDMP=  0020KRG  .FSRCB=  **•♦**  G 

001616RG  SRNDPA=  001556RG  .RNFSP  001512RG 

001604RG  $RNHAR=  001574RG  ...PC1=  000U2R 

00H70RG  SRNHOS=  001552RG  ...PC2=  000336R 

000340RG  SRNLOD=  001716RG  ...PC3:  000U2R 

00K32RG  SRNSCI=  001564RG  ...TPC=  000006 
001442RG 


XA.KND= 

000002  6 

X$3RM 

000017 

G 

SCLAST 

XA.NUM= 

000004  G 

X$3RT 

000014 

G 

SCLBUF= 

XP.BIL= 

000004  G 

X$3SM 

000020 

G 

SCLCSI 

XP.CHN= 

000001  G 

X$3ST 

000015 

G 

SCLEVL 

XP.CLT= 

000002  G 

XS9CT 

000006 

G 

SCLFDB 

XP.COU= 

000002  G 

XS9LEN= 

000010 

G 

SCLFLG 

XP.CTM= 

000001  G 

XS9MXC 

000004 

G 

SCL]0S= 

XP.CUG= 

040000  G 

X9.CLM= 

000020 

G 

SCLM 

XP.DFB= 

000004  G 

X9.CLV= 

000040 

G 

SCLMCR 

XP.DFU= 

000010  G 

X9.CTM= 

000004 

G 

SCLPMT 

XP.DiA= 

000001  G 

X9.CUG= 

000100 

G 

SCLPRM 

XP.DTE= 

010000  G 

X9.DST= 

000001 

G 

SCLQIO 

XP.<ND= 

020000  G 

X9.0TE= 

000200 

G 

SCLRTN 

XP.KNG= 

100000  G 

X9.KND= 

000002 

G 

SCLSBK 

XP.LIN= 

000004  G 

X9.MXC= 

000010 

G 

SCLSEF 

XP.LV3- 

003777  G 

X9.0BI= 

001000 

G 

SCLS1Z= 

XP.MCi= 

000010  G 

X9.0BJ= 

000400 

G 

SCLSRV 

XP.MRE= 

000100  G 

X9.PRI= 

002000 

G 

SCLT  = 

XP.MXB= 

000020  G 

X9.SUB= 

004000 

G 

SCLTBF 

XP.MXC= 

000040  G 

ZF.COU= 

001000 

G 

SCLTSZ 

XP.MXR= 

0C0200  G 

ZF.DDM= 

000001 

G 

SCLV 

XP.MXW= 

000400  G 

ZF.DIA= 

020000 

G 

SCLWEF 

XP.NNA= 

004000  G 

ZF.DLC= 

000002 

6 

SCMAND 

XP.NUM= 

000002  G 

ZF.DV?= 

040000 

G 

SCMDPT= 

XP.RET= 

001000  G 

ZF.INI= 

100000 

G 

SCNFIG 

XP.RST= 

002000  G 

ZF.<MX= 

000020 

G 

SCNTNM 

XP.STA= 

000020  G 

ZF.LLC= 

000004 

G 

SCOMP 

XP.ST1= 

000040  G 

ZF.LMC= 

000100 

G 

SCOPES 

XS.CLM= 

000020  G 

ZF.MAN= 

004000 

G 

SCOST 

XS.CLV= 

000040  G 

ZF.MFL= 

000010 

G 

SCSR 

XS.CTM= 

000004  G 

ZF.MTM= 

000400 

G 

scr  = 

XS.CUG= 

000100  G 

ZF.MUX= 

000040 

G 

SCUG  = 

XS.DST= 

000001  G 

ZF.PSE= 

002000 

G 

SDEFNB 

XS.DTE= 

000200  G 

ZF.SLI= 

010000 

G 

SDFD  = 

xs.k:nd= 

000002  G 

ZF.TIM= 

000200 

G 

SDFW  = 

XS.MXC= 

000010  G 

ZF.X3P= 

002000 

G 

SDPR  = 

XS.OBI= 

001000  G 

SAPR  = 

001572RG 

SDST 

XS.OBJ= 

000400  G 

SASTLV 

000210RG 

003  SDTE 

XS.PRI= 

002000  G 

SBAUD 

001554RG 

SDVNAM= 

XS.STA= 

000020  G 

SBSZ  = 

001564RG 

SEACOS 

XS.ST1= 

000040  G 

SBUFF 

000434RG 

SEAHOP 

XS.SUB= 

004000  G 

SBYT  = 

001550RG 

SEAMAX 

X$2BSZ 

000014  G 

SBYTE 

001476RG 

SE8EA 

X$2HBT 

000022  G 

SBYTMN 

001506RG 

SEBRT 

XS2LEN= 

000024  G 

SBYTXT 

001510RG 

SEINA 

XS2LIN 

000004  G 

SCALT  = 

001576RG 

SEINC 

X»2RTC 

000016  G 

SCCBNM 

001520RG 

SEOUT 

Xi2RTT 

000020  G 

SCHN  = 

001570RG 

SERDPB 

XS2WSZ 

000012  G 

SCHNLN= 

000050 

G 

SERET 

XS3CT 

000012  G 

SCHNLS= 

001634RG 

SESEG 

X$3DFP 

000004  G 

SCHNND= 

001704RG 

SESUB  = 

X$3DW 

000010  G 

SCIMXR= 

001716RG 

SEVBEG 

XS3KM 

000016  G 

SCIRCT 

001466RG 

SEVENT 

Xi3KT 

000013  G 

SCIRID= 

00171 2RG 

SEXSTS 

X$3LENi= 

000021  G 

SCIRPR= 

001720RG 

SFIATR 

X$3MW 

000011  G 

SfLASN 

000162RG 

JO?  SFILHD 

XS3MXP 

000006  6 

saAss 

001614 

RG 

SFLAGS 

003 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

If  .KM 

=  000020     G 

#12-1053 

ZF.LLC 

=  OOOOOA     G 

#12-1051 

ZF.LMC 

=  OOIOO     G 

#12-1055 

ZF.MAN 

=  004000     G 

#12-1061 

ZF.MFL 

=  000010     G 

#12-1052 

ZF.MTM 

=  000400     G 

#12-1057 

ZF.MUX 

=  000040     G 

#12-1054 

ZF.PSE 

=  002000     G 

#12-1060 

ZF.SLI 

=  010000     G 

#12-1062 

ZF.TIM 

=  000200     G 

#12-1056 

ZF.X3P 

=  002000     G 

#12-1059 

$APR 

=  001572  RG 

#7-230 

SASTLV 

000210  RG 

#6-95 

SBAUD 

001554  RG 

#7-193 

$BSZ 

=  001564   RG 

#7-247 

$BUFF 

000434  RG 

6-95 

6-112 

#7-130 

$BYT 

=  001550  RG 

#7-225 

$BYTt 

001476  RG 

#7-159 

SBYTMN 

001506  RG 

#7-163 

SBYTXT 

001510  RG 

#7-164 

SCALT 

=  001576  RG 

#7-249 

SCCSNM 

001520  RG 

#7-173 

SCHN 

=  001570  RG 

#7-238 

SCHNLN 

=  000050     G 

#7-215 

SCHNLS 

=  001634  RG 

#7-213 

7-215 

SCHNND 

=  001704  RG 

#7-214 

SCIMXR 

=  001716  RG 

#7-234 

SCIRCT 

001466  RG 

#7-155 

tCIRID 

=  001712  RG 

#7-232 

SCIRPR 

=  001720  RG 

#7-235 

SCLASN 

000162  RG 

#6-95 

SCLASS 

001614  RG 

#7-206 

ICLAST 

000172  RG 

#6-95 

SCLBUF 

=  000310  RG 

#6-95 

SCLCSl 

000212  RG 

#6-95 

6-95 

SCLEVL 

000206  RG 

#6-95 

SCLFDB 

000266  RG 

#6-95 

6-95 

6-95 

SCLFLG 

000464  RG 

#6-95 

SCLIOS 

=  000132  RG 

#6-95 

SCLM 

001726  RG 

#7-261 

7-280 

7-299 

SCLMCR 

000000  RG 

#6-95 

6-95 

SCLPMT 

000466  RG 

#6-95 

SCLPRM 

000472  R 

6-95 

#6-95 

6-95 

SCLQIO 

000122  RG 

#6-95 

6-95 

SCLRTN 

000000  R 

6-95 

#6-97 

SCLSBK 

000176  RG 

6-95 

#6-95 

SCLSEF 

000156  RG 

#6-95 

SCLSIZ 

=  000306  RG 

#6-95 

tCLSRV 

0004  70  RG 

#6-95 

$CLT 

=  001562  RG 

#7-250 

SCLTBF 

000202  RG 

#6-V5 

SCLTSZ 

000204  RG 

#6-95 

iiM_Qc;  AT  n/.  .  f^A 
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MACRO  NAME 

REFERENCES 

CLOSES 

#4-79 

5-125 

DELETS 

#4-79 

5-137 

ERRORS 

#4-64 

5-117 

ERRS 

#5-125 

5-125 

FINITS 

#4-79 

5-106 

GCLS 

#4-79 

5-111 

LDFDBS 

#5-125 

5-125 

PRIM 

#4-59 

5-136 

5-1 2t 
#5-13s 


#5-136 


5-136 
5-136 


#5-137 
#5-137 


5-137 
5-137 


1 
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121 
122 
123 
12-. 
12S 
126 
127 
128 
129 
150 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
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*»»  -  SRDATA  -  READ  RECORD  FOR  INPUT  FILE 
INPUT: 


$IFDB  ^  INITIALIZED  FDB 


OUTPUT: 


C-8IT  =  SUCCESS/FAILURE 

STRING  IS  TERMINATED  WITH  A  NULL  BYTE 

RO  =  FD8  ADDRESS 

R3  =  LENGTH  OF  RECORD  LAST  READ  (  FOR  USE  WITH 


■°ARS  ) 


000476 

000476  012700  OOOOOOG 

000502 

000514  103404 

000516  016003     000024 

000522  105063     000156' 

000526  000207 


SRDATA: 


10$: 


MOV 

GETS 

BCS 

MOV 

CLRB 

RETURN 


#SIFDB,R0 

los 

F.NRBD(R0),R3 
$8UFI(R3) 


POINT  RO  AT   FDB 

CFT    THE   NEXT  RECORD 

IF    CS,   ASSUME   END-OF-FILE 

GET   LENGTH  OF   RECORD 

APPEND  A  NULL  BYTE    TO   THE   RECORD 

RETURN  10   CALLER 


ur\Q   n^k    C3 


6    5 

50.  l,,r^-a^  ni-";?     o^^na  7 


F 


OOOOOOG 


CFEPRG  -  PERFORM  PURGE  COMMAND 
PUROBi  -  PURGE  OBJECT 


166 
167 
168 
169 
170 
171 
172 
173 
17A 
175 
176 
177 

178  000226 

179  000226     012702 

180  000232     005000 
181 

182 
183 

184  000234     010205 

185  000236     011502 

186  000240     001433 

187  000242     122762 

188  000250     001371 

189  000252     022767 

190  000260     001404 

191  000262     126762 

192  000270     001361 
193 

194 
195 

196  000272     004767 

197  000276     012701 

198  000302     012700 

199  000306     004767 

200  000312     162767 

201  000320     162767 

202  000326     000743 
205 

204  000330     005700 

205  000332     001004 

206  000334     032767 

207  000342     001401 

208  000344     000207 
209 

210 
211 

212  000346 

213  000356     000207 


=  ^7 
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.SBTIL     PUR08J   -  PURGE   OBJECT 
y 
»♦«  -  PUR08J   -  PURGE  OBJECT 

INPUT: 

$TNUM  =  THE  OBJECT  TASK  NUMBER 
SWILD  =  WILD  CARD  SPECIFICATIONS 

OUTPUT: 


PUROBJ  : 


MOV 
CLR 


#$TMLST,R2 
RO 


;  GET  START  OF  TEMPLATES 
;  SUCCESS  INDICATOR 


SEARCH  FOR  THE  OBJECT  TEMPLATE 


10$: 
15$: 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


MOV 

MOV 

BEQ 

CMP8 

BNE 

CMP 

BEQ 

CMPB 

BNE 


PURGE  OBJECT 


R2,R5  ;  COPY  CURRENT  TEMPLATE  ADDRESS 

(r5),R2  ;  GET  NEXT  TEMPLATE 

30$  ;  IF   EQ,   NO  MORE 

#CS.0BJ,C.STS(R2)  ;  IS  THIS  AN  OBJECT  TEMPLATE  ? 

10$  ;  IF  NE,  NO  ..  KEEP  LOOKING 

*UC.OBJ,$WILD  ;  PURGE  ALL  OBJECTS  ? 

20$  ;  IF  EQ,  YES 

$TNUM,C.PRM(R2)  ;  IS  THIS  THE  RIGHT  TEMPLATE  ? 

10$  ;  IF  NE,  NO  ..  KEEP  LOOKING 


000746 
000013 
OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


50$: 


30$: 


OOOOOOG  OOOOOOG 


CALL 
MOV 
MOV 
CALL 

sua 

SUB 
BR 

TST 
BNE 
BIT 
BEQ 
RETURN 


QREM 

#08JLEN,R1 

#$XXAVL,RO 

$RL8F 

*O.LENX,$BYTMN 

#O.LENX,$BYTXT 

15$ 

RO 

40$ 

#WC.0BJ,$WILD 

101$ 


40$: 

ERROR  CONDITIONS 

101$:   ERROR$  #ERROBJ 
RETURN 


UNLINK  TEMPLATE  FROM  LIST 

GET  THE  LENGTH  OF  AN  OBJECT  TEMPLATE 

POINT  AT  END  OF  TASK  LISTHEAD 

RELEASE  CORE  BLOCK 

ADJUST  MINIMUM  POOL  BYTE  EXTENSION 

AND  CURRENT  BYTE  EXTENSION  VALUE 

LOOK  FOR  MORE  WORK 

ANY  TEMPLATES  FOUND  ? 

IF  NE,  YES  ..  OKAY 

WAS  THIS  FOR  KNOWN  OBJECTS  ? 

IF  EQ,  NO  ..  ERROR 


NO  OBJECTS  FOUND 


nrnrnnui     niiorc     rnMM  Ahjn        MAron     \lC\^     C\7.h     ^-^ti  irHA\. 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

21 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


.TITLE  CFEPRS  -  STATE  TABLES  TO  PARSE  COMMAND  LINES 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCIUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  PARSE  COMMAND  LINES  READ  IN 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-IIM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mi'cro/RSX  VI. 0 


CTATC      TADI    CC      TO     DADCC  MATDn      V/O^      H^K      TllOcHaV      OP-IllI 
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-RS    14:0R 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  LOGGING  MONITOR 

660  000000 

661  000000 

662  000000 
663 

664  000000 

665  000000 

666  000000 
667 

668  000000 

669  000000 

670  000000 
671 

672  000000 

673  000000 

674  000000 
675 

676  000000 

677  000000 
678 

679  000000 

680  000000 

681  000000 
682 

683  OCOOOO 

684  000000 

685  000000 
686 

687  000000 

688  OCOOOO 
689 

690  u   00 

691  OuuOOO 
692 
693 
694 
695 
696 

697  000000 

698  000000 

699  000000 

700  000000 

701  000000 

702  000000 

703  000000 

704  000000 

705  000000 

706  000000 

707  000000 

708  000000 

709  000000 

710  000000 

711  000000 

712  000000 

713  000000 

714  000000 

715  000000 
716 
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STATES 

DEFLOG 

TRANS 

!LOGID,OPLOG,,C0.L0G,SC0MP 

TRANS 

IKNLOG,,,CO.KLG,SCOMP 

STATES 

OPLOG.&PSDELO 

TRANS 

ICPSTA,0PL0G1,,0M.STA,S0PRND 

TRANS 

IOPEVE,OPLOG2,,0H.EVE,$0PRND 

STATES 

0PL0G1 

TRANS 

1 OPEVE , SEX  I T , , OM . E VE , SOPRND 

TRANS 

SLAMDA,SEXIT 

STATES 

0PLOG2 

TRANS 

:0PSTA,SEX1T,,0M. EVE, SOPRND 

IRANS 

$LAMDA,SEXIT 

STATES 

OPSTA 

TRANS 

8KSSTA,,, OH. STA, SOPRND 

STATES 

,6PSSTA 

TRANS 

&KSON,SEXIT,,SU.LON,SSUICH 

TRANS 

8KS0FF,SEXIT 

STATES 

OPEVE 

TRANS 

8KSKN0,0PEVE1 

TRANS 

gKSEVE 

STATES 

.aPSEVE 

TRANS 

lEVEID.SEXIT 

STATES 

OPEVE 1 

TRANS 

SKSEVE,SEXIT,,OM.KEV, SOPRND 

.S8TTL 

SUB-EXEPRESSIONS  FOR  EVENT  ID 

IDENTIFICATION 

STATES 

EVEJD 

TRANS 

SLAMDA,,SBL.MAN 

STATES 

TRANS 

$DNUMB,,CKEVEC 

STATES 

TRANS 

<'  .> 

STATES 

TRANS 

<'*>,EVEID2,,WC.EVE,SWILD 

TRANS 

SLAMDA 

STATES 

TRANS 

lEVELIS 

STATES 

EVEID1 

TRANS 

SE0S,EVEID2 

TRANS 

SBLANK,EVEID2 

TRANS 

<'  ,> 

STATES 

TRANS 

lEVELIS, EVEID1 

STATES 

EVEID2 

TRANS 

SLAMDA, $EX!T,reL.AUr 

rcc D3C 


CTATC      TADi   CC      Tfl     D  A  D  C:  P 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  LINE  COMMAND 

1322  000000 

1323  000000 
132^  000000 
1325 

1326  000000 

1327  000000 
1328 

1329  000000 

1330  000000 

1331  000000 
1332 
1333 
1334 

1335  000000 

1336  000000 

1337  000000 

1338  000000 

1339  000000 

1340  000000 

1341  000000 

1342  000000 

1343  000000 

1344  000000 

1345  000000 

1346  000000 

1347  000000 

1348  000000 

1349  000000 

1350  000000 
1351 
1352 
1353 

1354  000000 

1355  000000 
1356 

1357  000000 

1358  000000 

1359  000000 

1360  000000 
1361 
1362 
1363 

1364  000000 

1365  000000 
1366 

1367  000000 

1368  000000 
1369 
1370 
1371 

1372  000000 

1373  000000 
1374 

1375  000000 

1376  000000 
1377 
1378 
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STATES  DEFLIN 
TRANS  ILINID,LINE,,CO.LIN,SCOMP 
TRANS  IKNLIN,,,CO.KNL,SCOMP 


STATES 
TRANS 


LINE.aPSDELI 
ILINOPT 


STATES  LINO 
TRANS  ILINOPT, UNO 
TRANS  $LAMDA,$EXIT 


;  LINE 

OPTIONS 
STATES 

LINOPT 

TRANS 

ILSTATE 

,SEXIT, 

OL.STA, 

SOPRND 

TRANS 

I  BAUD, 

SEXIT, 

OL.BAU, 

SOPRND 

TRANS 

ICSR. 

SEXIT, 

OL.CSR, 

SOPRND 

TRANS 

lUNCSR, 

SEXIT, 

OL.SEC, 

SOPRND 

TRANS 

IVEC, 

SEXIT, 

OL.VEC, 

SOPRND 

TRANS 

IPRI, 

SEXIT, 

OL.PRI, 

SOPRND 

TRANS 

IPLX, 

SEXIT, 

OL.PLX, 

SOPRND 

TRANS 

lURM, 

SEXIT, 

OL.URM, 

SOPRND 

TRANS 

IDPR, 

SEXIT, 

OL.DPR, 

SOPRND 

TRANS 

ILCT, 

SEXIT, 

OL.CTM, 

SOPRND 

TRANS 

IH8T, 

SEXIT, 

OL.HBT, 

SOPRND 

TRANS 

IM8L, 

SEXIT, 

OL.BSZ, 

SOPRND 

TRANS 

IMfiT, 

SEXIT, 

OL.RTC, 

SOPRND 

TRANS 

;mwil. 

SEXIT, 

OL.USZ, 

SOPRND 

TRANS 

IRTT, 

SEXIT, 

DL.RTT, 

SOPRND 

;  LOOK 

FOR  LINE 

STATES 
TRANS 

STATE 

LSTATE 
&KSSTA 

STATES 

.8PSLIST 

TRANS 

8KS0N, 

SEXIT, 

SW.LOAI 

SW.ENA,  SSWICH 

TRANS 

8KS0FF, 

SEXIT, 

SW.LOA, 

SSWICH 

TRANS 

SKSCLE, 

SEXIT 

;  LOOK 

FOR  VECTOR  ADDRESS 

STATES 

VEC 

TRANS 

KKSVEC 

STATES 

,£PSVEC 

TRANS 

SNUM8R, 

SEXIT, 

.LIVEC 

■  LOOK 

FOR  PRIORITY 

STATES 

PR  I 

TRANS 

SKSPRI 

STATES 

.8P$PRI 

TRANS 

§NUMBR , 

SEXIT, 

.LlPRl 

LOOK  FOR  DUPLEX 


CTftTC      TADI    CC      TH     D  A  D  C  C         MATDn     \lC\^     H^h     Tiiocdav     OP-.I 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  SYSTEM  COMMAND 

1986 
1987 
1988 
1989 

1990  000000 

1991  000000 
1992 

1995  000000 
1991!,  000000 
1995 

1996  000000 

1997  000000   I 

1998  000000 
1999 
2000 
2001 

2002  000000 

2003  000000 
200A  000000 

2005  000000 

2006  000000 

2007  000000 

2008  000000 

2009  000000 
2010 
2011 
2012 
2013 

20U  000000 
2015  000000 
2016 

2017  000000 

2018  000000 

2019  000000 

2020  000000 
2021 
2022 
2023 

2024  000000 

2025  000000 
2026 

2027  000000 

2028  000000 
2029 
2030 
2031 

2032  000000 

2033  000000 
2031 

2035  000000 

2036  000000 
2037 
2038 
2059 

2040  000000 

2041  000000 
2042 
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.SBTTL  DEFINE  SYSTEM  COMMAND 


;  DEFINE  SYSTEM 

COMMAND 

STATES 
TRANS 

DEFSYS 
8KSSYS,,, 

CO 

SYS, 

SCOMP 

STATES 
TRANS 

.aPSSYS 
ISYSOPT 

STATES 
TRANS 
TRANS 

SYSO 

SEOS,   SEXIT 

ISYSOPT, SYSO 

;■  DEFINE  SYSTEM 

OPTIONS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

SYSOPT 

IPOOL,   SEXIT 
ILOC,   SEXIT, 
ICCBNM,  SEXIT, 
IRD8NM,  SEXIT, 
IRDBSZ,  SEXIT, 
ISD8NM,  SEXIT, 
ITHRESH, SEXIT, 

OS 
OS 
OS 
OS 
OS 
OS 

LOC, 
CCB, 
R8N, 
RBS, 
SBN, 
THR, 

SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 

;  DEFINE  SYSTEM 

POOL 

STATES 
TRANS 

POOL 
SKSPOL 

STATES 
TRANS 
TRANS 
TRANS 

,8P$P0PT 
IPNAM,   SEXIT, 
.'PAR,   SEXIT, 
I8YT,   SEXIT, 

OS 
OS 
OS 

.NAM, 
.PAR, 
.BYT, 

SOPRND 
SOPRND 
SOPRND 

;  POOL  NAME 

STATES 
TRANS 

PNAM 
&KSNAM 

STATES 
TRANS 

.SPSPNAM 
iRAD50,  SEXIT, 

.SYPOL 

;  PARTITION  NAME 

STATES 
TRANS 

PAR 
SKSPAR 

STATES 
TRANS 

,&PSPAR 
iRADSO,  SEXIT, 

.SYPAR 

;  BYTE  EXTENSION 

STATES 
TRANS 

BYT 
SKSBYT 

CTATC  TADI  PC  Tn  DADQF 
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EXIT  STATE 


Page  15 


2637 
2638 
2639 
2640 
2641 

2642  000000 

2643  000000 
2644 

2645  000000 
2646 
2647 
2648 


000CC1 


.SBTTL 

EXIT    STATE 

STATES 
TRANS 

STATES 
.END 


EXIT   STATE 


EXIT 
SEOS, 


SEXIT 
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CFEROT  -  ROOT  SEGMENT  FOR  CFE 


1 
2 

5 

6 

7 

8 

9 
10 
11 

:2 

13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

50 

31 

32 

33 

3^4 

35 

36 

37 

38 

39 

AG 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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.TITLE  CFEROT  -  ROOT  SEGMENT  FOR  CFE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  HAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 
CFE  -  ROOT  SEGMENT 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 


IDENT  HISTORY: 


,00  lO-FEB-78 

VERSION  2.0  RELEASE 


2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


rFF 


RnnT  SFGMFNT  FOR  CFE   MACRO  V05.03b  Saturday  29-Jun-85 


05:1 
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CFERQB  -  DYNAMIC  BUFFER  MANAGEM  MACRO  VO5.03b  Saturday  29-Jun-85  05:13 
$RLBF   RELEASE  CORE  BLOCK 


168  OOOUO 

169  000K2 

170  000U4 

171  0OOU6 

172  000150 

173  000152 
17A 

175 
176 

177  0001 5A 

178  000156 

179  000160 

180  00016A 

181  000166 

182  000170 

183  000172 

184  000176 

185  000200 

186  000204 
187 

188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 

211  000206 

212  000212 

213  000214 

214  000216 

215  000220 

216  000222 

217  000224 

218  /)0230 

219  C00234 

220  000236 

221  000240 

222  000242 

223  000246 

224  000250 


060104 
001404 
020304 
001002 
012312 
061301 


SEE  IF 


010210 

010004 

066004  000002 

020204 

001004 

011210 

066001  000002 

010002 

010162  000002 

000207 


H: 


4$: 
5$: 


ADD 

R1,R4 

BEO 

3$ 

CMP 

R3,R4 

BNE 

3$ 

MOV 

(R3)+,(R2) 

ADD 

(R3),R1 

BLOCKS 

CAN  BE  MERGED  IN 

MOV 

R2,(R0) 

MOV 

R0,R4 

ADD 

2(R0),R4 

CMP 

R2,R4 

BNE 

4$ 

MOV 

(R2),(R0) 

ADD 

2(R0i,R1 

MOV 

R0,R2 

MOV 

R1,2(R2) 

RETURN 
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ADD  IN  BLOCK  SIZE  „_^^ 

EQ  -  NEU  21 OCK  ENDS  AT  32K  -  DO  NQt  MERGE 

COMPARE  ADDRESSES 

IF  NE  DO  NOT  MERGE  BLOCKS 

SET  NEW  FORWARD  LINK 

ADJUST  SIZE 

OLD  ♦  NEW  ORDER. 

ASSUME  NO  AGGLOMERATION 

CALCULATE  ADDRESS  OF  NEXT  BLOCK 

ADD  IN  BLOCK  SIZE 

COMPARE  ADDRESSES 

IF  NE  DO  NOT  MERGE 

SET  NEW  FORWARD  LINK 

ADJUST  SIZE 

SET  NEW  BASE  ADDRESS  OF  BLOCK 

SET  SIZE  OF  BLOCK 


♦•-.RQC8-REQUEST  CORE  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  REQUEST  A  CORE  BLOCK  FROM  THE  FREE  LIST. 
THE  SELECTION  IS  MADE  EITHER  FIRST  FIT  OR  BEST  FIT  ACCORDING  TO  THE 
THE  INPUT  PARAMETERS. 


INPUTS: 


RO=ADDRESS  OF  FREE  BLOCK  LIST  HEAD. 
R1=SIZE  OF  BLOCK  REQUESTED  IN  BYTES. 

IF  R1  IS  GE  0,  THEN  BEST  FIT  IS  USED. 

IF  Rl  IS  LT  0,  THEN  FIRST  FIT  IS  USED. 

IN  EITHER  CASE  THE  MAGNITUDE  OF  Rl  IS  THE  SIZE  OF  THE  BLOCK. 


OUTPUTS: 


C^l  IF  REQUEST  CANNOT  BE  FULFILLED. 
C=0  IF  REQUEST  IS  SATISFIED. 

RO^ADDRESS  OF  REQUESTED  CORE  BLOCK. 


004567  OOOOOOG 

005004 

005005 

010102 

100001 

005401 

062701  000003 

042701  000003 

001442 

011003 

OOKl'ij 

0201tS  0.rCu2 

iO'o:3 

001422 


.RQC8: 


1$: 


2$: 


JSR 

R5,$SAVRG 

CLR 

R4 

CLR 

R5 

MOV 

R1,R2 

BPL 

1$ 

NEG 

Rl 

ADD 

#3,R1 

BIC 

#3,R1 

BEO 

9$ 

MOV 

(R0),R3 

BEQ 

5$ 

CMP 

R1,2(R3) 

BHI 

4$ 

BEQ 

6$ 

SAVE  NONVOLITILE  REGISTERS 

CLEAR  PREVIOUS  BLOCK  ADDRESS 

CLEAR  FOUND  BLOCK  ADDRESS 

SET  TYPE  OF  FIT  FLAG 

IF  PL  BEST  FIT 

MAKE  SIZE  POSITIVE 

ROUND  TO  NEXT  2  WORD  BOUNDRY 

CLEAR  EXCESS  BITS 

IF  EQ  VERGESSEN! ! I 

GET  ADDR  OF  NEXT 

IF  EQ  END  OF  LIST 

BLOCK  BIG  ENOUGH? 

IF  HI  NO 

IF  EQ  CORRECT  SIZE— USE  IT 
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CFESTB  -  STATE  TABLES  TO  READ 
Symbol  table 


CM.EXU 

Ei1RALL  = 

ERR5YN= 

RBRKT  = 

SEMI  = 

TMPKTB 

TMPSTB 

$ALPHA= 

SANY  = 

$BLANK= 

JBUFI  = 

$CFERR= 

$CFER1= 

$CMANC>= 

tDlGIT=: 


»»♦»»♦  Gx 
«»...«  Gx 

»»»«««  GX 

000076 

000073 

OOOOOORG 

OOOOOORG 

000022 

000020 

000006 

»*»*«♦  GX 

»«»«»*  GX 

»««»««  GX 

»«*»♦*  GX 

00002A 


$ONUMB= 
$EOS  = 
SERROR 
$EXIT  = 
$FAIL  : 
003  $LAMDA= 
002  SNUMBR^ 
$Q1NS  = 
$RAD50= 
SRDATA: 
$RQBF  = 
SSTRNG: 
SSUBXP: 
$TALOC 
STMBUF: 
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OOOOU 

000012 

OOOOOORG 

000000 

177777 

000000 

000002 

*4»«t»  GX 

000016 

»»*•«*  GX 

«««»»•  GX 

OOOOOA 

000010 

000U6RG 

«»*«*•  GX 


$TMCHN= 

****** 

GX 

$TMLST= 

****** 

GX 

$TMSTA= 

******  GX 

$TMCNT= 

****** 

GX 

$TMN0D= 

****** 

GX 

STMSTB 

000002RG 

$TMCUG= 

****** 

GX 

$TMOBJ= 

****** 

GX 

$TMSVC= 

***♦*•  GX 

$TMDDM= 

****** 

GX 

$TMPAR= 

****** 

GX 

$TMUNT= 

******  GX 

$TMDEC= 

****** 

GX 

$TMPSN= 

****** 

GX 

$TMX2P= 

******  GX 

$TMDLC= 

****** 

GX 

$TMPVC= 

****** 

GX 

$TMX29= 

******  GX 

$TMDSA= 

****** 

GX 

$TMRDT= 

****** 

GX 

$TMX3P= 

******  GX 

$TMDSC= 

****** 

GX 

$TMREM= 

****** 

GX 

STIALC 

0001 70RG 

$TMDST= 

****** 

GX 

$TMROU= 

****** 

GX 

$XXAVL= 

******  GX 

$TMDTE= 

****** 

GX 

$TMSAC= 

****** 

GX 

$$$FLG= 

■^77777 

$TMEVT= 

****** 

GX 

$TMSAD= 

****** 

GX 

$$$KEY= 

00004^ 

$TMFEA= 

****** 

GX 

$TMSER= 

****** 

GX 

$$$STA= 

000000 

$TMF]L= 

****** 

GX 

$TMSLT= 

****** 

GX 

$$$TMP=: 

000374R 

$TMLLC= 

****** 

GX 

$TMSNA= 

****** 

GX 

.EXIT  = 

******  GX 

$TMLOG= 

****** 

GX 

$TMSPU= 

****** 

GX 

.TPARS= 

******  GX 

00^ 


000000 
000234 
000344 
000112 
000403 
Errors  detected: 


.  ABS. 

SSTATE 

SKTAB 

SKSTR 


000 
001 
002 
005 
004 
0 


(RW,I,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RW,[),LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


♦♦•  Assembler  statistics 

Work  file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  10646  Words 

Size  of  core  pool:  14440  Words 

Operating  system:  RSX-1 1M/PLUS 

SY:CFESTB!v2![l'32?l'^4]CFEST8/CR/-SP=SY;[1,1]RSXMfM.SML/ML,n30,110]NETLI8/ML,i:i32,10]r'ESTB 


(  42  Pages) 
(  55  Pages) 
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fFESUB  -  COMMON  SUBROUTINES     MACRO  V05.03b  Saturday  29-Jun-85  05; 
$C5TA  -  CONVERT  EXTENDED  RAD50  TO  ASCII  ("•") 


14  Page  11 


275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291  000232 

292 

293 

294 

295  000234 

296  000234 

297  000242 

298  000244 

299  000244 

300  000252 

301  000254 

302  000260 

303  000262 

304  000266 

305  000270 

306  000274 

307  000276 

308  000300 

309  000302 

310  00033', 

311  00C310 

312  000312 

313  000314 
314 

315 
316 
317 
318 

319  000316 

320  000320 

321  000324 

322  000330 

323  000332 

324  000334 

325  000336 

326  000340 

327  000344 

328  000346 

329  000350 

330  000354 

331  000356 


.SBTTL  $C5TA  -  CONVERT  EXTEND!  0  RAD50  TO  ASCII  (''♦'') 
.SBTTL  $C5TA1-  CONVERT  EXTENDED  RAD50  TO  ASCII  ("-") 

'»••  -  $C5TA  -  CONVERT  EXTENDED  RAD50  TO  ASCII  (WITH  TRAILING  SPACES  DELETED) 
•  ••  -  $C5TA1-  CONVERT  EXTENDED  RAD50  TO  ASCII  ("-  ') 

INPUT: 

RO  =  ADDRESS  OF  OUTPUT  BUFFER 
R1  =  RAD50  CHARACTER  TO  CONVERT 

OUTPUTS: 

RO  =  NEXT  LOCATION  IN  BUFFER  AFTER  CONVERTED  STRING 

EXTENDED  RAD50  INCLUDES  THE  "•"  (OR  "-")  CHARACTER. 


012767  000033  177770 
000403 

012767  000030  177760 

010002 

004767     000036 

010046 

004767     000030 

010046 

004767     000022 

110022 

112622 

112622 

010200 

122740     000040 

001775 

005200 

000207 


010100 

012701     000050 

004767     OOOOOOG 

010146 

010001 

012600 

001417 

020027     000033 

002412 

001407 

020027     000035 

001002 

016700  177650 


EXTCHR: 

.BLKU 

1 

.ENABL 

LS8 

$C5TA1: 

MOV 

#<'—22>, EXTCHR 

BR 

5$ 

$C5TA:: 

MOV 

#<'*-22>, EXTCHR 

5$: 

MOV 

R0,R2 

CALL 

CVTC 

MOV 

RO,-(SP) 

CALL 

CVTC 

MOV 

RO,-(SP) 

CALL 

CVTC 

MOVB 

R0,(R2)t 

MOVB 

(SP)+,(R2)t 

MOVB 

(SP)t,(R2)+ 

MOV 

R2,R0 

10$: 

CMP6 

»'    ,-(R0) 

BEQ 

10$ 

INC 

RO 

RETURN 

.DSA8L 

LS8 

;  CONVERT  RAD50 

CHARACTER 

CVTC: 

MOV 

PI.RO 

MOV 

*56,R1 

CALL 

$DIV 

MOV 

R1,-(SP) 

MOV 

RO.RI 

MOV 

(SP)t,RO 

BEQ 

30$ 

CMP 

RO,#33 

BLT 

20i 

BEQ 

10$ 

CMP 

R0,*35 

BNE 

5$ 

MOV 

EXTCHR, RO 

;  EXTENDED  RAD50  CHAR 


EXTEND  BY  HYPHEN 
JOIN  COMMON  CODE 

EXTEND  BY  ASTERISK 

SAVE  BYTE  ADDRESS 

CONVERT  FIRST  CHAR 

SAVE  IT 

CONVERT  SECOND  CHAR 

SAVE  IT 

CONVERT  THIRD  CHAR 

STORE  IT 

STORE  SECOND  CHAR 

STORE  THIRD  CHAR 

SAVE  TERMINAL  ADDRESS 

BACK  UP  OVER  SPACES 

WENT  A  LITTLE  TOO  FAR 


COPY  DIVIDEND  TO  RO 

SET  DIVISOR 

DIVIDE  EM  UP 

SAVE  REMAINDER 

COPY  QUOTIENT  TO  R1 

RETRIEVE  REMAINDER 

IF  EQ,  BLANK 

TEST  MIDDLE 

IF  LT,  ALPHA 

IF  EQ,  DOLLAR 

TEST  FOR  ASTERISK 

IF  NE,  NOT  ASTERISK 

OUTPUT  ASTERISK  (OR  H''PHEN) 


rnwMnM   <;iiFi3niiT  rwF<; 
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CfESUB  CREATED  BY     MACRO     ON  29-JUN-85  AI   05:^4 

SYMBOL   CROSS  REFERENCE 

SYMBOL      VALUE  REFERENCES 

CD.LEN 

CNTRL 

CS.DDM 

CS.DEC 

CS.DLC 

CS.LLC 

Cb.MOt) 

CS.PAR 

CS.ROU 

CS.SL1 

CS.STA 

CVTBL 

CVTC 

C$LEN 

CSLENX 

C.CNT 

C.DELF 

C.DELW 

C.FLG 

C.INAC 

C.INCT 

C.IPL 

C.LKS 

C.LST 

C.NAM 

C.NDC 

C.OUTT 

CPRM 

C.RETF 

C.SEG 

C.STS 

CUNT 

DSFLEN 

DSFLNX 

EXTCHR 

EXSSUC 

E$NBR 

ESNSS 

ESNCR 

ESNCS 

ESNIC 

ESNLEN 

ESNLLA 

ESNLNtC 

£$NML 

E$NMR 

ESNMS 

ESNNOD 

ESNRT 

ESNRTP 

ESNSEG 

ESNTIM 


000022 

#4-64 

000404 

^ 

#12-354 

•12-363 

•12-366 

t  1^  ***  * 

GX 

13-458 

****** 

GX 

16-591 

****** 

GX 

13-456 

****** 

GX 

13-454 

****** 

GX 

16-623 

****** 

GX 

16-587 

****** 

GX 

16-595 

****** 

GX 

14-490 

****** 

GX 

15-548 

000414 

R 

#12-557 

12-377 

12-423 

000316 

R 

11-301 

11-303 

11-305 

000016 

5-97 

000020 

G 

#5-97 

000010 

#4-75 

14-508 

000016 

#4-64 

00001 7 

#4-64 

000006 

#4-74 

14-499 

14-503 

000014 

#4-64 

000012 

#4-64 

000020 

#4-64 

000010 

#4-64 

000021 

#4-64 

000004 

#4-73 

14-496 

0000U6 

#4-64 

16-604 

000013 

#4-64 

****** 

GX 

13-462 

13-465 

15-55? 

000015 

#4-64 

000004 

#4-64 

***** * 

GX 

13-454 

13-456 

13-458 

000011 

#4-76 

14-514 

000032 

5-101 

000034 

G 

#5-101 

000232 

R 

#11-291 

»11-296 

*11-299 

****** 

GX 

8-196 

000014 

#4-63 

000020 

#4-63 

000034 

#4-63 

000036 

#4-63 

000044 

#4-63 

000050 

#4-63 

16-605 

000012 

#4-63 

000000 

#4-63 

000040 

#4-63 

000024 

#4-63 

000030 

#4-63 

000002 

#4-63 

000042 

#4-63 

000005 

#4-63 

000010 

#4-63 

000046 

#4-63 

F  16 

PAGE   1 

CPEF       04.00 


12-379 


#11-319 


14-516 


15-555 
14-490 

11-331 


6-597  16-615         •16-622 

15-548  16-587  16-591  16-595         •16-623 
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CFEIMP  -  SYMBOL  DEFINITIONS  AND  MACRO  V05.03b  Saturday  29-Jun-85  0A:55  Page  11-1 
DEFINE  TEMPLATES  GLOBALLY 


748 

000001 

749 

000002 

750 

000004 

751 

000010 

752 

000017 

753 

000017 

75A 

000001 

755 

000001 

756 

000001 

757 

000001 

758 

000002 

759 

760 

761 

762 

763 

764 

765 

000001 

766 

ooooo: 

767 

768 

000004 

769 

000010 

770 

000020 

771 

000040 

772 

000100 

773 

000200 

774 

000400 

775 

001000 

776 

002000 

777 

004000 

778 

010000 

779 

020000 

780 

040000 

781 

000003 

782 

076000 

783 

000624 

784 

000000 

785 

001150 

786 

000320 

787 

788 

789 

790 

791 

000001 

792 

000002 

793 

794 

000004 

795 

000010 

796 

797 

000020 

798 

000040 

799 

000100 

800 

000200 

801 

802 

000400 

803 

001000 

804 

1 

2 

4 
10 


WC.NAM  == 

WC.CNT  == 

WC.UNT  == 

WC.TRI  == 

UC.LIN 

UC.CIR 

WC.PRO 

UC.OBJ 

UC.NOD 

UC.EVE 

WC.LOG 


OPERAND  BIT  DEFINITIONS 


LINE  OPTIONS 


OL.CTM  ==  1 
OL.STA  ==  2 


OL.PRI  == 

OL.PLX  == 

OL.VEC  == 

OL.BAU  == 

OL.SEC  == 

OL.CSR  == 

OL.URM  == 

OL.DPR  == 

OL.HBT  == 

OL.RTC  == 

OL.USZ  == 

0L.8SZ  == 

OL.RTT  == 

OL.SLT 

OL.X25 

OL.CNT 

OL.STN 

OL.UNT 

OL.NUC 

CIRCUIT  OPTIONS 


4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

==  OL 


STAIOL 
OL.HBT I OL 
OL.PRIIOL 
0 

OL.PLXIOL 
OL.VECiOL 


=1  IF  WILD  CARD  NAMES 

=1  IF  WILD  CARD  CONTROLLER 

=1  IF  WILD  CARD  UNIT 

=1  IF  WILD  CARD  TRIBUTARY 

WILD  CARD  LINES 

WILD  CARD  CIRCUITS 

WILD  CARD  PROCESSES 

WILD  CARD  OBJECTS 

WILD  CARD  NODES 

WILD  CARD  EVENTS 

WILD  CARD  LOGGING 


=1  IF  COUNTER  TIMER  IS  PRESENT 
=1  IF  LOAD  REQUEST 

=1  IF  PRIORITY  PRESENT 

=1  IF  DUPLEX  IS  PRESENT 

=1  IF  VECTOR  IS  PRESENT 

=1  IF  BAUD  RATE  IS  PRESENT 

=1  IF  SECONDARY  CSR  IS  PRESENT 

=1  IF  CSR  IS  PRESENT 

=1  IF  UNIBUS  RUN  MASK  PRESENT 

=1  IF  DEAD  POLLING  RATIO  PRESENT 

=1  IF  HOLDBACK  TIMER  IS  PRESENT 

=1  IF  RETRANSMIT  COUNT  IS  PRESENT 

=1  IF  WINDOW  SIZE  IS  PRESENT 

=1  IF  BLOCK  SIZE  IS  PRESENT 

=1  IF  RETRANSMIT  TIMER  IS  PRESENT 
.CTM  ;  SLT  PARAMETERS 

.RTCIOL.BSZ10L.WSZ!OL.RTT  ;  X.25  LEVEL  2  PARAMETERS 
.VECIOL.CSRIOL.URM  ;  CONTROLLER  PARAMETERS 

;  STATION  PARAMETERS 
,SEC!0L.8AU10L.DPR:0L.STN  ;  UNITS/STATIONS 
.SEC! OL.CSR       ;  NO  WILDCARDS  ON  THESE 


OC.CTM 
OC.STA 

OC.CST 
OC.MWI 

OC.DTE 
OC.CHN 
OC.MBL 
OC.TRI 

OC.RTM 
OC.MRC 


:=  1 
==  2 

==  4 
==  10 

==  20 

==  40 

==  100 

==  200 

==  400 

==  1000 


COUNTER  TIMER 
STATE 

COST 

MAXIMUM  WINDOWS 

DTE  ADDRESS 
CHANNEL 

MAXIMUM  BLOCKS 
TRIBUTARY  ADDRESS 

RECALL  TIMER 
MAXIMUM  RECALLS 


(COMMON  WITH  LINE) 
(COMMON  WITH  LINE) 


(PSD 


(PSD 
(PSD 
(PSD 


(PSD 
(PSD 
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CFEIMP  -  SYMBOL  DEFINITIONS  AND  MACRO  V05.03b  Saturday  29-Jun-85  W:55  Page  13-4 
Symbol  table 


.  ABS. 

000062 

000 

(RW.i.GBL 

ABS 

OVR) 

002660 

001 

(RW.l.LCL 

RtL 

lUN) 

SSFSRl 

003060 

002 

(RW,D,GBL 

KtL 

UVR> 

$$$GCL 

000502 

003 

{RW,!,LCL 

,RtL 

tONJ 

Errors 

detected: 

0 

♦♦*  Assembler  statistics 

Work   file  reads:  0 

Work   f i le  writes:  0 

Size  of  work  file:  134A9  Words  (  53  Pages) 

Size  of  core  pool:  1A440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Svf CFEIMp'v2;[°32?°34]CfEIMP/CR/-SP=SY: CI J3RSXMCM.SML/ML, [130,1 lODNETLIB/ML, [132, 103CFEIMP 
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CFEIMP     CREATED  BY  MACRO  ON  29-JUN-R5  AT  0A;56 
SYMBOL  CROSS  REFERENCE 


G  3 

PAGE  15 

CREF   OA.OO 


SYMB 

VALUE 

REFERENCES 

$CLV 

001756  RG 

#7-265 

SCLWEF 

000152  RG 

#6-95 

SCMAND 

00H46  RG 

#7-142 

SCMDPT 

=  00K50  RG 

#7-228 

SCNFIG 

00U40  RG 

#7-140 

SCNTNM 

001554  RG 

#7-183 

SCOMP 

00U50  RG 

#7-145 

7-228 

SCOPES 

001574  RG 

#7-200 

7-222 

7-237 

SCOST 

001710  RG 

#7-217 

$CSR 

001556  RG 

#7-194 

7-221 

$CT 

=  001574  RG 

#7-237 

SCUG 

=  001576  RG 

#7-248 

SDEFNB 

000502  RG 

6-106 

6-113 

#6-115 

$DFO 

=  001602  RG 

#7-251 

SDFU 

=  001540  RG 

#7-252 

$OPR 

=  001570  RG 

#7-229 

7-238 

7-256 

SDST 

001716  RG 

#7-233 

7-254 

7-255 

$DTE 

001622  RG 

#7-209 

SDVNAM 

=  001532  RG 

#7-182 

SEACOS 

002012  RG 

#7-267 

SEAHOP 

002014   RG 

#7-268 

SEAMAX 

002010  RG 

#7-266 

SEBEA 

002020  RG 

#7-270 

$EBRT 

002016  RG 

#7-269 

SEINA 

002024  RG 

#7-272 

SEINC 

002025  RG 

#7-273 

SEOUT 

002026  RG 

#7-274 

tERDPB 

000404  RG 

#7-128 

SERET 

002027  RG 

#7-275 

lESEG 

002022  RG 

#7-271 

SESUB 

=  001716  RG 

#7-256 

SEVBEG 

001616  RG 

#7-207 

7-245 

SEVENT 

001604  RG 

#7-205 

SEXSTS 

001470  RG 

#7-156 

SFIATR 

000340  RG 

#6-117 

SFILHD 

001432  RG 

#7-156 

SFLAGS 

001442  RG 

#7-141 

$HBT 

=  001602  RG 

#7-244 

SHIVBN 

001472  RG 

#7-157 

SHOST 

=  001560  RG 

#7-251 

$HTM 

=  001620  RG 

#7-259 

SID 

001622  RG 

#7-210 

7-212 

7-215 

SIFDB 

000142  RG 

#6-110 

SINFO 

001464   RG 

#7-14  8 

SLINKS 

001562  RG 

#7-196 

7-  27 

7-250 

SLOVBN 

001474   RG 

#7-158 

SLSNAD 

001456  RG 

#7-138 

SLSiMP 

00145^   RG 

#7-137 

SMAXC 

=  001550  RG 

#7-219 

SMAXH 

=  001552  RG 

#7-220 

SMBL 

=  001564   RG 

#7-240 

SMCl 

=  001542  RG 

#7-257 

7-256 


7-290 


H  3 
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♦♦F1LE'«1D««CFEL1S 


CCCCCCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

Illlli 

ssssssss 

CCCCCCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

luni 

ssssssss 

CC          F 

EE 

n 

ss 

CC          F 

EE 

iJ 

ss 

CC          F 

EE 

ss 

CC          F 

EE 

ss 

CC          F 

FFFFFFF 

EEEEEEEE 

, 

ssssss 

CC          F 

FFFFFFF 

EEEEEEEE 

ssssss 

CC          F 

EE 

ss 

CC          F 

EE 

ss 

CC          F 

EE 

I 

ss 

CC          F 

EE 

11 

ss 

CCCCCCCC   F 

EEEEEEEEEE 

LLLLLLLLLL 

ijiiii 

ssssssss 

CCCCCCCC   F 

EEEEEEEEEE 

LLLLLLLILL 

iiiiij 

ssssssss 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

H     4 
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U3 
K4 
U5 
U6 
147 
H8 
H9 
150 
151 
152 
153 
154 
155 
156 
157 

158  000530 

159  000530 

160  000532 

161  000536 

162  000542 

163  000546 

164  000552 

165  000554 

166  000564 

167  000572 


**♦  -  $0PEN  -  OPEN  THE  OUTPUT  FILE 

INPUTS; 

Rl  =  ADDRESS  OF  FILE-SPEC 
R2  =  LENGTH  OF  FILE-SPEC 

OUTPUTS: 

C-8IT   =   SUCCESS/FAILURE 

RO  =  FDB  ADDRESS 

R1,R2   =  PRESERVED 

IF    SUCCESS:    FILE    IS  OPENED   FOR  URITE 


010146 
012700 
010260 
010160 

103404 

112767 
103431 


SOPEN:: 


000300' 

000002 

000004 


OOOOOOG  000052G  10$: 


MOV 

MOV 

MOV 

MOV 

CSISl 

BCS 

CSI$2 

M0V8 

BCS 


R1,-(SP) 
#CSBL<,RO 
R2,C.CML0(R0) 
R1,C.CMLD+2(R0) 


10$ 

.OUTPUT 
#IE.SNM,F 
40$ 


SAVE  REGISTER 

POINT  RO  AT  CSI  CONTROL  BLOCK 
GET  LENGTH  OF  FILE-SPEC  STRING 
AND  ADDRESS  OF  FILE-SPEC 
PARSE  FILESTRING 

;  IF  CS,  ERROR 

;  GET  OUTPUT  FILE  SPEC 
ERR+$OFDB  ;  ASSUME  BAD  FILENAME 

;  IF  CS,  RETURN  WITH  ERROR 


CODE 


168 

169 

170 

171  000574 

016700 

177520 

172  000600 

016701 

177512 

173  000604 

010146 

174  000606 

060100 

175  C00610 

005301 

176  000612 

002405 

177  000614 

124027 

000073 

178  000620 

001373 

179  000622 

010167 

177470 

180  000626 

012700 

OOOOOOG 

181  000632 

182  000640 

183  000652 

012667 

177440 

184  000656 

012601 

185  000660 

000207 

186 


IGNORE  INPUT  VERSON  NUMBER  AND  OPEN  NEW  OUTPUT  VERSION 


20$: 


30$: 


40$: 


MOV 

MOV 

MOV 

ADD 

DEC 

BLT 

CMPB 

BNE 

MOV 

MOV 

FDOP$R 

OPEN$W 

MOV 

MOV 

RETURN 


CS8LK:  +  C.FILD+2,R0;  POINT  TO  FILENAME 

CS8LK+C.FILD+0,R1  ;  GET  LENGTH 

R1,-CSP)        ;  SAVE  IT 

R1,R0  ;  POINT  TO  CHARACTER  AFTER  LAST 

Rl  ;  REDUCE  LENGTH 

30$  ;  IF  LT,  NO  VERSION  -  DONE 

-(R0),#<';>     ;  CHECK  FOR  SEMI 

20$  ;  IF  NE,  KEEP  ON  SCANNIN' 

R1,CSBLK+C.FILD+6  ;  SHORTEN  TO  SKIP  VERSION 

#$OFDB,RO      ;  POINT  AT  FDB 

,,#CSBLK+C.DSDS  ;  POINT  AT  PARSED  FILE-SPEC 

;  OPEN  OUTPUT  FILE 
(SP)+,CSBLK+C.FILD+0  ;   RESTORE  VERSION 
(SP)+,R1       ;  RESTORE  REGISTER 

;  RETURN  TO  CALLER 


H  5 


CFEPRG  -  PERFORM  PURGE  COMMAND 
PURLOG  -  PURGE  LOGGING 


215 
216 
217 
218 
219 
220 
221 
222 
22? 
22A 
225 
226 
227 
228 
229 
230 

231  000360  032767 

232  000366  00U25 

233  000370  052767 
23^  000376  012767 

235  000404  016704 

236  000410  012467 

237  000414  100546 

238  000416  012467 

239  000422  012467 

240  000426  012467 

241  000432  012467 

242  000436  010467 
243 

2'.4  000442  032767 

245  000450  001017 

246  000452  012704 

247  000456  032767 

248  000464  001015 

249  000466  012704 

250  000472  032767 

251  000500  001007 

252  000502  012704 

253  000506  000404 
254 

255  000510  012703 

256  000514  012304 

257  000516  001501 
258 

259  000520  012702 

260  000524  010205 

261  000526  011502 

262  000530  001470 

263  000532  122762 

264  000540  001371 

265  000542  026762 

266  000550  001365 

267  000552  020462 

268  000556  001362 

269  000560  010201 

270  000562  062701 

271  000566  03:767 
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.SBTTL  PURLOG  -  PURGE  LOGGING 


SPURLOG  -  PURGE  LOGGING 

INPUTS: 

SWILD  -  WILD  CARD  SPECIFICATIONS 
SEVENT  -  EVENT  MASKS 
SCLASS  -  EVENT  CLASS 
tOPRND  -  LOGGING  OPTIONS 

OUTPUT: 

TEMPLATE  IS  UPDATED 


OOOOOOG  OOOOOOG  PURLOG 

OOOOOOG  OOOOOOG 
OOOOOOG  177606 
177602        10$: 
OOOOOOG 

OOOOOOG 
000002G 
000004G 
000006G 
177550 

OOOOOOG  OOOOOOG  20$: 

000001 

OOOOOOG  OOOOOOG 

000002 

OOOOOOG  OOOOOOG 

000004 


000202' 


OOOOOOG 


30$: 
40$: 


45$: 
50$: 


OOOOOOG  OOOOOOG 
OOOOOOG  000004 
000016 


000006 

OOOOOOG  OOOOOOG 


BIT  #0M.KEV,$OPRND 

BEQ  20$ 

BIS  #WC.EVE,$WILD 

MOV  #$KNEVT,TEHP 

MOV  TEMP,R4 

MOV  CR4)+,$CLASS 

BMI  80$ 

MOV  (R4)+,$EVENT+0 

MOV  (R4)+,$EVENT+2 

MOV  (R4)+,$EVENT+4 

MOV  (fi4)+,$EVENT+6 

MOV  R4,TEMP 

BIT  #WC.LOG,$WILD 

BNE  30$ 

MOV  #FF.C0N,R4 

BIT  *OM.CON,$OPRND 

BNE  45$ 

MOV  #FF.FIL,R4 

BIT  #0M.FIL,$OPRND 

BNE  45$ 

MOV  #FF.M0N,R4 

BR  45$ 

MOV  #SNKTBL,R3 

MOV  (R3)+,R4 

BEQ  75$ 

MOV  #$TMLST,R2 

MOV  R2,R5 

MOV  (R5),R2 

BEQ  70$ 

CMPS  *CS.EVT,C.STS(R2) 

BNE  50$ 

CMP  $CLASS,C.CLS(R2) 

BNE  50$ 

CMP  R4,C.SNK(R2) 

BNE  50$ 

MOV  R2,R1 

ADD  #C.EVT,R1 

BIT  #WC.EVE,$W1LD 


KNOWN  EVENTS  SPECIFIED? 

BR  IF  NO 

WILDCARD  EVENTS  IF  KNOWN  EVENTS 

POINT  TO  KNOWN  EVENTS  TABLE 

RETRIEVE  KNOWN  EVENTS  TABLE  POINTER 

GET  EVENT  CLASS 

BR  IF  END  OF  TABLE 

GET  FILTER  MASKS 


SAVE  UPDATED  KNOWN  E"ENTS  POINTER 

KNOWN  LOGGING  SPECIFIED? 

BR  IF  YES 

ASSUME  LOGGING  CONSOLE 

LOGGING  CONSOLE  SPECIFIED? 

BR  IF  YES 

ASSUME  LOGGING  FILE 

LOGGING  FILE  SPECIFIED? 

BR  IF  YES 

ELSE   MUST  BE   LOGGING  MONITOR 

CONTINUE 

POINT  TO  SINK  TYPE  TABLE 

GET  SINK  TYPE 

BR  IF  END  OF  LIST 

GET  START  OF  TEMPLATES 

COPY  CURRENT  TEMPLATE  ADDRESS 

GET  NEXT  TEMPLATE 

BR  IF  END  OF  LIST 

IS  THIS  AN  EVENT  TEMPLATE? 

BR  IF  NO 

IS   THIS    THE    CORRECT    TEMPLATE? 

BR   IF   NO 

IS  THIS  THE  CORRECT  TEMPLATE? 

BR  IF  NO 

POINT  TO  EVENT  TEMPLATE 

POINT  TO  EVENT  MASKS 

ALL  EVENTS? 


H  6 

n/  .  C7 


CFEPRS  -  STATE  TABLES  TO  PARSE 
MACROS  AND  STORAGE 


5^ 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A  000000 
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.SBTTL  MACROS  AND  STORAGE 


0OOC01 


000001 


000001 


000042 
000076 


85 
86 
87 

88  000000 

89  000000 

90  000000 

91  000000 

92  000000 

93  000000 

94  000000 

95  000000 

96  000000 

97  000000 

98  000000 

99  000000 

100  000000 

101  000000 

102  000000 

103  000000 

104  000000 

105  000000 

106  000000 

107  000000 

108  000000 

109  000000 

110  000000 


■  **** 

;  LIBRARr  MACRO 

CALLS 

;  »  ♦  «  ♦ 

.MCALL 

ISTATS, STATES, 

TRANS, GCLS 

■  SIGNAL  PROMPTING  SUPPORT 

SGPRM  = 

1 

•  ONLY  DEFINE  OFFSETS  FOR  PROMPT  STRINGS 

SGOFF  = 

1 

;  MAKE  TPARS  TABLES  READ  ONLY 

SRONLY 

=  1 

QUOTE  =  '" 

RTBRK  =  '> 

.ENABL 

LC 

.SBTTL 

KEYWORDS 

•  **** 

;  TPARS  STATE  TABLES 

;  **** 

ISTATS 

PRSSTB,PRSKTB 

;  DEFINE  KEYWORDS 

KEYWDS 

"ACTIVE", 

"address''. 

KSACT 

KEYWDS 

KSADD 

KEYWDS 

"ADJACENCIES" 

KSADJ 

KEYWDS 

"ALL", 

"area''. 

KSALL 

KEYWDS 

KSARE 

KEYWDS 

"ACCESS", 

KSACC 

KEYWDS 

•BILATERAL", 

KSBIL 

KEYWDS 

"BLOCK", 

KSBLK 

KEYWDS 

"BROADCAST", 

KSBRO 

KEYWDS 

"BYTE", 

KSBYT 

KEYWDS 

"BUFFER", 
"BUFFERS  , 

KSBUF 

KEYWDS 

KSBUFS 

KEYWDS 

"CALL", 

KSCALL 

KEYWDS 

"CHANNEL", 

KSCHN 

KEYWDS 

"CHANNELS  ', 

KSCHNS 

KEYWDS 

"CHARACTERISTICS", KSCHA 

KEYWDS 

"CIRCUIT", 

KSCIR 

KEYWDS 

"circuits''. 

KSCIRS 

KEYWDS 

"CLEAR  , 

KSCLR 

KEYWDS 

"clears'', 
"cleared''. 

KSCLRS 

KEYWDS 

KSCLE 

KEYWDS 

"CONSOLE", 

KSCNSL 

KEYWDS 

"CONTROL", 

KSCTL 

;  QUOTED  STRING  DELIMETER 
;  RIGHT  BRACKET 


L,AC   A7L 


H  7 

-Qt:    1/  .no 


J^na     /. -1 


CFEPRS  -  STATE  TABLES  TO  PARSE 
SUB-EXEPRESSIONS  FOR  EVENT  ID 

71? 
718 

719  000000 

720  000000 

721  000000 
722 
723 
724 

725  000000 

726  000000 

727  000000 

728  000000 

729  000000 

730  000000 
731 
732 
733 

734  000000 

735  000000 
736 
737 
738 
739 
740 

741  000000 

742  000000 
743 

744  000000 

745  000000 
7',6  000000 
747  000000 
748 
749 
750 

751  000000 

752  OOCOOO 
753 

754  000000 

755  000000 
756 
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EVENT  LIST 

STATES 
TRAN$ 
TRANS 

EVENT  RANGE 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


EVELIS 

lEVERAN.SEXIT 

IEVENUM,$EXIT 


EVERAN 
$DNUMB,,C(CEVEB 


SDNUMB,SEXIT,CKEVER 
EVENT  NUMBER 


STATES 
TRANS 


EVENUM 
SDNUMB,SEXIT,CKEVEN 


.SBTTL  SUB-EXPRESSION  TO  PARSE  LOGGING  MONITOR 

PARSE  LOGGING  MONITOR 

STATES  LOGID 

TRANS  &KSLOG 

STATES  ,SP$LOG 

TRANS  8K$MON,SEXIT,,0M.MON,$OPRND 

TRANS  &KSFIL,SEXIT,,OM.FIL,$OPRND 

TRANS  £KSCNSL,SEXIT,,OM.CON,SOPRND 


KNOWN  LOGGING 

STATES 
TRANS 


KNLOG 
&K$KNO 


STATES      .SPSPEN 
TRANS     kSLOG,SEXIT,,WC.L0G,SWILD 


_  Q  c    1  /  .  n  0 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  LINE  COMMAND 

1379 

1380  000000 

1381  000000 
1382 

1383  000000 
138A  000000 
1385  000000 
1386 
1387 
1388 

1389  000000 

1390  000000 
1391 

1392  000000 

1393  000000 

1394  000000 
1395 
1396 
1397 

1398  000000 

1399  000000 
1A00  000000 
1A01  000000 
K02 
K03 
H04 

1A05  000000 
K06  000000 
1407  000000 
1408 

1409  000000 

1410  000000 
1411 

1412  000000 

1413  000000 
1414 
1415 
1416 

1417  000000 

1418  000000 

1419  000000 
1420 

1421  000000 

1422  000000 
1423 

1424  000000 

1425  000000 
1426 
1427 
1428 

1429  000000 

1430  000000 
1431 

1432  000000 

1435  000000 
1434 

1435  000000 
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STATES 
TRANS 


PLX 
&KSDUP 


STATES  ,&PSDUP 

TRANS  kSFUL,  SEXIT, 

TRANS  8KSHAL,  SEXIT 

LOOK  FOR  BAUD  RATE 


SW.FUL,  SSWICH 


STATES 
TRANS 

STATES 
TRANS 
TRANS 


BAUD 
SKSSPD 

,&PSSPO 

IGT9600, SEXIT, 
SDNUMB,  SEXIT, 


.LISPD 


-1, 


SBAUD 


SUBEXPRESSION  TO  MATCH  ">9600' 


STATES 
TRANS 

STATES 
TRANS 

LOOK  FOR  CSR 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


GT9600 
RTBRK 

8KS9600, SEXIT 


CSR1 


CSR 

8KSC0N, 

SLAMDA 

CSRl 
&KSCSR 


,£PSCSR 
SNUM8R,  SEXIT, 


.LICSR 


LOOK  FOR  SECONDARY  CSR 


STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


CSR2 


UN  CSR 

8KSUNT, 

SLAMDA 

CSR2 
&K$CSR 


.SPSCSR 
SNUM8R,  SEXIT, 


HOPE  IT  GETS  TO  CONTROLLER  FIRST 


.LISEC 


LOOK  FOR  UNI8US  RUN  MASK 


STATES 
TRANS 

STATES 
TRANS 


URM 
SKSURM 

.gPSURM 

'[,     MASK 


STATES  NEXT 


H  9 

_  Q  c  1  /. .  n  p 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  SYSTEM  COMMAND 

20^5  000000 
20A4  000000 
2045  000000 
2046 

2047  000000 

2048  000000 

2049  000000 
2050 

2051  000000 

2052  000000 
2053 
2054 
2055 

2056  000000 

2057  000000 

2058  000000 
2059 

2060  000000 

2061  000000 
2062 

2063  000000 

2064  000000 

2065  000000 
2066 
2067 
2068 

2069  000000 

2070  000000 
2071 

2072  000000 

2073  000000 
2074 

2075  000000 

2076  000000 
2077 

2078  000000 

2079  000000 
2080 
2081 
2082 

2083  000000 

2084  000000 
2085 

2086  000000 

2087  000000 
2088 

2089  000000 

2090  000000 
2091 

2092  000000 

2093  000000 
2094 
2095 
2096 

2097  000000 

2098  000000 
2099 
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STATES 
TRANS 
TRANS 

•-,BYT1 
SLAMDA, 

BYT2 

STATES 
TRANS 
TRANS 

BYT1 

&KSARE, 

SLAMDA 

BYT2 

STATES 
TRANS 

BYT2, 
SDNUMB, 

f.PSBYT 
SEXIT, 

■  LOADING  LOCATION 

STATES 
TRANS 
TRANS 

LOC 

&KSLOC, 

SLAMDA, 

LOCI 
L0C2 

STATES 
TRANS 

LOCI, 
SLAMDA 

gPSLOC 

STATES 
TRANS 
TRANS 

L0C2 

8KST0P, 

SKSFIR, 

SEXIT, 
SEXIT 

;  MAXIMUM  CONTROL  BUFFERS 

STATES 
TRANS 

CCBNM 
8KSMAX 

STATES 
TRANS 

,&PSMAX 
kSCTL 

STATES 
TRANS 

,8P$C0N 

Jksbufs 

STATES 
TRANS 

,8P$CBN 
'jDNUMB  , 

SEXIT, 

;■  MAXIMUM  LARGE 

BUFFERS 

STATES 
TRANS 

RDBNM 
8KSMAX 

STATES 
TRANS 

,8P$MAX 
8KSLAR 

STATES 
TRANS 

,8PSLAR 
SKS8UF5 

STATES 
TRANS 

.8PSLBN 
SDNUMB, 

SEXIT, 

;  LARGE  BUFFER 

SIZE 

STATES 
TRANS 

RD8SZ 
8KSLAR 

.SYBYT 


SW.TOP,  SSWICH 


.SYCBN 


.SYRBN 


MAron     \ir\C.     A7K     Tii 
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Symbol  table 


AC0S2 

AhOP2 

APR 

BAUD 

BLAUT 

BYT 

BVT1 

BYT2 

CCBNM 

CHN 

CHNL 

CHNLl 

CIMXR 

CIMXR2 

CIMXR3 

CIRC 

CIRID 

CIRI1 

CIROPT 

CIRPR 

CIRPR2 

CIRO 

CISER 

CKEVEB= 

CKEVEC= 

CKEVEN= 

CKEVER= 

CKFSP  = 

CLM 

CLT 

CLV 

CM.DEF= 

CM.EXI= 

CM.HLP= 

CM.KIL= 

CM.LIS= 

CM.PUR^ 

CNTMAX 

COPY 

COST 

CO.CIR= 

CO.EXE= 

CO.KLG= 

CO.KNC= 

CO.KNL= 

CO.KNN= 

CO.KNO= 

CO.KNP= 

CO.LIN= 

CO.LOG= 

CO.MAC= 

CO.MSP= 

CO.MXP= 

CO.MXS= 

C0.MX9= 

fO.NO!)= 

CO.OBJ= 


010544R 

010604R 

005546R 

00643AR 

0H666R 

01173AR 

0117A6R 

01175iR 

012024R 

00557AR 

0K176R 

0H212R 

005334R 

005352R 

005360R 

005042R 

0071 72R 

007224R 

005066R 

005374R 

00540AR 

00505'iR 

O05A2OR 

****** 

nX 

****** 

:^x 

****** 

M 

****** 

:ix 

****** 

nx 

0U370R 

013510R 

0UA20R 

****** 

(iX 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

00473AR 

0n332f 

005512F 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

****** 

fix 

♦*♦♦*♦ 

GX 

002  CO.PRO= 
002  CO.SYS= 
002  CSR 
002  CSR1 
002  CSR2 
002  CSTATE 
002  CT 
002  CTM 
002  cue 
D02  DEFCIR 
002  DEFEXE 
002  DEFINE 
002  DEFLIN 
002  DEfLOG 
002  DEFMOD 
002  DEFNOO 
002  PEFOBJ 
002  DEFPRO 
002  DEFSYS 
002  DEFXAC 
002  DEFXPR 
002  DEFXSV 
002  DEFX29 
DFB 
DFW 
DFXACI 
DFXAC2 
DFXSVI 
002  DFXSV2 
002  0FX29A 
002  DFX29B 
DNUM 
DNUMO 
DNUM1 
DPR 
DPRl 
DQUOTE 
002  DST 
002  DSTA 
002  DSTLIS 
DSTLSO 
DSTLS1 
DSTLS2 
DSUB 
DSUB2 
DTE 

DTENUM 
DTEO 
DTE1 
DXPCGO 
DXPCG1 
DXPCG2 
DXPCUG 
DXPDDT 
DXPDDO 
DXPDDI 
DXPDD2 


******  GX 

******  GX 

006472R 

006500R 

006524R 

005462R 

005612R 

013A62R 

0007AAR 

005020R 

007444R 

001030R 

00602AR 

002350R 

012252R 

002736R 

011210R 

00'.556R 

01U76R 

012'i62R 

012350R 

012402R 

012532R 

013536R 

01356'iR 

012474R 

012506R 

012424R 

012436R 

012554R 

012566R 

0U234R 

0U254R 

0H262R 

006766R 

0U536R 

010254R 

001012R 

014120R 

012612R 

012656R 

012634R 

01264'IR 

014554R 

OU600R 

0H276R 

014300R 

014316R 

01A322R 

013400R 

013412R 

013424R 

013350R 

013212R 

013242R 

013254R 

013266R 


DXPRA8 
DXPRCH 
002  DXPRC1 
002  DXPRC2 
002  EACOST 
002  EADD 
002  EAHOPS 
002  EAMAX 
002  EBEA 
002  EBEA1 
002  EBEA2 
002  EBEA3 
002  EBRT 
002  EBRT2 
002  EBRT3 
002  ECOST 
002  EHOP 
002  EHOST 
002  EID 
002  EID1 
002  EINAC 
002  EINA2 
002  EINCT 
002  EINC2 
002  ELINK 
002  ENAME 
002  ENCOU 
002  ENN 
002  EOUTT 
002  E0UT2 
002  ERETF 
002  ERET2 
002  EROU 
002  ERRFSP= 
002  ERRILN= 
002  ERRIPV= 
002  ESE6 
002  ESEG2 
002  ESEG3 
002  ESUB 
002  ESUB2 
002  EVEID 
002  EVEID1 
002  EVEID2 
002  EVELIS 
002  EVENUM 
002  EVERAN 
002  EVFY 
002  EXEOPT 
002  EXEO 
002  EXIT 
002  EXPUR 
002  E2.BEA= 
002  E2.BfiT= 
002  E2.INA= 
002  E2.INC= 
002  E2.0UT= 


012366R 

002 

E2.RET= 

012776R 

(11)2 

E2.SEG= 

013010R 

002 

FILSPC 

013022R 

1)02 

FL.TRI= 

010626R 

002 

GNUM 

010050R 

002 

GT9600 

010566R 

002 

HBT 

010534R 

002 

HEXDIG 

010740R 

002 

HEXSTR 

010754R 

002 

HEXST2 

010770R 

002 

HOSNAM 

010772R 

002 

HRDSTR 

010666R 

002 

HRDST2 

010704R 

002 

HTM 

010720R 

002 

IN$CHA= 

010342R 

002 

IN$SUM= 

0103KR 

002 

KNCIR 

010070R 

002 

KND 

010156R 

002 

KNDS 

010164R 

002 

KNG 

011050R 

002 

KNLIN 

011060R 

002 

KNLOG 

011100R 

002 

KNNOD 

011110R 

002 

KNOBJ 

010130R 

002 

KNPRO 

010032R 

002 

K$ACC  = 

010416R 

002 

K$ACT  = 

010370R 

002 

K$ADD  = 

011130R 

002 

K$ADJ  = 

011140R 

002 

KSALL  = 

011160R 

002 

K$ARE  = 

Om70R 

002 

K$BIL  = 

010454R 

002 

K$BLK  = 

******  GX 

K$BRO  = 

**«»«*  GX 

K$BUF  = 

******  GX 

KSBUFS^ 

011012R 

002 

KSBYT  = 

011022R 

1)02 

k;$call= 

011030R 

002 

K$CHA  = 

010502R 

002 

KSCHN  = 

010526R 

002 

K$CHNS= 

002542R 

002 

K$CIR  = 

002572R 

002 

K$CIRS= 

00261 2R 

002 

KSCLE  = 

002620R 

002 

K$CLR  = 

002650R 

002 

K$CLRS= 

002634R 

002 

K$CNSL= 

010262R 

002 

K$CON  = 

007476R 

002 

KSCOP  = 

007464R 

002 

KSCOS  = 

015056R 

002 

K$COU  = 

000120R 

002 

K$COUN= 

******  GX 

K$CPA  = 

******  GX 

KSCPB  = 

******  GX 

KSCPC  = 

******  GX 

KSCPD  = 

******  GX 

KSCSR  = 

******  GX 

«*♦**♦  GX 

004352R 

«*»»**  GX 

014144R 

C06464R 

007042R 

014502R 

014450R 

014466R 

003260R 

004034R 

004040R 

005640R 

******  GX 

******  GX 

007424R 

000762R 

000776R 

000730R 

007404R 

002716R 

004536R 

011456R 

004762R 

000005 

OOOOOC 

000001 

000002 

000003 

000004 

000006 

000007 

000010 

000012 

000013 

000011 

000014 

000017 

000015 

000016 

000020 

000021 

000024 

000022 

000023 

000025 

000027 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000040 


KSCTL  = 

KSDAT  = 

002  KSDEA  = 

KSDEF  = 

002  KSDEV  = 

002  KSDFA  = 

002  K$D1AG= 

002  KSDIS  = 

002  KSDMP  = 

002  KSDST  = 

002  K$DSTS= 

002  KSDTE  = 

002  K$DTES= 

002  KSDUP  = 

KSENA  = 

KSEVE  = 

002  KSEXE  = 

002  KSEXI  = 

002  KSFAC  = 

002  K$FIL  = 

002  KSFIR  = 

002  KSFUL  = 

002  KSGRP  = 

002  K$GRPS= 

002  KSHAL  = 

KSHEL  = 

KSHLD  = 

KSHLO  = 

KSHOP  = 

KSHOS  = 

KSHRD  = 

K$ID  = 

KSIDE  = 

KSINA  = 

KSINC  = 

KSINS  = 

KSKIL  = 

KSKNO  = 

KSLAR  = 

K$LIN  = 

K$LINS= 

KSLIS  = 

K$LNKS= 

K$LOAD= 

KSLOC  = 

K$LOG  = 

K$LOGI= 

KSLOC  ^ 

KSMAX  = 

KSMIN  = 

KSMOD  = 

KSMON  = 

KSMSK  = 

KSMUL  = 

KSNAM  = 

KSNET  = 

KSNOD  = 


000026 
000041 
000042 
000044 
000047 
000043 
000050 
000051 
000054 
000045 
000046 
000052 
000053 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000071 
000073 
000075 
000074 
000076 
000077 
000072 
000101 
000100 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
000113 
000112 
000114 
000115 
000116 
000117 
000120 
000122 
000123 
000124 
000125 
000121 
000126 
000127 
000130 
000131 
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59 
60 
61 
62 
63 

65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 

96  000000 

97  000000 
98 

99 
100 
101 
102 

103  000000 

104  000030 
105 


**** 

LOCAL  MACROS 
**** 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERI 

.ENDM  EPRINT 

MACRO  LIBRARY  CALLS 


.MCALL   EXITSS.OELETS, CLOSES, EXSTSS.QIOWS, DIRS 
.MCALL   NBOFSL, FDOFSL 


;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


FDOFSL 
NBOFSL 

;  FDB  OFFSETS 

;  NAME  BLOCK  OFFSETS 

;  LOCAL 

DATA 

UATDP8: 
lOSB: 

OIOWS 
.8LKW 

IO.WAT,0,1,,I0SB,,<SOFD8tF.F 
2 
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225  000252 

226  000254 

227  000256 

228  000260 

229  000262 

230  000270 

231  000272 

232  000274 

233  000276 
23A  000300 

235  000302 

236  000304 

237  000306 

238  000310 

239  000312 

240  000314 

241  000316 

242  000322 

243  000324 

244  000330 

245  000332 

246  000334 

247  000336 

248  000340 

249  000342 

250  000344 
251 

252 


005702 

TST 

R2 

FIRST/BEST  FIT? 

100420 

BMl 

6$ 

IF  MI  FIRST  FIT 

005705 

TST 

R5 

FIND  PREVIOUS  BLOCK? 

001404 

BEQ 

3$ 

IF  EQ  NO 

026563 

000002  000002 

CMP 

2(fi5),2(R3) 

COMPARE  BLOCK  SIZES 

101402 

BLOS 

4$ 

IF  LOS  PREVIOUS  WINS 

010004 

3$: 

MOV 

R0,R4 

SET  ADDR  OF  PREV 

010305 

MOV 

R3,fi5 

SET  ADDR  OF  BLOCK 

010300 

4$: 

MOV 

R3,R0 

SE''  NEW  PREV  ADDR 

000756 

BR 

2$ 

GO  AGAIN 

005702 

5$: 

TST 

R2 

FIRST/BEST  FIT? 

100416 

BMI 

9$ 

IF  MI  FIRST  FIT 

005705 

TST 

R5 

FIND  A  BLOCK? 

001414 

BEQ 

9$ 

IF  EQ  NO 

010400 

MOV 

R4,R0 

RETRIEVE  ADDR  OF  PREV 

010503 

MOV 

R5,R3 

RETRIEVE  ADDR  OF  BLOCK 

160163 

000002 

6$: 

SUB 

R1,2(R3) 

REDUCE  SIZE  OF  BLOCK 

001403 

BEQ 

7$ 

IF  EQ  NONE  LEFT 

066303 

000002 

ADD 

2(R3),R3 

CALCULATE  ADDRESS  OF  BLOCK 

000401 

BR 

8$ 

011310 

7$: 

MOV 

(R3),(R0) 
R3,R0 

LINK  PREV  TO  NEXT 

010300 

8$: 

MOV 

SET  ADDRESS  OF  BLOCK 

000241 

CLC 

CLEAR  CARRy 

000401 

BR 

10$ 

000261 

9$: 

SEC 

SET  CARRY 

000207 

10$: 

RETURN 

000001 


.END 
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CREF        04.00 


SYMBOL 

VALUE 

REFERENCES 

CM.EXl 

r  ****** 

GX 

(>-Vl 

ERRALL 

r  ****** 

GX 

8-240 

ERRSYN 

r  ****** 

GX 

6-186 

^BR<T 

=  000076 

#4-99 

6-196 

SEMI 

=  000073 

#4-98 

TMPKIB 

000000 

^G 

#5-106 

6-178 

TMPSTB 

000000 

^G 

#5-106 

6-180 

SALPHA 

=  000022 

#5-106 

$ANY 

=  000020 

#5-106 

SBLANK 

=  000006 

#5-106 

$BUF1 

:;   *♦**♦♦ 

GX 

6-179 

6-198 

SCFERR 

-  ****** 

GX 

6-186 

8-240 

SCFERI 

=  *-<l**** 

GX 

6-198 

SCMAND 

r  ****** 

GX 

*6-169 

6-171 

SDIGIT 

=  00002A 

#5-106 

SDNUMB 

=  00001A 

#5-106 

$EOS 

=  000012 

#5-06 

SERROR 

000000 

RG 

#4-00 

*6-170 

$EXIT 

=  000000 

#5-106 

$FA1L 

=  17777/ 

#5-106 

SGPRM 

=   ****** 

5-106 

SLAMDA 

=  000000 

#5-106 

tNUMBR 

=  000002 

#5-106 

SQINS 

-  ****** 

GX 

7-220 

$RAD50 

=  000016 

#5-106 

tRDATA 

r  ****** 

GX 

6-173 

SRONLY 

-  ****** 

5-106 

5-106 

SRQBF 

-     ****** 

GX 

8-238 

SSTRNG 

=  000004 

#5-106 

SSUBXP 

=  000010 

#5-106 

STALOC 

000146 

RG 

#7-216 

STMLST 

=  ****** 

GX 

7-219 

STMSTB 

000002 

RG 

#6-168 

STIALC 

000170 

RG 

7-218 

#8-235 

SXXAVL 

-   ****** 

GX 

7-217 

8-236 

$$$FLG 

=  177777 

#5-106 

$$$KEY 

=  177777 

#5-106 

.EXIT 

r  ****** 

GX 

8-241 

.TPARS 

=  ****** 

GX 

6-181 

6-183 


5-106 
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352  000562 
355  000566 
55A  000572 

555  000576 

556  000402 


062700 

f7??]] 

■>$• 

ADD 

062700 

10$: 

ADD 

062700 

000040 

<^\ 

ADD 

Q6270Q 
000207 

0000  .0 

ADD 

RETURN 

l^' 


ii.ro 

..  .1-106, RO 
#100-40, RO 
#40, RO 


ELSE,  PERIOD,  SLASH  OR  NUMBER  (♦22) 
DOLLAR  (+11) 
ALPHA  (+100) 
BLANK  (40) 
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SYMBOL 

VALUE 

REFERENCES 

FtNUSE 

OOOOOA 

#4-63 

EtSTRT 

000006 

#4-63 

FF.ADD 

=  000020 

#5-95 

5-95 

FF.CIR 

=  OOOO'.O 

#5-95 

5-95 

FF.CON 

=  000001 

#5-^5 

FF.Fll 

=  000002 

#5-95 

FF.HST 

=  040000 

#5-95 

FF.LIN 

=  000010 

#5-95 

5-95 

FF.MOD 

=  000100 

#5-95 

5-95 

FF.MON 

=  000004 

#5-95 

FF.MSK 

=   000077 

#5-95 

FF.PRT 

=  000200 

#5-95 

5-95 

FF.QUL 

=  000370 

#5-95 

FF.REM 

=  100000 

#5-95 

FL.MFL 

r  t ***  *  * 

GX 

14-502 

14-505 

FL.MTP 

~    *♦♦*♦• 

GX 

14-498 

14-501 

FL.MUX 

=  ****** 

GX 

14-510 

FL.TRl 

=  ****** 

GX 

14-518 

F.ADD 

000016 

#5-95 

F.CEV 

000030 

#5-95 

F.CIR 

000024 

#5-95 

F.CLS 

000002 

#5-95 

F.EVT 

000004 

#5-95 

F.FLG 

000014 

#5-95 

F.LEN 

000016 

#5-95 

5-95 

F.LENX 

=  000020 

G 

#5-95 

F.LIN 

000020 

#5-95 

F.LNK 

000000 

#5-95 

F.MOD 

000022 

#5-95 

F.REM 

000026 

#5-95 

F.SEV 

000004 

#5-95 

G$LEN 

000016 

5-98 

GtLENX 

=  000020 

G 

#5-98 

lO.WVB 

-   ***■»  t  ft 

GX 

7-161 

LF.MFL 

H   ft  ft  ftft  ft  ft 

GX 

14-503 

LF.MTP 

=   *♦•*** 

GX 

14-499 

14-516 

LSCNT 

r  ftft ft ♦♦♦ 

GX 

14-508 

L$LEN 

000122 

5-96 

LSLENX 

=  00012A 

G 

#5-96 

L$N^M 

:;   ****t* 

GX 

14-496 

LS'H 

-  t-ftfttft  ft 

GX 

15-553 

LluiMT 

r  ftft  ftftftft 

GX 

14-514 

L.LNG 

000150 

5-111 

L.LNGX 

=  000150 

G 

#5-111 

N$$SLI 

=  000001 

#5-110 

O.LEN 

000012 

5-93 

O.LENX 

=  000014 

G 

#5-93 

PRINT 

000014 

R 

#7-164 

8-204 

O.iDFN 

-   ****** 

GX 

*7-161 

Q.IOPL 
RF.lOO 

=   100000 

GX 

♦7-165 
•8-215 
#5-94 

•7-169 

7-170 


•  7-172 


♦7-174 


♦8-210 


-211 


♦8-213 
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DEFINE  TEMPLATES  GLOBALLY 


805 

002000 

806 

004000 

80? 

010000 

808 

020000 

809 

040000 

810 

100000 

811 

812 

813 

81A 

815 

002000 

815 

000060 

817 

101400 

818 

101570 

819 

046002 

820 

000000 

821 

010204 

822 

010204 

823 

000240 

82A 

825 

826 

S27 

828 

829 

830 

831 

832 

833 

000001 

834 

000002 

835 

000004 

836 

837 

838 

839 

000001 

840 

000002 

841 

000004 

842 

000010 

843 

000020 

844 

000040 

845 

000100 

846 

OOO'OO 

847 

OOO'.OO 

848 

001000 

849 

002000 

850 

851 

004000 

852 

853 

010000 

854 

c:oooo 

855 

040000 

856 

857 

858 

859 

000001 

860 

000002 

861 

000004 

OC.HTM 
OC.riXR 
OC.APR 
OC.USG 
OC.RPR 
OC.NUM 


==  2000 
==  4000 
==  10000 
==  20000 
==  40000 
==  100000 
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HELLO  TIMER 

MAXIMUM  ROUTERS      (ETHERNET) 

ACTIVE  POLLING  RATIO  PRESENT 


USAGE 

ROUTER  PRIORITY 

NUMBER 


(PSD 
(ETHERNET) 
(PSI,  SVC  ONLY) 


NO  MORE  BITS  AVAILABLE:   SEE  SW.xxx  FOR  ADDITIONAL  OPTIONS. 


OC.EXE 
OC.PVC 
OC.SVC 
OC.X25 
OC.SLT 
OC.CNT 
OC.STN 
OC.UNT 
OC.NWC 


OC.HTM 

OC.CHNIOC.DTE 

OC.RTMiOC.MRCIOC.NUM 


TRANSPORT  ONLY 
PVC  ONLY 
SVC  ONLY 


OC.PVClOC.SVClOC.DTEIOC.MBLiOC.MWI  ;  X25  ONLY 


.STAIOC.HTMIOC.MXRIOC.RPR 


==  OC.APRIOC.CSTIOC.TRI 

==  OC.STN 

==  OC.TRIIOC.CHN 


SLT  PARAMETERS 

CONTROLLER  PARAMETERS 

STATION  PARAMETERS 

UNITS/STATIONS 

NO  WILDCARDS  ON  THESE 


.IIP  NE  <OC.CNT  £  OL.CNT>  .ERROR  LINE/CIRCUIT  CTIONS  NOT  UNIQUE 
.IIF  NE  <OC.STN  &  OL.STN>  .ERROR  LINE/CIRCUIT  OPTIONS  NOT  UNIQUE 
. IIF  NE  <OC.UNT  &  OL.UNT>  .ERROR  LINE/CIRCUIT  OPTIONS  NOT  UNIQUE 


PROCESS  OPTIONS 


OP 

STA 

=  = 

1 

OP 

Nl  I 

=  = 

;:' 

OP 

NCI 

=  = 

^ 

OR 

OPTIONS 

OF 

NAM 

=  = 

1 

OF 

ADD 

-  = 

2 

OF 

ID 

=  = 

4 

OF 

INK 

=  = 

1U 

OF 

MXC 

=  = 

20 

OF 

MXH 

=  = 

40 

OF 

NN 

=  = 

100 

OF 

wn 

-  = 

?00 

OF 

VFY 

=  z: 

400 

OF 

HOS 

== 

1000 

OE 

.RTM 

r  = 

20UU 

0E.SU8  ==  4000 

OE.AMAX  ==  10000 
OE.AHOP  ==  20000 
OE.ACOS  ==  40000 

EXEC  FLAGS:  $0PRN2 

E2.8RT  ==  1 
E2.BEA  ==  2 
E2.SEG  ==  4 


=1  IF  PROCESS  STATE  IS  PRESENT 

=1  IF  NUMBER  OF  LINE  TABLES  PRESENT 

=1  IF  NUMBER  OF  CONTROLLER  TABLES  PRESENT 


IF  NODE  NAME  IS  PRESENT 

IF  NODE  ADDRESS  PRESENT 

IF  NODE  ID  IS  PRESENT 

IF  LOGICAL  LINK  COUNT  PRESENT 

IF  THE  ROUTING  COST  MAXIMUM  IS  SPECIFIED 

IF  THE  ROUTING  HOP  MAXIMUM  IS  SPECIFIED 

IF  THE  ROUTING  MAXIMUM  ADDRESS  IS  SPECIFIED 

IF  MAXIMUM  NODE  COUNTERS  IS  SPECIFIED 

IF  VERIFICATION  STATE  PRESENT 

IF  HOST  ADDRESS  PRESENT 

IF  ROUTING  TIMER  PRESENT 


=1  IF  TRANSPORT  SUBADDRESS(ES)  PRESENT 

=1  IF  MAXIMUM  AREA  PRESENT 

=1  IF  AREA  MAX  HOPS  PRESENT 

=1  IF  AREA  MAX  COST  PRESENT 


BROADCAST  ROUTING  TIMER  PRESENT 
BROADCAST  ENONODE  AOJ  PRESENT 
SEGMENT  BUFFER  SIZE  PRESENT 


I   1 
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SYMBOL      VALUE 


A. LULU 

BUFSIZ 

CH$HI 

CL.AST 

CL.ATT 

CL.CAS 

CL.CMT 

CL.EIF 

CL.EXN 

CL.EXT 

CL.IND 

CL.LCC 

CL.NPR 

CL.OPN 

CL.RNE 

CL.XIT 

CM.DEF 

CM.EXI 

CM.HLP 

CM.KIL 

CM. LIS 

CM. PUR 

CO.CIR 

CO. EXE 

C0.KL6 

CO.KNC 

CO-^NL 

CO.KNN 

CO.KNO 

CO.KNP 

CO. LIN 

CO. LOG 

CO. MAC 

CO. MSP 

CO.MXP 

CO.MXS 

C0.MX9 

CO. NOD 

CO. OBJ 

CO. PRO 

CO. SYS 

CS.BUF 

CS.CHN 

CS.CNT 

CS.CUG 

CS.DDM 

CS.DEC 

CS.DLC 

CS.OSA 

CS.DSC 

CS.DST 

CS.DTE 


=  000002 
=  00076A 
=  OOOAOO 
=  00^000 
=  000200 
=  020000 
=  000001 
=  OOOO'.O 
=  OAOOOO 
=  000010 
=  000002 
=  000020 
=  000400 
=  000100 
=  00000/. 
=  100000 
=  000001 
=  000004 
=  000003 
=  000005 
=  000002 
=  000006 
=  000010 
=  000003 
=  000007 
=  000011 
=  000006 
=  000001 
=^  000005 
=  000002 
=  000006 
=  000007 
=  000014 
=  000016 
=  000012 
=  000013 
=  000015 
=  000001 
=  000005 
=  000002 
=  OOOOOA 
=  000001 
=  000027 
=  000006 
=  000031 
=  000005 
=  000046 
=  000004 
=  000033 
-  000034 
=  000032 
=  000026 


REFERENCES 

6-95 
#5-74 
#12-1163 
#6-95 
6-95 
#6-95 
6-95 
#6-95 
#6-95 
6-95 
6-95 
6-95 
#6-95 
#6-95 
#6-95 
#6-95 
#11-695 
#11-698 
#11-697 
#11-699 
#11-696 
#11-700 
#11-718 
#11-710 
#11-717 
#11-719 
#11-715 
#11-707 
#11-713 
#11-709 
#11-714 
#11-716 
#11-72^ 
#11-724 
#11-720 
#11-721 
#11-723 
#11-706 
#11-712 
#11-708 
#11-711 
#12-1093 
#12-1118 
#12-1098 
#12-1120 
#12-1097 
#12-1144 
#12-1096 
#12-1122 
#12-1123 
yl2-1121 
#12-1117 


6-95 


#6-95 

#6-95 
6-96 

#6-95 
#6-95 
#6-95 

6-96 
6-96 
6-96 


6-112     7-130 


6-96 


6-96 
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SMRC 

$MRE 

$MUI 

$MXC 

SMXNCT 

SMXNLT 

$MXR 

SMXSTA 

SNCOU 

$NCT 

$NLN 

$NLT 

SNN 

SNNAM 

SNODAD 

SNODNA 

SNTADD 

$NTNAM 

$NUM 

$OBJ 

SOFDB 

SOPRND 

$0PRN2 

SPARNA 

SPBLK 

SPOLNA 

SPRI 

SPRNAM 

SPSHPT 

SPSIPT 

SRDBNM 

SRDBSZ 

$RET 

SRNDCP 

SRNDIA 

SRNDMP 

SRNDPA 

SRNHAR 

SRNHOS 

SRNLOD 

SRNSCI 

SRNSDV 

SRNSLO 

SRNSPA 

IRNTLO 

$RNXX)( 

$RST 

tRTC 

$RTM 

SSACNM 

SSCIRC 

$SCSR 


001560  RG 
001550  RG 
001556  RG 
001560  RG 
000100  G 
000100 


001570  RG 

000100     G 

001574  RG 

001620  RG 

001706  RG 

001564  RG 

001556  RG 

001724  RG 

001546  RG 

001542  RG 

001504   RG 

001500  RG 

001550  RG 

001712  RG 

000002  RG 

001452  RG 

001454  RG 

001570  RG 

001516  RG 

001564   RG 

001552  RG 

001532  RG 

000174  RG 

001424  RG 

001522  RG 

001524   RG 

r  001620  RG 

r  001562  RG 

:  001755   RG 

:  002014   RG 

:  001556  RG 

:  001574  RG 

:  001552  RG 

:  001716  RG 

:  001564  RG 

=  001554  RG 

:  001620  RG 

=  001604   RG 

=  001657  RG 

=  002053  RG 

001574   RG 

=  001616  RG 

001722  RG 

r  001734  RG 

--   001724   RG 

001560  RG 


REFERENCES 

#7-241 

#7-254 

#7-242 

#7-253 

#5-84 

#5-81 

#7-256 

#5-80 

#7-222 

#7-224 

#7-216 

#7-223 

#7-221 

7-242 

7-246 

#7-259 

#7-190 

#7-189 

7-257 

#7-161 

#7-160 

#7-258 

#7-218 

7-232 

#6-104 

#7-144 

#7-145 

#7-198 

7-229 

7-230 

#7-169 

#7-197 

7-223 

7-226 

#7-192 

7-220 

#7-181 

7-182 

#6-95 

#7-133 

#7-174 

#7-175 

#7-255 

#7-312 

7-313 

#7-319 

7-320 

#7-320 

7-321 

#7-311 

7-312 

#7-314 

7-315 

#7-309 

7-310 

#7-318 

7-319 

#7-313 

7-314 

#7-310 

7-311 

#7-316 

7-317 

#7-315 

7-316 

#7-317 

7-318 

#7-321 

7-323 

7-323 

#7-201 

#7-245 

#7-243 

#7-281 

7-282 

#7-280 

7-281 

#7-195 

7-231 

7-241 

7-240 


7-247 


7-253 
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188 

+ 

189 

***  -  SWDATA  -  URITE  DATA  TO  OUTPUT  FILE 

190 
191 

INPUTS: 

192 

INITIALIZE!;  FDB  AT  $OFDB 

193 

19A 

OUTPUTS: 

195 

C-BIT=SUCCESS/FA1LURE 

196 

RO  =  ADDRESS  OF  FDB 

197 

198 
199 
200  000662 

~ 

t^WDATA::               „           ,  ^  ,^  ^^„ 

201  000662 

012700 

OOOOOOG 

MOV     #$OFDB,RO       ;  POINT  AT  FDB 

202  000666 

PUTS                ;  WRITE  THE  RECORD 

203  000672 

000207 

RETURN 

204 

205 

206 

000001 

.END 

I,  5 


H 


CFEPRG  -  PERFORM  PURGE 

COMMAND 

MACRO  VC 

PURLOG  -  PURGE 

LOGGING 

272  00057A 

00U12 

273  000576 

012700 

177777 

274  000602 

010067 

OOOOOOG 

275  000606 

010067 

000002G 

276  000612 

010067 

000004G 

277  000616 

010067 

000006G 

278  000622 

012700 

OOOOOOG 

279 

280 

OOOOOA 

281 

282 

283 

28A 

000004 

285 

286 

287 
288 
289  000656 

004767 

000362 

290  000662 

012701 

000020 

291  000666 

016700 

OOOOOOG 

292  000672 

004767 

OOOOOOG 

293  000676 

162767 

OOOOOOG 

OOOOOOG 

294  00070A 

162767 

OOOOOOG 

OOOOOOG 

295  000712 

032767 

OOOOOOG 

OOOOOOG 

296  000720 

001275 

297  000722 

032767 

OOOOOOG 

OOOOOOG 

298  000730 

001225 

299  000732 

000207 
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60$: 


70$ 
75$ 
80$ 


BED 

60$ 

MOV 

#177777, RO 

MOV 

RO,$EVENTtO 

MOV 

R0,$EVENT+2 

MOV 

R0,$EVENT+4 

MOV 

R0,$EVENT+6 

MOV 

#$EVENT,RO 

.REPT 

4 

BIG 

(R0)+,(R1)+ 

.ENDR 

.REPT 

4 

TST 

-(R1) 

BNE 

70$ 

.ENDR 

CALL 

QREM 

MOV 

#EVTLEN,R1 

MOV 

$XXAVL,RO 

CALL 

$RLBF 

SU8 

#F.LENX,$BYTMN 

sua 

#F.LENX,$BYTXT 

BJT 

#WC.LOG,$UILD 

BNE 

40$ 

BIT 

#OM.KEV,$OPRND 

BNE 

10$ 

RETURN 

BR  IF  NO 

INDICATE  ALL  EVENTS 


POINT  TO  SPECIFIED  EVENT  MASKS 
CLEAR  SPECIFIED  EVENT  MASKS 


ANY  EVENT  MASKS  SET? 
BR  IF  YES 


UNLINK  TEMPLATE  FROM  LIST 

GET  LENGTH  OF  EVENT  TEMPLATE 

POINT  AT  END  OF  TASK  LISTHEAD 

RELEASE  CORE  BLOCK 

ADJUST  MINIMUM  POOL  BYTE  EXTENSION 

AND  CURRENT  BYTE  EXTENSION  VALUE 

KNOWN  LOGGING  SPECIFIED? 

BR  IF  YES 

KNOWN  EVENTS  SPECIFIED? 

BR  IF  YES 


I,  $, 


_J 


CFEPRS  -  STATE  TABLES  TO  PARSE 
KEYWORDS 

111  000000 

112  000000 

113  000000 
1U  000000 

115  000000 

116  000000 

117  000000 

118  000000 

119  000000 

120  000000 

121  000000 

122  000000 

123  000000 
12A  000000 

125  000000 

126  000000 

127  000000 

128  000000 

129  000000 

130  000000 

131  000000 

132  000000 

133  000000 

134  000000 

135  000000 

136  000000 

137  000000 

138  000000 

139  000000 
KO  000000 
141  000000 
H2  000000 
H3  000000 

144  000000 

145  000000 

146  000000 

147  000000 

148  000000 

149  000000 

150  000000 

151  000000 

152  000000 

153  000000 

154  000000 

155  000000 

156  000000 

157  000000 

158  000000 

159  000000 

160  000000 

161  000000 

162  000000 

163  000000 

164  000000 

165  000000 

166  000000 

167  000000 
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KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 


'CONTROLLER", 

KSCON 

'COPIES", 

KSCOP 

'COST", 

KSCOS 

'COUNTERS", 

KSCOU 

'COUNT", 

KSCOUN 

'CPA", 

KSCPA 

'CPS", 

KSCPB 

'CPC", 

KSCPC 

'CPD", 

KSCPD 

■CSR", 

KSCSR 

'DATA  , 

KSDAT 

'DEAD", 

KSDEA 

'DEFAULT", 

KSDFA 

'DEFINE", 

KSDEF 

'DESTINATION", 
'DESTINATIONS'^', 

KSDST 

KSDSTS 

'DEVICE", 

KSDEV 

'DIAGNOSTICS", 

KSDIAG 

'DISABLED", 

KSDIS 

'DTE", 

KSDTE 

•DTES'', 

KSDTES 

'DUMP", 

KSDMP 

'DUPLEX", 

KSDUP 

'ENABLED", 

KSENA 

'EVENTS", 

KSEVE 

'EXECUTOR", 

KSEXE 

'EXIT", 

KSEXI 

'FACTOR", 

KSFAC 

'FILE", 

KSFIL 

'FIRSTFIT", 

KSFIR 

'FULL", 

KSFUL 

'GROUP'^', 

KSGRP 

'GROUPS  , 

KSGRPS 

■9600", 

KS9600 

■HALF", 

KSHAL 

'HARDWARE", 

KSHRD 

'HELP", 

KSHEL 

'HELLO'^', 

KSHLO 

'HOLDBACK", 

KSHLD 

'HOPS", 

KSHOP 

'HOST", 

KSHOS 

'IDENTIFICATIO^ 

",KSIDE 

'ID", 

KSID 

'INACTIVITY", 

KSINA 

'INCOMING", 

KSINC 

'INSPECT", 

KSINS 

'KILL", 

KSKIL 

'known''. 

KSKNO 

'LARGE", 

KSLAR 

'LINE", 

KSLIN 

'LINES  , 

KSLINS 

'LINKS", 

KSLNKS 

'LIST", 

KSLIS 

'LOADER" 

KSLOAD 

'LOCATION", 

KSLOC 

'LOGGING", 

KSLOG 

"LOGIN", 

KSLOGI 

I  7 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  NODE  COMMAND 

758 
759 
760 
761 

762  000000 

763  000000 
76A 

765  000000 

766  000000 

767  000000 
768 

769  000000 

770  000000 
771 
772 
773 

774  000000 

775  COOOOO 

776  000000 

777  000000 

778  000000 

779  000000 

780  000000 

781  000000 

782  000000 

783  000000 
78A  000000 

785  000000 

786  000000 

787  000000 

788  000000 

789  000000 

790  000000 
791 
792 
793 
79A  000000 

795  000000 

796  000000 

797  000000 

798  000000 

799  000000 

800  000000 

801  000000 
802 

803  000000 
80A  000000 
805  000000 
806 
807 
808 

809  000000 

810  000000 

811  000000 

812  000000 

813  000000 
8U  000000 
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.SBTTL  DEFINE  NODE  COMMAND 

DEFINE  NODE  COMMAND 

STATES  DEFNOD 
TRANS  INODID,,, 


STATES  .KPSDENO 

TRANS  8KSNAM,  NODNAM 

TRANS  SLAMDA,  RNDLL 

STATES  NODNAM, &PSNAM 

TRANS  SSTRNG,, 


CO. NOD,  SCOMP 


;  Parameters  for  remote 

nodes 

STATES 

RNDLL 

TRANS 

SLAMDA, 

.RNIN2 

STATES 

RNOPT 

TRANS 

IRNHOS, 

RNOPT,, 

RN.HOS, 

SOPRND 

TRANS 

IRNSDV, 

RNOPT,, 

RN.SDV, 

SOPRND 

TRANS 

IRNSNV, 

RNOPT,, 

RN.SNV, 

SOPRND 

TRANS 

IRNDPA, 

RNOPT,, 

RN.DPA, 

SOPRND 

TRANS 

IRNDCT, 

RNOPT,, 

RN.DCT, 

SOPRND 

TRANS 

IRNSCI, 

RNOPT,, 

RN.SCI, 

SOPRND 

TRANS 

iRNHAR, 

RNOPT,, 

RN.HAR, 

SOPRND 

TRANS 

IRNSPA, 

RNOPT,, 

RN.SPA, 

SOPRND 

TRANS 

IRNSLO, 

RNOPT,, 

RN.SLO, 

SOPRND 

TRANS 

IRNTLO, 

RNOPT,, 

RN.TLO, 

SOPRND 

TRANS 

IRNLOD, 

RNOPT,, 

RN.LOD, 

SOPRND 

TRANS 

IRNDJA, 

RNOPT,, 

RN.DIA, 

SOPRND 

TRANS 

IRNDMP, 

RNOPT,, 

RN.DMP, 

SOPRND 

TRANS 

SEOS, 

SEXIT, 

.RNCHK 

•  Host  node  ID 

STATES 

RNHOS 

TRANS 

8KSH0S 

STATES 

,£P$HOS 

TRANS 

SLAMDA, 

.RNHOl 

STATES 

TRANS 

INODADD 

, SEXIT, 

.RNHOS 

TRANS 

IHOSNAM 

,SEXIT, 

.RNHOS 

TRANS 

SLAMDA, 

SFAIL, 

.RNH02 

.NONAM,  RN.NAM,  SOPRND  ;Rerjte  node  name 


Host  node  ID 
Service  device 
Service  node  version 
Dump  address 
Dump  count 
Service  circuit 
Hardware  address 
Service  password 
Secondary  loader  file 
Tertiary  loader  file 
Load  file 
Diagnostics  file 
Dump  file 


STATES  HOSNAM 
TRANS  SSTRNG,  SEXIT   .RNHNA 
TRANS  SLAMDA,  SFAIL   .RNH02 


Service  device 


STATES  RNSDV 

TRANS  BKSDEV,  RNSDV2 

TRANS  8KSSER 

STATES  ,£PSSERO 

TRANS  SKSDEV 

STATES  RNSDV2,&PSSDV 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  LINE  COMMAND 

K36  000000 
U37  000000 
U38 

U39  000000 
U40  000000 
U^l  000000 
U^2  000000 
KA3  000000 
U44  000000 
1A15  000000 
K46  000000 
U47  000000 
U-iS  000000 
1449  000000 
U50  000000 

1451  000000 

1452  000000 

1453  000000 

1454  000000 

1455  000000 
1456 
1457 
1458 

1459  000000 

1460  000000 
1461 

1462  000000 

1463  000000 
1464 

1465  000000 

1466  000000 
1467 
1468 
1469 

1470  000000 

1471  000000 

1472  000000 

1473  000000 

1474  000000 

1475  000000 
1476 
1477 
1478 

1479  000000 

1480  000000 

1481  000000 

1482  000000 

1483  000000 

1484  000000 
1485 
1486 
1487 

1488  000000 

1489  000000 

1490  000000 

1491  000000 

1492  000000 
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TRANS 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 


<',>,   MASK 
'],     SEXIT 


MASK 

8KSCPA 

gKSCPB 

8KSCPC 

8KSCP0 

SKSUBE 

8KSUBF 

8KSUBH 

gKSUBJ 

8KSUBK 

SKSUBL 

8KSUBM 

8K$U8N 

8KSU8P 

&KSU8R 

8KSUBS 

8KSUBT 


.NEXT, 
,NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 
.NEXT 


.I.SURM 
,2.$URM 
.4.SURM 
.lO.SURM 
.20.SURM 
,40,SURM 
.lOO.SURM 
,200.SURM 
,400.SURM 
.lOOO.SURM 
.2000,SURM 
,4000, SURM 
,10000.SURM 
,20000, SURM 
,,40000, SURM 
.,100000, SURM 


MULTI-POINT  DEAD  RATIO 

STATES  DPR 

TRANS  8KSMUL 

STATES  .KPSMUL 

TRANS  8KSDEA 

STATES  ,8PSDEA 

TRANS  $DNUMB,SEXIT,.LIDEA 

LOOK  FOR  COUNTER  TIMER 

STATES  LCT 

TRANS  8KSC0U 

STATES  ,8PSCT0 

TRANS  8KSTIM 

STATES  ,8P$CT 

TRANS  SDNUMB, SEXIT,. LICTM 

LOOK  FOR  HOLDBACK  TIMER 

STATES  HBT 

TRANS  8KSHLD 

STATES  ,8PSHB0 

TRANS  8KSTIM 

STATES  .gPSHBT 

TRANS  SDNUMB, SEXIT, .LIHBT 

MAXIMUM  RETRANSMITS 

STATES  MRT 

TRANS  SKSMAX 

STATES  ,8PSMAX 

TRANS  8KSRTRS 

STATES  ,8PSRTC 


I     9 


n,„«     n_i 


CFtPRS  - 

STATE  TABLES  TO  PA 

DEFINE  SYSTEM  COMMAND 

2100 

000000 

2101 

000000 

2102 

2103 

000000 

210A 

000000 

2105 

2106 

000000 

2107 

000000 

2108 

2109 

2110 

2111 

000000 

2112 

000000 

2113 

21K 

000000 

2115 

000000 

2116 

2117 

000000 

2118 

000000 

2119 

2120 

000000 

2121 

000000 

2122 

2123 

2124 

2125 

000000 

2126 

000000 

2127 

2128 

000000 

2129 

000000 

2130 

2131 

000000 

2132 

000000 

2133 

21 3A 

000000 

2135 

000000 
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STATES  ,£P$LAR 

TRANS  &KS8UF 

STATES  .KPSBUF 

TRANS  8KSSI2 

STATES  .SPSLBS 

TRANS  SDNUMB,   SEXIT,      .SyRBS 

MAXIMUM  SMALL  BUFFERS 

STATES  SDBNM 

TRANS  8KSMAX 

STATES  ,&PSMAX 

TRANS  &KSSMA 

STATES  .SPSSMA 

TRANS  SKSBUFS 

STATES  ,&PSSBN 

TRANS  SDNUMB,    SEXIT,      .SYSBN 

RECEIVE   BUFFER  MINIMUM 

STATES  THRESH 

TRANS  8KSMIN 

STATES  ,&PSMIN 

TRANS  kSREC 

STATES  ,8PSREC 

TRANS  8K$BUFS 

STATES  ,&PSRBM 

TRANS  SDNUMB,    SEXIT,      .SYTHR 
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CFEPRS  -  STATE  TABLES 
Symbol  table 
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KtNODS= 
KSNONR= 
K$NUM  = 
KtOBJ  = 

k;$objs= 

KSOFf  = 
K$ON  = 
KSGUT  = 
K$PAR  = 
KSPAS  = 
K$PER  = 
K$PHA  = 
KSPOL  = 
K$PR1  = 
K$PRO  = 
K$PROS= 
KSPRT  = 
KIPUR  = 
K$RCL  = 
KSREC  = 
K$RES  = 
K$ROU  - 
K$ROUT= 
K$RSTR= 
K$RTR  = 
KtRTRS= 
KSSEC  = 
K$SEG  = 
KSSER  = 
KSSET  = 
K$SHO  = 
K$SIN  = 
KSSIZ  = 
KSSMA  = 
KSSNA  = 
K$SPD  = 
KSSRV  = 
KSSTA  = 
K$STS  = 
K$SUBA= 
K$SUM  = 
KSSVS  = 
(C$TER  = 
KSTIH  = 
KSTOP  = 
K$TRA  = 
K$TRIB= 
K$TYP  = 
K$UBE  = 
KSUBF  = 
K$UBH  = 
KSUBJ  = 
KSUBK  = 
K$UBL  = 
KSUBM  = 
K%Ub\  = 
K$UBP  = 


000132 

000133 

0001 3A 

000135 

000136 

000137 

OOOHO 

000U1 

000U2 

000143 

OOOUA 

000K5 

0001A6 

0OOK7 

000150 

000151 

000152 

000153 

0001 5A 

000155 

000156 

000162 

000163 

000157 

000160 

000161 

0001 6A 

000165 

000170 

000166 

000171 

000172 

000173 

0001 7A 

000175 

000176 

000167 

000177 

000200 

000202 

000201 

000203 

00020^; 

000205 

000206 

000207 

000210 

000211 

000212 

000213 

000214 

000215 

000216 

000217 

000220 

000221 

000222 


K$UBR  = 

000223 

LISCOM 

000216R 

002  OBJO 

011232R 

002  OO.VFY= 

******  GX 

K$UBS  = 

000224 

LISLOG 

00041  OR 

002  OC.APR= 

«•**♦«  GX 

OPEVE 

002510R 

002 

KtUBT  = 

000225 

LISMOD 

000470R 

002  OC.CHN= 

*»♦**♦  GX 

0PEVE1 

002532R 

002 

K$UNT  = 

000226 

LJSOPT 

000434R 

002  OC.CST= 

***«♦«  GX 

OPLOG 

002372R 

002 

K$URM  = 

000227 

LIST 

000134R 

002  0C.CTM= 

*♦♦***  GX 

0PLOG1 

002424R 

002 

K$USE  = 

000231 

LIXAC 

000666R 

002  OC.DTE= 

**«*»*  GX 

0PL0G2 

002442R 

002 

KSUSG  = 

000230 

LIXPR 

000600R 

002  OC.HTM= 

******  GX 

OPSTA 

002460R 

002 

K$VAI  = 

000232 

LIXSR 

000670R 

002  OC.MBL= 

******  GX 

OP.NCT= 

******  GX 

K$VEC  = 

000233 

LOC 

011770R 

002  OC.HRC= 

******  GX 

OP.NLT= 

******  GX 

KSVER  = 

000234 

LOCI 

012000R 

002  OC.MWI= 

******  GX 

OP.STA= 

******  GX 

<$VRSN= 

000235 

L0C2 

012010R 

002  OC.MXR= 

******  GX 

OS.BYT= 

******  GX 

KSWIN  = 

000236 

LOGID 

002656R 

002  OC.NUM= 

******  GX 

OS.CCB=^ 

******  GX 

KSXCl  = 

000252 

LOGOPT 

002100R 

002  OC.RPR= 

******  GX 

OS.LOC= 

******  GX 

K$XCNA= 

000246 

LSTATE 

006320R 

002  OC.RTM=: 

******  GX 

OS.NAM= 

******  GX 

KtXDA  = 

000253 

LXPRA8 

000616R 

002  OC.STA= 

******  GX 

OS.PAR= 

******  GX 

KSXDL  = 

000247 

LXSRAB 

000704R 

002  OC.TRI= 

******  GX 

OS.RBN= 

******  GX 

K$XDLV= 

000260 

MASK 

006566R 

002  OC.USG= 

******  GX 

OS.RBS= 

******  GX 

K$XDMC= 

000256 

M8L 

005666R 

002  OE.ACO= 

******  GX 

OS.SBN= 

******  GX 

K$XDMF= 

000272 

MCIR 

014044R 

002  0E.ADD= 

******  GX 

OS.THR= 

******  GX 

K$XDMP= 

000261 

MCIRD 

014072R 

002  0E.AH0= 

******  GX 

OVFY 

011404R 

002 

K$XDMR= 

000273 

MMDA 

013612R 

002  OE.AMA= 

******  GX 

PAR 

011716R 

002 

K$XDMV= 

000270 

MODSPR 

015016R 

002  OE.HOS= 

******  GX 

PH4AD 

004476R 

002 

KSXDN  = 

000257 

MODXAC 

014636R 

002  OE.ID  = 

******  GX 

PLX 

00641  OR 

002 

K$XDP  = 

000243 

MODXPR 

014606R 

002  0E.LNK= 

******  GX 

PMXACA 

002266R 

002 

K$XDPV= 

000271 

MODXSV 

014622R 

002  0E.MXC= 

******  GX 

PMXDST 

002324R 

002 

K$XDQ  = 

000251 

M0DX29 

014652R 

002  0E.MXH= 

******  GX 

PMXPRA 

0021 70R 

002 

K$XDTE= 

000262 

MRC 

005714R 

002  OE.NAM= 

******  GX 

PMXPRX 

002200R 

002 

K$XDU  = 

000245 

MRE 

013666R 

002  OE.NCO= 

******  GX 

PMXPR1 

002250R 

002 

K$XDUP= 

000255 

MRT 

007070R 

002  OE.NN  = 

******  GX 

PHXSRA 

002300R 

002 

KSXDV  = 

0002A^ 

MSPR1 

015026R 

002  0E.RTM= 

******  GX 

PMXSRV 

00231  OR 

002 

KSXDZ  = 

000264 

MSPR2 

015036R 

002  0E.SUB= 

******  GX 

PNAM 

011700R 

002 

K$XKDP= 

000265 

MWI 

014770R 

002  OE.VFY= 

******  GX 

PNDCT 

001722R 

002 

K$XKDZ= 

000266 

MUIL 

007144R 

002  0L.8AU= 

******  GX 

PNDIA 

002052R 

002 

KSXKL  = 

000267 

MXC 

013640R 

002  0L.BSZ= 

******  GX 

PNDMP 

002064R 

002 

K$XKMY= 

000274 

MXR 

013742R 

002  0L.CSR= 

******  GX 

PNDPA 

001706R 

002 

K$XPCL= 

000254 

MX25 

014674R 

002  OL.CTM= 

******  GX 

PNHAR 

001756R 

002 

K$XQNA= 

000250 

HX25A 

014704R 

002  OL.DPR= 

******  GX 

PNHOS 

001634R 

002 

K$XUNA= 

000244 

MX258 

014720R 

002  OL.HBT= 

******  GX 

PNLOD 

002026R 

002 

K$X25  = 

000237 

MX29 

014732R 

002  OL.PLX= 

******  GX 

PNL0D2 

002036R 

002 

K$X29  = 

000240 

MX29A 

014742R 

002  OL.PRI= 

******  GX 

PNL0L3 

002046R 

002 

K$3 

000241 

MX29B 

014756R 

002  OL.RTC=: 

******  GX 

PNOPT 

001424R 

002 

K$4 

000242 

NEXT 

006556R 

002  OL.RTT= 

******  GX 

PNSCI 

001736R 

002 

K$9600= 

000070 

NNAM 

014016R 

002  0L.SEC= 

******  GX 

PNSDV 

001640R 

002 

LCT 

007014R 

002 

NODADD 

004444R 

002  0L.STA= 

******  GX 

PNSLO 

002002R 

002 

LINCIR 

007260R 

002 

NODFL 

004522R 

002  OL.URM= 

******  GX 

PNSNV 

001660R 

002 

LINE 

006046R 

002 

NODID 

004374R 

002  OL.VEC= 

******  GX 

PNSPA 

001770R 

002 

LINID 

007256R 

002 

N0DID1 

004424R 

002  OL.WSZ= 

******  GX 

PNSPA2 

001776R 

002 

LINMAX 

004706R 

002 

NaDID2 

004440R 

002  0M.C0N= 

******  GX 

PNTLO 

00201 4R 

002 

LINOPT 

006072R 

002 

N0DID3 

004416R 

002  0M.EVE= 

******  GX 

POOL 

011632R 

002 

LINO 

006060R 

002 

NODNAM 

002764R 

002  OM.FIL= 

******  GX 

PRI 

006372R 

002 

LINl 

007310R 

002 

NODND 

004510R 

002  OM.KEV= 

******  GX 

PROC 

004600R 

002 

LIN2 

007322R 

002 

N0DN1 

004466R 

002  OH.MON= 

******  GX 

PROID 

005OO2R 

002 

LIN3 

007336R 

002 

N0DN2 

004530R 

002  OM.STA= 

******  GX 

PROPT 

004624R 

002 

LIN4 

007350R 

002 

OBJ  I 

014352R 

002  ONAME 

011314R 

002  PROO 

00461 2R 

002 

LIN5 

007366R 

002 

OBJ  ID 

011440R 

002  00.C0P= 

******  GX 

PRSKTB 

OOOOOORG 

003 

LISCHO 

0001 76R 

002 

08JN 

014334R 

002  OO.NAM= 

******  GX 

PRSSTB 

OOOOOORG 

002 

LISCM1 

00021  OR 

002 

OBJOPT 

011244R 

002  OO.USR= 

******  GX 

PSTATE 

004662R 

002 

MArnn     \if\Q     ri7k     Ti 
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107 

108 

109 

110   - 

111 

11? 

113 

11A 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128  000034 

129  00C034  00A767 

130  000040  103464 

131  000042  004767 

132  000046  103403 

133  000050  004767 

134  000054  000772 
135 

136 
137 

138  000056 

139  000056  004767 

140  000062  103443 

141  000064  032767 

142  000072  001404 

143  000074 

144  000104     012700 

145  000110     016046 

146  000114 

147  000124  012660 

148  000130  105767 

149  000134  001422 

150  000136  112767 

151  000144  116067 

152  000152 

153  000160  000410 
154 

155 
156 

157  000162 

158  000162 
159 

160 
161 

162  000172 

163  000172 
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.S8TTL  $CFE  -  CFE  ROOT  SEGMENT 

**»  -  $CFE  -  CFE  ROOT  SEGMENT 

THE  DECNET  UTILITY  CFE  (CONFIGURATION  FILE  EDITOR)  ALLOWS  THE  DECNET 
USER  TO  MODIFY  PARTS  OF  THE  NETWORK  DATA  BASE  AS  SYSTEM/NETWORK  NEEDS 
CHANGE.  THIS  UTILITY  MODIFIES  THE  FILE  "CETAB.MAC",  AND  IS  NOT  PARTICULAR 
ABOUT  THE  TYPE  OF  SYSTEM  THAT  IT  WAS  GENERATED  UNDER  (I.E.  YOU  CAN  MODIFY 
THE  "CETAB"  FILE  FOR  AN  RSX-11S  SYSTEM  WHILE  RUNNING  CFE  UNDER  RSX-llM,  ETC.) 
USERS  INTENDING  TO  MODIFY  THE  FILE  "CETAB.MAC"  BY  USING  A  STANDARD  TEXT 
EDITOR,  DO  SO  AT  THEIR  OWN  RISK  III 


INPUT: 


NONE. 


OUTPUT: 


THE  FILE  "CETAB.MAC"  IS  UPDATED. 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


$CFE:: 


10$: 


.ENABL  LS8 


CALL 

BCS 

CALL 

BCS 

CALL 

BR 


NORMAL  EXIT 


$CFINI 

30$ 

$CFC0M 

$FIN 

$CFDSP 

10$ 


iFIN:: 


OOOOOOG  OOOOOOG 


OOOOOOG 
000102 

000102 
OOOOOOG 

000001  OOOOOOG 
000042  177632 


20$: 


CALL 

BCS 

BIT 

BEQ 

DELET$ 

MOV 

MOV 

CLOSE$ 

MOV 

TST8 

BEQ 

Move 

M0V8 
DIR$ 
BR 


$CFUPD 

.EXIT 

#SW.PUR,$SWICH 

20$ 

#$IFDB 

#$OFDB,R0 

F.FNB+N.FID(R0), 

*$OFDB 

(SP)+,F.FNB+N.FI 

$FIATR 

25$ 

*1,$FIATR 

F.LUN(RO),WATDPB 

#WATDPB 

25$ 


INITIALIZE  THE  END  OF  TASK  BUFFERS  AND  OPEN  FILES 

IF  r-  FATAL  ERROR 

El   .  GET  A  PARSED  COMMAND  LINE 

IF  .S,  EOF 

DISPATCH  ON  THE  COMMAND  CODE 

GET  NEXT  COMMAND 


UPDATE  THE  "CETAB.MAC"  FILE 
IF  CS,  ERROR  -  DELETE  FILE 
PURGE  THE  INPUT  FILE  ? 
IF  EQ,  NO 

DELETE  THE  INPUT  FILE 
POINT  TO  OUTPUT  FDB 
-(SP)  ;  SAVE  FILE  NUMBER  FROM  FDB 


CONSISTENCY  ERROR 

.CONER:: 

ERROR$  #ERRCON 

ABNORMAL  EXIT 

EXIT:: 

DELET$  #$OFDB 


.  CLOSE  THE  OUTPUT  FILE 

D(RO)  ;  RESTORE  FILE  NUMBER  IN  FDB 

CHECK  FUNCTION  BYTE 

IF  EQ,  READ  ATTRIBUTES  FAILED 

ELSE  SET  DIRECTION  FOR  FILE  ATTRIBUTES 
+Q.IOLU  ;  SET  LUN  IN  DPB 

SET  OUTPUT  FILE  OWNER  AND  PROTECTION 

AND  LEAVE 


PRINT  ERROR  MESSAGE 


DELETE  THE  OUTPUT  FILE 


I  12 
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Symbol  table 


SRLBF   000102RG 
SRQBF   OOOOOORG 

ABS.  000000 
000346 
Errors  detected; 


000 
001 
0 


$SAVRG=  •*»*•*  GX 
$XXBUF=  •»»•♦♦  GX 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


$XXIEN=  »«»»•♦  GX 


.EXINC=  OOOOPO  G 


.RQCB   000206RG 


♦••  Assembler  statistics 


0 

C 

8312  Words     (  33  Pages) 

KAAO  Words      (   55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  f i le  writes: 
Size  of  work  file: 
Size  of  core  oool ; 
Operating     s    ^tem; 

SyfcFERQB!v2;[°32?°^°]CFERQ8/CR/-SP=SY:ri,nRSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]CFEROB 


-oc    AT    nc . 1 7 


I  13 


CfESTB 

CREATED  BY      MACRO     ON  29- 

■JUN-85  AT 

05:14 

MACRO  CROSS 

REFERENCE 

MACRO  NAME 

REFERENCES 

DBGTP$ 

#5-106 

#5-112 

#5-113 

#5-114 

#5-121 

#5-122 

#5-123 

#5-124 

#5-131 

#5-132 

#5-133 

#5-134 

#5-U1 

#5-142 

#5-143 

#5-144 

EPRINT 

#A-77 

6-198 

ERRORt 

#4-66 

6-186 

8-240 

ISTAU 

#4-91 

5-106 

MTRANS 

#5-106 

PRINT 

#A-61 

STATES 

#4-91 

5-110 

#5-153 

TRANS 

#4-91 

#5-111 

#5-112 

#5-113 

#5-120 

#5-121 

#5-122 

#5-123 

#5-130 

#5-131 

#5-132 

#5-133 

#5-140 

#5-141 

#5-142 

#5-143 

H  U 

PAGE  2 

CREF   04.00 


#5-115 
#5-125 
#5-135 
#5-145 


#5-114 
#5-124 
#5-134 
#5-144 


#5-116 
#5-126 
#5-136 
#5-146 


#5-115 
#5-125 
#5-135 
#5-145 


#5-117 
#5-127 
#5-137 
#5-147 


#5-116 
#5-126 
#5-136 
#5-146 


#5-118 
#5-128 
#5-138 
#5-148 


#5-117 
#5-127 
#5-137 
#5-147 


#5-119 
#5-129 
#5-139 


#5-118 
#5-128 
#5-138 
#5-148 


#5-120 
#5-130 
#5-140 


#5-119 
#5-129 
#5-139 


I  U 
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358 

339 

3A0 

3A1 

3A2 

3^3 

11,^ 

3A5 

3A6 

347 

348 

349 

350 

351 

352 

353 

354  000404 
000407 
000412 

355 

356 

357  000414 

358  000416 

359  000420 
360 

361 
362 

363  000422 

364  000430 
365 

366  000432 

367  000440 
368 

369  000442 

370  000444 

371  000450 

372  000452 

373  000454 

374  000456 

375  000460 

376  000462 

377  000464 

378  000470 

379  000472 

380  000476 

381  000500 

382  000502 

383  000504 

384  000506 

385  000510 

386  000512 

387  000514 

388  000516 

389  000520 

390  000522 

391  000524 

392  000526 


.SBTTL  SCATS  -  ASCII  TO  RAD50  CONVERSION         

.S8TTL   .CAT5  -  ASCII  TO  EXTENDED  RAD50  CONVERSION  (  »  ) 
.S8TTL   .CAT5E-  ASCII  TO  EXTENDED  RAD50  CONVERSION  ("-") 

*•  SCATS  -  ASCII  TO  RADSO  CONVERSION 

••  .CATS  -  ASCII  TO  EXTENDED  RADSO  CONVERSION  (  •  ) 

»•  .CATSE-  ASCII  TO  EXTENDED  RADSO  CONVERSION  ("-") 


INPUTS 


OUTPUT 


132  101  071 
060  044  052 
056 


CNTRL:   .BYTE 


003100  CVTBL: 

000050 

000001 


. CATSE ::MOVS 
BR 

.CATS::  M0V8 
IS:     TST 


112767  000055  177761 
000403 

112767  000052  177751 
005727 

000261  SCATS::  SEC 

004567  OOOOOOG              JSR 

006046  ROR 

005701  TST 

001001  BNE 

000261  SEC 

106016  5S:     RORB 

005001  CLR 

012703  000414'  MOV 
112005  10S:    MOVB 

012704  000404'  MOV 
122405  CMPB 
103450  BLO 
12240S  CMPB 
101425  BLOS 
122405  CMPB 
103444  BLO 
122405  CMPB 
101417  BLOS 
122405  CMPB 
001413  BEQ 
122405  CMP8 
001403  BEQ 
105716  TST8 


RO  =  BUFFER  ADDRESS 

Rl  <>  0  TO  ALLOW  ".",  =  0  TO  FAIL  ON   . 

.CATS  ENTRY  POINT  ALLOWS  "♦ 

RO  =  BUFFER  ADDRESS 

R2  =  CHARACTER  THAT  STOPPED  CONVERSION 


.EVEN 

.WORD 
.WORD 
.WORD 


.ENABL  LS8 


'^,'A,'9,'0,'S,'*, 


50*50 
SO 

1 


.-CONTROL  BYTE  STRING 


#'-,CNTRL+S 
IS 

#'*,CNTRL+S 
(PCW 


RS.SSAVRG 

-(SP) 

Rl 

5S 

(SP) 

Rl 

#CVT8L,R3 

(R0)+,R5 

#CNTRL,R4 

(R4)+,RS 

60$ 

(fi4)+,R5 

SOS 

(R4)t,R5 

60S 

(R4)+,R5 

40$ 

(R4)+,R5 

30S 

(R4)t,R5 

15$ 

(SP) 


.-EXTEND  RADSO  WITH  HYPHEN 
.-JOIN  COMMON  CODE 

.-EXTEND  RADSO  WITH  ASTERISK 
;INDICATED  EXTENDED  MODE 

NO  EXTENDED  MODE 

SAVE  REGISTERS 

SAVE  EXTENDED  MODE  INDICATOR 

SAVE  PERIOD  DISPOSITION  FLAG 

8R  IF  "."  ALLOWED 

SET  PERIOD  FLAG 

SAVE  PERIOD  FLAG 

CLEAR  ACCUMULATOR 

GET  CONVERSION  TABLE 

GET  NEXT  CHARACTER 

GET  CONTROL  STRING 

RADSO  CHARACTER? 

NO 

ALPHABETIC? 

YES 

RAD5C  CHARACTER? 

NO 

NUMERIC? 

YES 


YES 
"*" 

YES 

PERIOD  A  RADSO  CHARACTER? 


or 


rCCQIlD     _     rnMNiriM     Ci  IDDni  IT  I  MF  c 
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CFESUB 


CREATED  BY     MACRO     ON  ?9-JUN-85  AT  05; U 


SYMBOL   CROSS  REFERENCE 
SYMBOL     VALUE 


H   16 
PAGE   ? 

CREF       OA.OO 


RtLEN 

RtLENX 

R$$E1S 

R.ADD 

R.FLAG 

R.LEN 

R.LENX 

R.LN< 

R.NAM 

SF.CIR 

SF    OEV 

SF.DIA 

SF.DPA 

SF.DPC 

SF.DUM 

SF.HAO 

SF.HST 

SF.LOA 

SF.PH3 

SF.PS5 

SF.SEC 

SF.TER 

S$LEN 

S$LENX 

S.ADD 

S.CIR 

S.DEV 

S.DIA 

S.DPA 

S.DPC 

S.DUM 

S.FLAG 

S.HAD 

S.HST 

S.LENG 

S.LENX 

S.LNK 

S.LOA 

S.PSS 

S.SEC 

S.TER 

TSFLAG 

T$LIF 

T$LIFL 

TSLIFO 

T$LIFS 

TSLIN 

T$LIP5 

TSLLD 

rSLLDC 

TSLlDL 

T$LLDO 


00002A 
0000?A  G 

000010 
000012 

oooou 

OOOOU  G 
000000 
000002 
000010 
000020 
004000 
000100 
000200 
010000 
OOOOOA 
000002 
002000 
020000 
000040 
OOOAOO 
001000 
000032 
000034  G 
000004 
000016 
000020 
000046 
000032 
000036 
000050 
000002 
000010 
000006 
000052 
:  000054  G 
000000 
000044 
000022 
000040 
000042 
000044 
000013 
000013 
000013 
000013 
000000 
000006 
000012 
000045 
000012 
000012 


REFERENCES 

5-99 
#5-99 

12-405 
#5-94 
#5-94 
#5-94 
#5-94 
#5-94 
#5-94 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
5-102 
#5-102 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#5-103 
#4-63 
#4-63 
#4-63 
#4-63 
#4-63 
#4-63 
#4-63 
#4-63 
#4-63 
#4-63 
#4-63 


5-94 


5-105 


r  c  c  ciiD 


TDCATCn      DV 


MATDn      nM   :3Q-niM-R'^    at    OS-li 
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DEFINE  TEMPLATES  GLOBALLY 


862 

000010 

863 

000020 

864 

000040 

865 

000100 

866 

867 

868 

000610 

869 

000174 

870 

001 0J7 

871 

070000 

872 

072160 

873 

0OOCO3 

874 

875 

876 

877 

000001 

878 

000002 

879 

000-^04 

880 

000010 

881 

000020 

882 

000040 

883 

000100 

884 

000200 

885 

000400 

886 

001000 

887 

001407 

388 

000370 

889 

890 

891 

892 

000001 

893 

000001 

894 

895 

896 

897 

000002 

898 

000004 

899 

000010 

900 

000020 

-JOI 

000040 

902 

000100 

903 

000200 

904 

000400 

905 

001000 

906 

C02000 

907 

004000 

908 

01 0000 

909 

020000 

91C 

040000 

911 

912 

913 

914 

001774 

915 

077774 

916 

917 

918 

E2.INA  ==  10 

E2.INC  ==  20 

E2.0UT  ==  40 

E2.RET  ==  100 


INACTIVITY  TIMER 
INCOMING  TIMER 
OUTGOING  TIMER 
RETRANSMIT  FACTOR 


OE.NSP  ==  OE.LNKIOE.VFYIOE.NCO      ;  NSP  PARAMETERS 

E2.NSP  ==  E2.SEGIE2.INAIE2.1NC!E2.0UT!E2.RET  ;  DITTO 

OE.NOD  ==  OE.IDIOE.NAMIOE.ADDIOE.HOS  ;  NODE  PARAMETERS 

0E.LV2  ==  OE.AMAXIOE.AHOPIOE.ACOS    ;  LEVEL  2  ROUTING  PARAMETERS 

OE.ROU  ==  OE.NNIOE.MXC!OE.MXH:OE.RTM!OE.LV2  ;  ROUTING  PARAMETERS 

E2.R0U  ==  E2.BEAIE2.8RT  ;  LIKEWISE 


SYSTEM  OPTIONS 


==  1 
==  2 
==  4 


OS.LOC 
OS. NAM 
OS. PAR 

0S.CC8  ==  10 
OS.RBN  ==  20 
OS.RBS  ==  40 
0S.S8N  ==  100 
OS.THR  ==  200 
OS. BYT  ==  400 
OS.BLK  ==  1000 


F  LOADING  LOCATION  PRESENT 

F  DYNAMIC  PARTITION  NAME  PRESENT 

F  PARTITION  NAME  IS  PRESENT 

F  CCB  NUMBER  PRESENT 

F  RDB  NUMBER  PRESENT 

F  RDB  SIZE  PRESENT 

F  SDB  NUMBER  PRESENT 

F  RDB  THRESHOLD  VALUE  IS  PRESENT 

F  POOL  BYTE-AREA  PRESENT 

F  POOL  BLOCK-AREA  PRESENT 


OS.PRT  ==  OS.PAR!OS.NAM:OS.BLK!OS.BYTIOS.LOC 
0S.8UF  ==  0S.CCB!0S.RBN:0S.R8S!0S.SBNI0S.THR 


PARTITION  PARAMETERS 
BUFFER  PARAMETERS 


NODE  OPTIONS 

ON. NAM  ==  1 
ON. ADD  ==  1 

REMOTE  NODE  OPTIONS 


RN.NAM 
RN.HOS 
RN.SDV 
RN.SNV 
RN.DPA 
RN.DCT 
RN.SCI 
RN.HAR 
RN.SPA 
RN.SLO 
RN.TLO 
RN.LOD 
RN.DIA 
RN.DMP 


==2 


4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 


=1  IF  NODE  NAME  PRESENT 
=1  IF  NODE  ADDRESS  PRESENT 


.■Remote  name  present 
;Host  node  address 
.■Service  device 
.-Service  node  version 
;Dump  address 
;Dump  count 
.■Service  circuit 
.■Hardware  address 
.•Service  password 
.•Secondary  loader  file 
.•Tertiary  loader  file 
;Load  file 


.■Diagnostics  file 
;Oump  file 


ALL  SER$DF/FIL$DF  REMOTE  NODE  PARAMETERS 


$$$ 
RN.XXX 


=  RN.H0S!RN.SDV!RN.SNV1RN.DPAIRN.DCTIRN.SCI!RN.HAR:RN.SPA 
==  $$$ 1 RN.SLO I RN.TLO: RN.LOD ; RN.DIA 1 RN.DMP 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


REFERENCES 


CS.EVT 

=  000017 

G 

#12-1107 

CS.FEA 

=  000015 

G 

#12-1105 

CS.FIL 

=  000045 

G 

#12-1140 

CS.FLG 

=  010000 

G 

#12-1152 

CS.LLC 

=  000003 

G 

#12-1095 

CS.LOG 

=  000020 

G 

#12-1108 

CS.MOD 

=  100000 

G 

#12-1149 

CS.MSK 

=  000400 

G 

#12-1178 

CS.NET 

=  000400 

G 

#12-1161 

CS.NOD 

=  000012 

G 

#12-1102 

CS.NUM 

=  000400 

G 

#12-1173 

CS.OBJ 

=  000014 

G 

#12-1104 

CS.PAR 

=  000011 

G 

#12-1101 

CS.PSN 

=  000022 

G 

#12-1113 

CS.PVC 

=  000030 

G 

#12-1119 

CS.RDT 

=  000035 

G 

#12-1124 

CS.REM 

=  00001! 

G 

#12-1103 

CS.ROU 

--  000016 

G 

#12-1106 

CS.SAC 

=  000041 

G 

#12-1132 

C5.SAD 

=  000042 

G 

#12-1133 

CS.SER 

=  000044 

G 

#12-1139 

CS.SHI 

=  001000 

G 

#12-''1?'. 

CS.SLO 

=  002000 

G 

#12-1175 

CS.SLT 

=  000002 

G 

#12-1094 

CS.SNA 

=  000040 

G 

#12-1131 

CS.SPU 

=  000043 

G 

#12-1134 

CS.STA 

=  00C010 

G 

#12-1100 

CS.SVC 

=  000021 

G 

#12-1112 

CS.THI 

=  000400 

G 

#12-1158 

CS.TLO 

=  001000 

G 

#12-1159 

CS.TOP 

=  000400 

G 

#12-1156 

CS.TRB 

=  020000 

G 

#12-1151 

CS.TSK 

=  000400 

G 

#12-1171 

CS.UNI 

=  040000 

G 

#12-1150 

CS.UNT 

=  000007 

G 

#12-1099 

CS."AL 

=  001000 

G 

#12-1179 

CS.X2P 

=  000024 

G 

#12-1115 

CS.X29 

=  000025 

G 

#12-1116 

CS.X3P 

=  000023 

G 

#2-1114 

CUSBIL 

=  000001 

G 

#2-1169 

CSHHI 

000006 

G 

#9-535 

CSHLEN 

=  000010 

G 

#9-556 

C$HLO 

000004 

G 

#9-534 

CSNCNT 

000004 

G 

#9-389 

CSNCSR 

000010 

G 

#9-391 

CSNLEN 

=  000016 

G 

#9-394 

CJNPRI 

000012 

G 

#9-392 

CSNURM 

000014 

G 

#9-393 

CSNVEC 

000006 

(i 

#9-390 

CSUCUG 

000010 

(i 

#9-548 

CSUFLG 

000012 

G 

#9-549 

CSULEN 

=  000013 

G 

#9-550 

I  2 

PAGE  2 

CREf   04.00 
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L 


CFEIMP 


CREATED  BY  MACRO  ON  29-JUN-85  AT  04;56 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 
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CREF   0^.00 


$SDAT 

tSDBNM 

SSLUCT 

SSLUS 

SSMOD 

SSNAPT 

$SNLU 

SSNSID 

SSPARE 

$SPLU 

SSPSU 

SSPUNM 

SSSERN 

SSSSCP 

SSTADR 

SSTAN 

SSUBI 

$SUB2 

$SUID 

SSVUPD 

SSWICH 

STHRSH 

triDPB 

STMLST 

STNAM 

STNUM 

SUMRIN 

SUMRUP 

SUNTNM 

$URM 

$VEC 

$VLVL 

SWILO 

$WSZ 

$$$ 

$$$ARG 


$$$GLB 
S$$T1 
$$$T2 
.FSRCB 
RNFSP 
...PCI 


...PC2 


001550  RG 
001526  PG 
001622  RG 
00162A  RG 
001754  RG 
00U26  RG 
001 7A4  RG 
001746  RG 
001734  RG 
001744  RG 
001774  RG 
001724  RG 
001750  RG 
001754  RG 
001566  RG 
001540  RG 
002004  RG 
002006  RG 

:  001^64  RG 
001430  RG 
001460  RG 
001530  RG 
000354  RG 
001420  RG 
001576  RG 
001602  RG 
001512  RG 
001514  RG 
001536  RG 

:  001562  RG 
001550  RG 
001620  RG 
001462  RG 

=  001556  RG 

=  001 77i 

=  000003 


-  ****** 
=  000002 
=  000166  R 

r     ******        Q 

001512  RG 
=  000142  R 


000536  R 


REFERENCES 

#7-295 

#7-176 

#7-290 

#7-291 

#7-283 

#7-134 

#7-301 

#7-302 

#7-300 

#7-282 

#7-285 

#7-299 

#7-303 

#7-304 

#7-226 

#7-185 

#7-264 

#7-265 

#7-284 

#7-135 

#7-146 

#7-177 

#7-127 

#7-132 

#7-203 

#7-204 

#7-167 

#7-168 

#7-184 

#7-227 

#7-191 

#7-208 

#7-147 

#7-246 

#11-914 

#6-95 

#7-127 

#7-128 

6-95 
#6-95 
#6-95 

6-92 
#7-166 
#6-95 

6-95 

6-106 

6-113 

6-115 
#6-95 
#6-95 
#6-105 

6-106 


7-291 

7-284 

7-302 
7-303 
7-301 
7-283 

7-300 
7-304 


7-252 
7-285 


7-248 
7-244 


7-219 
7-224 


11-915 

6-95 

7-127 

7-128 

6-95 

6-95 


6-95 
6-95 
6-106 
6-113 

#6-115 
6-95 
6-95 
6-105 

#6-111 


7-249 
7-251 


7-225 
7-239 


#6-95 

#7-127 

#7-128 

6-95 


6-95 
6-95 
6-106 
6-115 

#6-95 
6-95 

#6-105 
6-111 


7-254 
7-255 


6-95 
7-127 
7-128 
6-95 


6-95 
#6-95 
#6-110 

6-115 

6-95 
#6-95 

6-105 
#6-111 


7-258 


#6-95 

#7-127 

#7-128 

6-95 


6-95 

6-95 

6-111 

#6-115 

#6-95 
6-95 

#6-106 
6-111 


7-295 


6-95 
7-127 
7-128 
7-127 


6-95 
6-95 
6-111 
6-115 

6-95 
#6-95 

6-106 
#6-112 


7-309 


#6-95 
#7-127 
#7-128 
7-128 


#6-95 
#6-104 
6-112 
6-115 

#6-95 
6-95 

#6-106 
6-112 


6-95 

7-127 

7-128 


6-95 
6-105 
6-112 
6-115 

6-95 
#6-95 

6-106 
#6-112 


6-95 

7-127 

7-128 


6-95 
6-105 

6-113 
6-115 

6-95 

6-95 

#6-106 

6-112 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
^2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  CFELIS  -  PERFORM  LIST  COMMAND 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  PERFORM  LIST  COMMAND 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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CFEOPN  -  FILE  I/O  ROUTINES 
Symbol  table 
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04:5" 


BUFSZ  = 

CSBLK 

CS.DIF= 

CS.DVF= 

CS.EQU= 

CS.INP= 

CS.f10R= 

CS.NMF= 

CS.OUT= 

CS.WLD- 

C.CMLD= 

C.OEVD= 

C.DIRD= 

C.DSDS=: 

C.FILD= 

C.MtCWl  = 

C.MICW2= 

C.SIZE= 

C.STAT= 

C.SWAD= 

C.TyPR= 

FO.RD  = 

FO.WRT- 

FX.DIR= 

FX.DLN= 

FX.DMX= 


000122 

000300R 

000002 

000004 

000040 

000001 

000020 

000001 

000002 

000010 

000002 

000006 

000012 

000006 

000016 

000024 

000026 

000054 

000001 

000022 

000000 


000004 
000003 
000002 


GX 
GX 


FX.LEN= 
F.ACTL= 
F.ALOC= 
F.BBFS= 
F.BDB  = 
F.BGBC= 

f.bk;dn= 

F.BKDS= 
F.8KEF= 
F.BKP1= 
F.BKST= 
F.BKVB= 
F.CHR  = 
F.CNTG= 
F.DFNB= 
F.DSPT= 
F.DVNM= 
F.EFBK= 
F.EFN  = 
F.EOBB= 
F.ERR  = 
F.EXT  = 
F.FACC= 
F.FFBY= 
F.FLG  = 


000000 
000076 
000040 
000062 
000070 
000057 
000026 
000020 
000050 
000051 
000024 
000064 
000075 
000034 
000046 
000044 
000134 
000010 
000050 
000032 
000052 
000072 
000043 
000014 
000074 


F.FNAM= 
F.FNB  = 
F.FTYP= 
F.FVER= 

f.hjbk;= 

F.LUN  = 
F.MBCT= 
F.MBC1= 
F.MBFG= 
F.NRBD= 
F.NREC= 
F.0VBS= 
F.RACC= 
F.RATT=: 
F.RCNM= 
F.RCTL= 
F.RSIZ= 
F.RTYP= 
F.SEQN= 
F.SPDV= 
F.SPUN= 
F.STBK^ 
F.UNIT^ 
F.URBD= 
F.VBN  = 


000110 
000102 
000116 
000120 
000004 
000042 
000054 
000055 
000056 
000024 
000030 
000030 
000016 
000001 
000034 
000017 
000002 
000000 
000100 
000072 
000074 
000036 
000136 
000020 
000064 


F.VBSZ= 

IE.8NH= 

lOSB 

I0.RAT= 

N.ANM1= 

N.ANM2= 

N.DID  = 

N.DVNH= 

N.FID  = 

N.FNAM= 

N.FTYP= 

N.FVER= 

N.NEXT= 

N.STAT= 

N.UNJT= 

Q.JOAE= 

Q.IOEF= 

Q.IOFN= 

Q.IOLU= 

O.JOPL= 

Q.IOPR= 

Q.IOSB= 

RATDPB 

S.ANM1= 

S.ANM2= 


000060 

S.FATT^ 

000016 

*»*«*♦  GX 

S.FDB  = 

000140 

000030R 

S.FNAM= 

000006 

******  GX 

S.FNB  = 

000036 

000002 

S.FNBW= 

000017 

000024 

S.FNTY= 

000004 

000024 

S.FTYP= 

000002 

000032 

S.NFt'N= 

000020 

000000 

$BUF1 

0001 56RG 

000006 

$BUFR 

000034RG 

000014 

$FIATR= 

******  GX 

000016 

$IFDB  = 

******  GX 

000022 

SinPEN 

000354RG 

000020 

$0F0B  = 

******  GX 

000034 

SOPEN 

000530RG 

000012 

SRDATA 

000476RG 

000006 

SWDATA 

000662RG 

000002 

$$$ARG= 

000002 

000004 

$$$0ST= 

000014 

000014 

.csn  = 

******  G 

000007 

.CSI2  = 

******  G 

000010 

.GET  = 

******  G 

OOOOOOR 

.OPEN  = 

******  G 

000014 

.PUT  = 

******  G 

000005 

...TPC= 

000006 

.  ABS.  000000 
000674 
Errors  detected: 


000 
001 
0 


(RW,I,G8L,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


»♦♦  Assembler  statistics 

Work  file  reads:  0 

Work   f 1 le  writes:  0 

Size  of  work  file:  10008  Words  (  40  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Sy1'cFEOPn]v2;C132.134]CFEOPN/CR/-SP=SY:[1,1JRSXMCI»I.SML/ML,[130,110]NETLiB/ML,[132,10]CFEOPN 
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CFEPRG 
PURLIN 

301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 


-  PERFORM  PURGE    COMMAMD 
-   PURGE    LINE 
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.SBTTL  PURLIN  -  PURGE  LINE 
♦*  PURLIN  -  PURGE  LINE 
INPUTS: 


OUTPUT: 


SDVNAM  :  PARSED  LINE  ID 
SWILD  =  PARSED  WILDCARD  FLAGS 

COUNTER  TIMER  PURGED. 


000734  016705  OOOOOOG 

000740  004767  OOOOOOG 

000744  103403 

000746  005065  OOOOOOG 

000752  000772 

000754  000207 


PURLIN: 

MOV 

$TMLST,R5 

POINT  TO  START  OF  TEMPLATES 

10$: 

CALL 

.FNSLT 

NEXT  SLT 

BCS 

20$ 

IF  CS,  NO  MORE  SLTS 

CLR 

S$LCTT(R5) 

PURGE  COUNTER  TIMER 

8R 

10$ 

CONTINUE 

20$: 

RETURN 

J  6 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
KEYWORDS 

168  000000 

169  000000 

170  000000 

171  DOOOOO 

172  000000 

173  000000 
17A  000000 

175  000000 

176  000000 

177  000000 

178  000000 

179  000000 

180  000000 

181  000000 

182  000000 

183  000000 

184  000000 

185  000000 

186  000000 

187  000000 

188  000000 

189  000000 

190  000000 

191  000000 

192  000000 

193  000000 

194  000000 

195  000000 

196  000000 

197  000000 

198  000000 

199  000000 

200  000000 

201  000000 

202  000000 

203  000000 

204  000000 

205  000000 

206  000000 

207  000000 

208  000000 

209  000000 

210  000000 

211  000000 

212  000000 

213  000000 
2U  000000 

215  000000 

216  000000 

217  000000 

218  000000 

219  000000 

220  000000 

221  000000 

222  000000 

223  000000 
22i<  000000 
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KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 
KEYWDS 


"LOOP", 

"MASK", 

"MAXIMUM", 

"MINIMUM", 

"MODULE", 

"MONITOR  ', 

•MULTIPOINT", 

"NAME", 

"NETWORK", 

"NODE", 

"NODES    , 

"NONROUTERS", 

"NUMBER", 

"OBJECT", 

"OBJECTS'', 

"OFF", 

"ON", 

"OUTGOING", 

"PARTITION    , 

"PASSWORD", 

"PERMANENT'', 

"PHASE", 

"POOL", 

"PRIORITY", 

"PROCESS", 

"PROCESSES", 

"PRGTOCOL", 

"PURGE", 

"RECALL", 

"RECEIVE'', 

"RESETS", 

"RESTARTS", 

"RETRANSMIT", 

"RETRANSMITS    , 

"ROUTING", 

"ROUTERS", 

"SECONDARY" 

"SEGMENT", 

"SET", 

"SERVER", 

"SERVICE'', 

"SHOW", 

"SINGLE", 

"SIZE", 

"small'', 

"SNA", 
"SPEED", 
"STATE", 
"STATUS'', 

"summary'', 
"subaodresses' 

"SYSTEM", 
"TERTIARY", 
"TIMER", 
"TOPDOWN", 

"transmit'', 
"tributary'', 


KSLOO 

KSMSK 

KSMAX 

KSMIN 

KSMOD 

KSMON 

KSMUL 

KSNAM 

KSNET 

KSNOD 

KSNODS 

KSNONR 

KSNUM 

KSOBJ 

KS08JS 

KSOFF 

KSON 

KSOUT 

KSPAR 

KSPAS 

KSPER 

KSPHA 

KSPOL 

KSPRI 

KSPRO 

KSPROS 

KSPRT 

KSPUR 

KSRCL 

KSREC 

KSRES 

KSRSTR 

KSRTR 

KSRTRS 

KSROU 

KSROUT 

KSSEC 

KSSEG 

KSSET 

KSSRV 

KSSER 

KSSHO 

KSSIN 

KSSIZ 

KSSMA 

KSSNA 

KSSPD 

KSSTA 

KSSTS 

KSSUM 

KSSUBA 

KSSYS 

KSTER 

KSTIM 

KSTOP 

KSTRA 

KSTRIB 


,r\c     n7L 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  NODE  COMMAND 

815  000000 

816  000000 
817 

818  000000 

819  000000 

820  000000 

821  000000 

822  000000 

823  000000 

824  000000 

825  000000 

826  000000 

827  000000 

828  000000 

829  000000 

830  000000 

831  000000 

832  000000 

833  000000 

834  000000 

835  000000 

836  000000 

837  000000 

838  000000 

839  000000 
340  000000 

841  000000 

842  000000 

843  000000 
8'.4  000000 
845 
846 
847 

848  000000 

849  000000 

850  000000 
851 

852  000000 

853  000000 

854  000000 
855 

856  000000 

857  000000 

858  000000 
859 

860  000000 

861  000000 
862 

863  000000 

864  000000 

865  000000 

866  000000 

867  000400 

868  000000 

869  000000 

870  000000 

871  000000 
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TRANS  IRNSDV3, SEXIT,   .RNSDV 

TRANS  SLAMDA,  SFAIL,  SCLERR,  ERRIPV,  SERROR 


STATES 

RNSDV3 

TRANS 

8KSXDP,  SEXIT 

TRANS 

8KSXUNA, SEXIT 

TRANS 

8KSXDU,  SEXIT 

TRANS 

8KSXCNA, SEXIT 

TRANS 

SKSXDL,  SEXIT 

TRANS 

8KSXQNA, SEXIT 

TRANS 

8KSXDQ,  SEXIT 

TRANS 

8KSXC1,  SEXIT 

TRANS 

8KSXDA,  SEXIT 

TRANS 

8KSXPCL, SEXIT 

TRANS 

KKSXDUP, SEXIT 

TRANS 

SKSXDMC, SEXIT 

TRANS 

SKSXDN,  SEXIT 

TRANS 

8KSXDLV, SEXIT 

TRANS 

&KSXDMP, SEXIT 

TRANS 

8KSXDTE, SEXIT 

TRANS 

8KSXDV,  SEXIT 

TRANS 

8KSXDZ,  SEXIT 

TRANS 

8KSXKDP, SEXIT 

TRANS 

8K$XKDZ, SEXIT 

TRANS 

8KSXKL,  SEXIT 

TRANS 

8KSXDMV, SEXIT 

TRANS 

8KSXDPV, SEXIT 

TRANS 

8KSXDMF, SEXIT 

TRANS 

8K$XDMR, SEXIT 

TRANS 

8KSXKMY, SEXIT 

;  Service  node 

uersi'on 

STATES 

RNSNV 

TRANS 

8k;$vrsn,rnsnv3 

TRANS 

8KSSER 

STATES 

,8PSSER0 

TRANS 

&KSN0D,RNSNV1 

TRANS 

SLAMDA, RNSNV2 

STATES 

RNSNVl 

TRANS 

8KSVRSN,RNSNV3 

TRANS 

SLAMDA, RNSNV3 

STATES 

RNSNV2 

TRANS 

8/C$VRSN 

STATES 

RNSNV3,8P$SERV 

TRANS 

8KSPHA,RNSNV4 

TRANS 

SLAMDA 

STATES 

RNSNV4 

SF.PH3 

=  400 

TRANS 

8KS3,   SEXIT,, 

SF.PH3,  SSWICH 

TRANS 

<'3>,   SEXIT,, 

SF.PH3,  SSWICH 

TRANS 

8/(S4,   SEXIT 

TRANS 

<'4>,   SEXIT 

Kir\c     r\7^. 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  LINE  COMMAND 

K95  000000 

U9^ 

K95 

1A96 

K97  000000 

1^98  000000 

H99  000000 

1500  000000 

1501  000000 

1502  000000 
1503 
1504 
1505 

1506  000000 

1507  000000 

1508  000000 

1509  000000 

1510  000000 

1511  000000 
1512 
1513 
1514 
1515 
1516 

1517  000000 

1518  000000 
1519 

1520  000000 

1521  000000 

1522  000000 
1523 
152A 
1525 

1526  000000 

1527  000000 
1528 

1529  000000 

1530  000000 

1531  000000 
1532 
1533 
1534 
1535 

1536  000000 

1537  000000 
1538 
1539 
1540 
1541 

1542  000000 

1543  000000 
1544 

1545  000000 

1546  000000 
1547 

1548  000000 

1549  000000 
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TRANS  $DNUMB,$EXIT,.LIRTC 
RETRANSMIT  TIMER 

STATES  RTT 

TRANS  8KSRTR 

STATES  ,8PSfiT0 

TRANS  8KSTIM 

STATES  ,8PSRTT 

TRANS  SDNUMB,SEXIT,.LIRTT 

MAXIMUM  WINDOW  (FOR  LINE) 

STATES  MWIL 

TRANS  &KSMAX 

STATES  ,      SPSMAX 

TRANS  8KSWIN 

STATES  ,       SPSMWI 

TRANS  SDNUMB,  SEXIT,   .LIMWI 

.S8TTL  SUB-EXPRESSIONS  FOR  CIRCUIT/LINE  ID 
LOOK  FOR  CIRCUIT  ID  -  REJECT  IF  NO  SUCH  CIRCUIT 


STATES  CIRID 
TRANS  8KSCIR, 


,1,SCIRCT 


STATES  ,&PSCRID 
TRANS   ILINCIR, SEXIT, .CKDLM 
TRANS  SSTRNCSEXIT,. CIRID 


TRANSPORT  CIRCUIT 
PSl  CIRCUIT 


LOOK  FOR  CIRCUIT  ID  -  ALLOW  UNKNOWN  PSI  CIRCUITS 


STATES 
TRANS 


CIRI1 
aKSCIR,,,1,SCIRCT 


STATES  ,£PSCR1D 
TRANS   ILINCIR, SEXIT, .CKDLM 
TRANS  SSTRNG,SEXIT,.CIRI1 


LOOK  FOR  LINE  ID 

STATES  LINID 
TRANS  SKSLIN 


COMMON  PART  OF  LINE  AND  CIRCUIT 


TRANSPORT  CIRCUIT 
PSI  CIRCUIT 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


LINCIR,&PSLNID 
SRAD50,,.LINAM 


SDNUMB, LIN1,.LICNT 


line   ATk 


J  9 
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CFEPRS  -   STATE    TABLES   TO  PARSE 
DEFINE   MODULE    COMMAND 

2137 

2138 

2139 

2K0 

2U1   000000 

2U2  000000 

2K3  000000 

2U^  000000 

2K5  000000 

2U6  000000 

21A7  OOOOOC 

2H8 

2U9 

2150 

2151  000000 

2152  000000 

2153  000000 
21 5A  000000 

2155  000000 

2156  000000 
2157 
2158 
2159 

2160  000000 

2161  000000 

2162  000000 

2163  000000 
21 6A  000000 

2165  000000 

2166  000000 

2167  000000 

2168  000000 
2169 
2170 
2171 

2172  000000 

2173  000000 

2174  000000 

2175  000000 

2176  000000 

2177  000000 

2178  000000 

2179  000000 
2180 
2181 
2182 

2183  000000 

2184  000000 

2185  000000 

2186  000000 

2187  000000 

2188  000000 

2189  000000 

2190  000000 

2191  000000 
2192 
2193 


I  10 

MACRO  V05.03b  Tuesday  02-Jul-85  U:08  Page  13 


.SBTTL  DEFINE  MODULE  COMMAND 


;  DEFINE  MODULE 

COMMAND 

STATES 

DEFMOD 

TRANS 

IMODXPR.DEFXPR  , ,CO.MXP,SCOMP 

TRANS 

IDXPRAB, SEXIT   , ,CO.MXP,SCOMP 

TRANS 

IMODXSV,DEFXSV  , ,CO.MXS,SCOMP 

TRANS 

IMODXACPEFXAC  ,  ,CO.MAC,SCOMP 

TRANS 

IH0DX29,DEFX29  , ,C0.MX9,SC0MP 

TRANS 

IMODSPR,SEXIT,SSNDEF,CO.MSP,SCOMP 

•  DEFINE  MODULE 

X25-PROTOCOL  COMMAND 

STATES 

DEFXPR,  &PSDMOD 

TRANS 

IDXPRCH, SEXIT                ; 

TRANS 

SLAMDA 

STATES 

DXPRAB 

TRANS 

IDXPDDT, SEXIT 

TRANS 

IDXPCUG, SEXIT 

;  DEFINE  MODULE 

X25-SERVER  CHARACTERISTICS 

STATES 

DEFXSV,  gPSDMOD 

TRANS 

IDFXSV2,DFXSV1 

TRANS 

IDSTLIS, SEXIT 

STATES 

0FXSV1 

TRANS 

SEOS,   SEXIT 

TRANS 

IDFXSV2,DFXSV1 

STATES 

DFXSV2 

TRANS 

!CT,    SEXIT,,  XS.CTM,SOPRND 

TRANS 

IMCIR,   SEXIT,,  XS.MXCSOPRND 

•  DEFINE  MODULE 

X25-ACCESS 

STATES 

DEFXAC,  &PSDMOD 
IDFXAC2 

TRANS 

STATES 

OFXACl 

TRANS 

SEOS, EXIT 

TRANS 

IDFXAC2,DFXAC1 

STATES 

DFXAC2 

TRANS 

IDNUM,   SEXIT,, XA.NUM,SOPRND 

TRANS 

IDST,   SEXIT, ,XA.D<:T,$0PRND 

•  DEFINE  MODULE 

X29-SERVER  CHARACTERISTICS 

STATES 

DEFX29,  SPSDMOD 

TRANS 

1DFX29B,DFX29A 

TRANS 

IDSTLIS, SEXIT 

STATES 

DFX29A 

TRANS 

SEOS.   SEXIT 

TRANS 

!DFX29B,DFX29A 

STATES 

DFX29B 

TRANS 

ICT,    SEXIT,,  XS.CTM,SOPRND 

TRANS 

IMCIR,   SEXIT,,  XS.MXCSOPRND 

DEFINE  MOD  SNA-PROTOCOL 


;  CHARACTERISTICS  PARAMETERS 


;  DTE  PARAMETERS 
GROUP  PARAMETERS 


PARSE  X25-SERVER/X29-SERVER  DESTINATION 


i/AC     A7k 
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PURCIR 

PURCT 

PURGE 

PURLIN 

PURNOD 

PUROPT 

P$ACOS= 

P$ACT  = 

P$ADD  = 

P$AHOP= 

PSAOP  = 

P$BEA  = 

P$BROO= 

P$BRT  = 

P$BUF  = 

PSBYT  = 

P$CALL= 

P$CALT= 

P$CBN  = 

P$CFE  = 

P$CHN  = 

P$CHNL= 

P$CIST=: 

PtCLM  = 

P$CLRO= 

P$CLRT= 

P$CON  = 

PSCOP  = 

P$COS  = 

P$CRID= 

P$CSR 

P$CT  = 

P$CTO  = 

P$CUG  = 

P$DADR= 

PSDEA  = 

P$DECI= 

PSDEF  = 

P$DELI= 

P$DELO= 

P$DENO= 

P$DEOB= 

P$DEPR= 

P$DFAO= 

P$DFDA= 

P$DFWI= 

P$DIAF= 

P$DMOD= 

P$DMPC  = 

P$DMPF= 

P$DMPO= 

P$DST  = 

P$DSTO= 

PSDTE  = 

P$DTEO= 

PSDUP  = 

P$EVE  = 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


002130R 

0021 54R 

00112AR 

0021 12R 

OOUOAR 

001374R 

*♦♦»** 

****** 

****** 

****** 

****** 

****** 

****** 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


002  PSEXE  = 
002  P$GRPO= 
002  P$HADR= 
002  P$HBO  = 
002  P$HBT  = 
002  PSHOP  = 
P$HOS  = 
PIHTM  = 
P$HTO  = 
P$INA  = 
P$1NC  = 
P$LAR  = 
P$LBN  = 
P$LBS  = 
P$LIS  = 
P$LIST= 
P$LNID= 
P$LOC  = 
P$LOF  = 
PSLOG  = 
P$LPRI= 
P$HAX  = 
PSMBD  = 
P$MCIR= 
P$MCLR= 
PSMIN  = 
P$MLNK= 
P$MNC  = 
P$MOD  = 
P$MRC  = 
P$MRES= 
P$MRST= 
P$MUL  = 
P$HW1  = 
P$MXA  = 
P$MXCO= 
P$I»IXLI  = 
P$MXR  = 
P$NAM  = 
P$NID  = 
P$NNA  = 
P$NNO  = 
P$NOD  = 
PSNUM  = 
P$OBJ  = 
P$OID  = 
P$ONAM= 
P$OUT  = 
P$OVER= 
P$PAR  = 
P$PEN  = 
P$PID  = 
P$PMOD= 
P$PNAM= 
P$POPT= 
P$PRI  = 
P$PSTA= 


****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 

GX 


P$PUOP= 

****** 

GX 

RNL0D4 

004232R 

002 

THRESH 

0122141; 

002 

P$PUR  = 

****** 

GX 

RNOPT 

003006R 

002 

TRIB 

005530fi 

002 

P$RBM  = 

****** 

GX 

RNSCI 

003726R 

002 

UNCSR 

0065161! 

002 

PSRCO  = 

****** 

GX 

RNSCJ2 

00374AR 

002  URH 

006542F 

002 

PSREC  = 

****** 

GX 

RNSDV 

003274R 

002 

USER 

011360F 

002 

P$RESO= 

****** 

GX 

RNSDV2 

00331 2R 

002 

USG 

005770R 

92? 

P$REST= 

****** 

GX 

RNSDV3 

003342R 

002 

VEC 

006354f 

002 

P$RETF= 

****** 

GX 

RNSLO 

0041 20R 

09? 

VFYI 

010272F 

002 

P$R0U  = 

****** 

GX 

RNSL02 

004130R 

002 

WC.CIR= 

****** 

GX 

P$ROUT= 

****** 

GX 

RNSNV 

003512R 

002 

WC.CNT= 

****** 

GX 

P$RPR  = 

****** 

GX 

RNSNV1 

003536R 

002 

WC.EVE= 

****** 

GX 

P$RSTO= 

****** 

GX 

RNSNV2 

003546R 

002 

WC.LIN^ 

****** 

GX 

P$RSTT= 

****** 

GX 

RNSNV3 

003550R 

002 

WC.LOG= 

****** 

GX 

P$RTC  = 

****** 

GX 

RNSNV4 

003564R 

002 

WC.NOD= 

****** 

GX 

P$RTM  = 

****** 

GX 

RNSPA 

004062R 

002 

WC.08J= 

****** 

GX 

PSRTO  = 

****** 

GX 

RNSPA2 

004070R 

002 

UC.PRO= 

****** 

GX 

P$RTT  = 

****** 

GX 

RNTLO 

004154R 

002 

WC.TRI= 

****** 

GX 

P$SBN  = 

****** 

GX 

RNTL02 

004164R 

002 

UC.UNT= 

****** 

GX 

P$SDV  = 

****** 

GX 

RN.DCT= 

****** 

GX 

XA.DST= 

****** 

GX 

PSSEG  = 

****** 

GX 

RN.DIA= 

****** 

GX 

XA.NUM= 

****** 

GX 

PSSER  = 

****** 

GX 

RN.DMP= 

****** 

GX 

XP.B]L= 

****** 

GX 

P$SERC= 

****** 

GX 

RN.DPA= 

****** 

GX 

XP.CHN= 

****** 

GX 

P$SERO= 

****** 

GX 

RN.HAR= 

****** 

GX 

XP.CLT= 

****** 

GX 

P$SERP= 

****** 

GX 

RN.HOS= 

****** 

GX 

XP.COU= 

****** 

GX 

P$SERV= 

****** 

GX 

RN.LOD= 

****** 

GX 

XP.CTM= 

****** 

6X 

P$SLOF= 

****** 

GX 

RN.NAM= 

****** 

GX 

XP.CUG= 

****** 

GX 

PSSMA  = 

****** 

GX 

RN.SC]= 

****** 

GX 

XP.DFB= 

****** 

GX 

PSSPD  = 

****** 

GX 

RN.SDV= 

****** 

GX 

XP.DFW= 

****** 

GX 

PSSTA  = 

****** 

GX 

RN.SLO^ 

****** 

GX 

XP.DTA= 

****** 

GX 

P$SU8A= 

****** 

GX 

RN.SNV= 

****** 

GX 

XP.DTE= 

****** 

GX 

P$SYS  = 

****** 

GX 

RN.SPA= 

****** 

GX 

XP.KND= 

****** 

GX 

P$TLOF= 

****** 

GX 

RN.TL0= 

****** 

GX 

XP.KNG= 

****** 

GX 

P$TRJ8= 

****** 

GX 

RST 

013770R 

002 

XP.LIN= 

****** 

GX 

PSTYP  = 

****** 

GX 

RT8RK  = 

000076 

XP.MCI= 

****** 

GX 

PSURM  = 

****** 

GX 

RTM 

005742R 

002 

XP.MRE= 

****** 

GX 

PSUSE  = 

****** 

GX 

RTT 

0071 16R 

002 

XP.HXB= 

****** 

GX 

PSUSG  = 

****** 

GX 

SDBNM 

012156R 

002 

XP.MXC= 

****** 

GX 

PSVEC  = 

****** 

GX 

SF.PH3= 

000400 

XP.HXR= 

****** 

GX 

PSXPRC= 

****** 

GX 

STRING 

010210R 

052 

XP.MXW= 

****** 

GX 

QSTRNG 

010230R 

002 

STRNG 

010204R 

002 

XP.NNA= 

****** 

GX 

QUOTE  = 

000042 

STRNG1 

010234R 

002 

XP.NUM= 

****** 

GX 

RDBNM 

012062R 

002 

SW.ENA= 

****** 

GX 

XP.RET= 

****** 

GX 

RD8SZ 

012120R 

002 

SW.FUL= 

****** 

GX 

XP.RST= 

****** 

GX 

RET 

013714R 

002 

SW.]NC= 

****** 

GX 

XP.STA= 

****** 

GX 

RNDCT 

003666R 

002 

SW.L0A= 

****** 

GX 

XP.ST1= 

****** 

GX 

RNDIA 

004256R 

002 

SW.LON= 

****** 

GX 

XS.CLM= 

****** 

GX 

RNDIA2 

004266R 

002 

SW.0UT= 

****** 

GX 

XS.CLV= 

****** 

GX 

RNDLL 

003002R 

002 

SW.PUR= 

****** 

GX 

XS.CTM= 

****** 

GX 

RNDMP 

004312R 

002 

SW.RLU= 

****** 

GX 

XS.CUG= 

****** 

GX 

RNDMP2 

004326R 

002 

SW.SDI= 

****** 

GX 

XS.DST=: 

****** 

GX 

RNDPA 

003626R 

002 

SW.SEN= 

****** 

GX 

XS.DTE= 

****** 

GX 

RNHAR 

003774R 

002 

SW.SMC= 

****** 

GX 

XS.KND= 

****** 

GX 

RNHAR2 

004004R 

002 

SW.TOP= 

****** 

GX 

XS.MXC= 

****** 

GX 

RNHOS 

003216R 

002 

SW.VFY= 

****** 

GX 

XS.OBI= 

****** 

GX 

RNLOD 

004210R 

002 

SYSOPT 

011530R 

002 

XS.OBJ= 

****** 

GX 

RNL0D2 

004220R 

002 

SYSO 

011516R 

002 

XS.PRI= 

****** 

GX 

RNL0D3 

004230R 

002 

TBIL 

014162R 

002 

XS.SUB= 

****** 

GX 

:-TATC      TADiCC      m     DADCC         MAfOn     \yAC;     n7h     TuiicHav     D?-  I 
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16A  000202 

165  000212 

166  000224 
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167 
168 
169 
170 


25$: 

CLOSES 

#$lfDB 

iO$: 

EXST$S 
EXITSS 

SEXSTS 

.DSA8L 

LS8 

CLOSE    THE    INPUT   FILE 

AND   GO  AWAY... WITH  STATUS    I 

JUST    IN  CASE    EXSTSS    IS   NOT    SUPPORTED 


OOOO?'.' 


.END 


SCFE 


DnnT    c:c/:mfmt    fod    tff 


J  12 

NiarBn  vflS   nXh   Safiirriav   29-,Jijn-85   05:13 


Paae   5-2 


CfERQB     CREAIED  BV 
SYMBOL  CROSS  REFERENCE 
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CREF 


I  13 

OA.OO 


SYMBOL 

VALUE 

REFERENCES 

IRLBF 

000102 

Rf, 

5-102 

#6-153 

SRQBF 

000000 

Rf, 

#5-91 

SSAVRCi 

r     ****** 

GX 

6-153 

6-211 

SXXbUF 

=     ****** 

GX 

5-98 

tXXLEN 

-     ****** 

GX 

5-99 

•  5-101 

.EXINC 

=  000020 

G 

#^-55 

5-95 

.RQCB 

000206 

RG 

5-93 

#6-211 

5-100 
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I  U 


CCCCCCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

SSSSSSSS 

uu 

uu 

B6BBBBBB 

CCCCCCCC   r 

FFFFFFFFF 

EEEEEEEEEE 

SSSSS5SS 

uu 

uu 

BBBBB6BB 

CC         F 

EE 

SS 

uu 

uu 

BB     BB 

CC         F 

EE 

SS 

uu 

uu 

BB     BB 

CC         F 

EE 

SS 

uu 

uu 

BB     BB 

CC         F 

EE 

SS 

uu 

uu 

BB     BB 

CC         F 

FFFFFFF 

EEEEEEEE 

SSSSSS 

uu 

uu 

6BBB8B6B 

CC         F 

FFFFFFF 

EEEEEEEE 

ssssss 

uu 

uu 

BBBB6BBB 

CC         F 

EE 

SS 

uu 

uu 

BB     BB 

CC         F 

EE 

SS 

uu 

uu 

BB     BB 

CC         F 

EE 

SS 

uu 

uu 

BB     BB 

CC          F 

EE 

SS 

uu 

uu 

BB     BB 

CCCCCCCC    F 

EEEEEEEEEE 

SSSSSSSS 

uuuuuuuuuu 

BBBBBBBB 

CCCCCCCC    F 

EEEEEEEEEE 

SSSSSSSS 

uuuuuuuuuu 

B6BBBBBB 

SSSSSSSS 

nTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

rnMMriN  <;iiRRniiTiNFS 
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395  000530 

394  000532 

395  000534 

396  000536 
397 

398  000540 

399  000542 

400  000544 

401  000550 

402  000554 

403  000560 
404 

405 
406 
i07 
408 
409 
410 

411  000564 

412  000566 

413  000570 

414  000572 

415  000574 

416  000600 

417  000602 

418  000604 
419 

42C 
421 

422  000606 

423  000610 

424  000614 

425  000616 

426  000620 
427 

428  000622 

429  000624 

430  000626 

431  000632 
432 

433 


100434 
121405 
001407 
000431 

005716 
100427 

012705  000046 

162705  177767 

162705  177722 

162705  000100 


010046 

012300 

010146 

010501 

004767  OOOOOOG 

010105 

012601 

012600 


060501 

020327  000422' 

103725 

005726 

000402 

005726 

000261 

116002  Mmi 

000207 


BMI 

60$ 

CMPB 

(R4),R5 

BEQ 

40$ 

BR 

60$ 

15$: 

Tsr 

(SPv 

BMI 

60$ 

MOV 

#35*11, R5 

30$: 

SUB 

#11-22. R5 
#22-106,R5 

40$: 

SUB 

50$: 

SUB 

#100, R5 

Page  12-1 


;n0  -  terminate 

•yes' 

;must  be  a  non-rad50 

;extended  mode? 

;N0 

;ASTERISK  USES  CODE   35 


.IF   DF      R$$EIS 
MUL  (R3)*,R5 

.IFF 


MOV 

RO,-(SP) 
(R3)+,R0 

;SAVE  NEXT  BYTE  ADDRESS 

MOV 

MOV 

R1,-(SP) 

.-SAVE  ACCUMULATOR 

MOV 

R5,R1 

CALL 

$MUL 

MOV 

R1,R5 

.-RESULT  TO  R5 

MOV 

(SP)+,R1 

.-RESTORE 

MOV 

(SP)t,RO 

.ENDC 

ADD 

R5,fi1 

,-UPDATE  ACCUMULATOR 

CMP 

R3,#CVTBLt6 

.-END  OF  TABLE 

BLO 

loi 

;N0  -  GET  NEXT  CHAR 

TST 

(SP)  + 

.-CLEAN  STACK 

BR 

70$ 

60$: 

TST 
SEC 

Move 

(SP)  + 

.-CLEAN  STACK 

70$: 

-1(R0),R2 

.-RETURN  TERMINATING  CHAR 

RETURN 

.DSA8L      LSe 


rccQiiD   -   rnMMnM   ci inBniiT IWF<; 
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SYMBOL 

VALUE 

REFERENCES 

tsllds 

000012 

#4-63 

TSLLEN 

000046 

#4-63 

T$LOPR 

000002 

#4-63 

TSLTCL 

000024 

#4-63 

TSLTIM 

000026 

#4-63 

TSLTPR 

000014 

#4-63 

TtLTPS 

000020 

#4-63 

TSNAPL 

000004 

#4-63 

TtNFE 

000000 

#4-63 

TSNLEN 

000010 

#4-63 

TtNNUL 

000002 

#4-63 

TSNOPL 

000006 

#4-63 

TSNRNI 

000042 

#4-63 

T$NRPL 

OOOOOS 

#4-63 

TSNRUL 

000007 

#4-63 

TSNVR 

000001 

#4-63 

T$RPRI 

000040 

#4-63 

TSSVC 

000034 

#4-63 

T$T5 

000030 

#4-63 

T$T6 

000032 

#4-63 

wc.cn; 

-      *♦**•♦ 

GX 

14-506 

UC.NAM 

=   ««***• 

GX 

13-460 

14-494 

WC.TRI 

=      ****** 

GX 

14-520 

15-551 

WC.UNT 

Z   ****** 

GX 

14-512 

XSLEN 

000106 

5-100 

XSLENX 

=  000110 

G 

#5-100 

SCATS 

000442 

RG 

#12-369 

SCFERR 

000062 

RG 

#8-195 

SCFERI 

000106 

RG 

#8-202 

$C5TA 

000244 

RG 

#11-298 

$C5TA1 

000234 

RG 

#11-295 

$DIV 

=  ****** 

GX 

11-321 

SDVNAM 

-  ****** 

GX 

14-486 

SERDPB 

=   ****** 

GX 

8-203 

♦8-206 

♦8-210 

SEXSTS 

=  ****** 

GX 

8-196 

8-198 

•8-200 

SFLAGS 

=   ****** 

GX 

•13-464 

♦13-465 

•14-498 

SFNPRO 

000634 

RG 

#13-449 

SFNSLT 

000730 

RG 

#14-484 

SFNSTA 

001172 

RG 

14-523 

#15-544 

$MUL 

~   ****** 

GX 

12-415 

16-606 

SMVASC 

000164 

RG 

#9-238 

$PBL< 

=   ****** 

GX 

16-613 

♦16-619 

SPRINT 

000000 

RG 

#7-160 

SPRNA>' 

=    ****** 

GX 

13-462 

SQINS 

000200 

RG 

#10-261 

SQINSN 

000216 

RG 

#10-268 

SSAVAL 

-   ****** 

GX 

16-579 

SSAVRG 

-   ****** 

GX 

12-370 

SSTAN 

=      ****** 

GX 

•15-555 

STIDPB 

-   ****** 

GX 

♦7-161 

7-163 

STMLST 

-   ****** 

GX 

•10-271 

16-580 

SUPBLK 

001244 

RG 

#16-578 

8-211 
•14-501 


♦8-213 
•14-502 


8-214 
•14-505 


♦8-315 
14-510 


14-518 


roCftTCrv     Dv 


iiM-st;   AT   ^l<^■^L 
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CfElMF 

'VMBOL  DEFINIT 

DEFINE 

^LATF"  GLOBAL 

qig 

9,^0 

'^2^ 

000200 

922 

000400 

923 

001000 

924 

002000 

925 

926 

927 

923 

000001 

929 

000002 

930 

000004 

931 

000010 

932 

000020 

933 

000040 

934 

935 

936 

937 

938 

939 

940 

000001 

9'.1 

000002 

000004 

9^3 

000010 

944 

000020 

945 

000040 

946 

000100 

947 

000200 

948 

000400 

949 

001000 

950 

002000 

951 

004000 

952 

953 

000177 

954 

003777 

955 

956 

957 

958 

010000 

959 

020000 

960 

961 

OOCjOI 

962 

000002 

963 

000004 

964 

000010 

965 

000020 

966 

000040 

967 

968 

969 

970 

040000 

°71 

100000 

572 

973 

000001 

974 

1/00002 

975 

000004 

OBJECT  OPTIONS 

OO.USR  == 
00. COP  == 
OO.VFY  == 


200 
400 
1000 
00. NAM  ==  2000 


=1  IF  OBJECT  TASK  USER  SPECIFIED 

=1  IF  OBJECT  TASK  COPIES  SPECIFIED 

=1  IF  OBJECT  TASK  VERIFICATION  LEVEL  SPECIFIED 

=1  IF  THE  OBJECT  TASK  NAME  IS  SPECIFIED 


LOGGING  OPTIONS 

OM.STA 
OM.MON 
OM.CON 
OM.FIL 
OM.EVE 
OM.KEV 


1 

2 

4 

10 

20 

40 


=  1 
=  1 
=  1 
=  1 
=  1 
=  1 


IF  LOGGING  STATE  PRESENT 

IF  MONITOR  SINK  TYPE  SPECIFIED 

IF  CONSOLE  SINK  TYPE  SPECIFIED 

IF  FILE  SINK  TYPE  SPECIFIED 

IF  EVENTS  SPECIFIED 

IF  KNOWN  EVENTS  SPECIFIED 


MODULE  OPTIONS  -  X25  PROTOCOL 


X25  LEVEL  3  CHARACTERISTICS 


XP.CTM  ==  1 

XP.CLT  ==  2 

XP.DFB  ==  4 

XP.DFW  ==  10 

XP.MXB  ==  20 

XP.MXC  ■—  40 

XP.MRE  ==  100 

XP.MXR  ==  200 

XP.MXU  ==  400 

XP.RET  ==  1000 

XP.RST  ==  2000 

XP.NNA  ==  4000 

XP.LV3  ==  XP.CTH:XP.CLTIXP.DFB!XP.DFWIXP.MXB!XP.MXCIXP.MRE 

XP.LV3  ==  xp.lv3ixp.mxr:xp.mxw:xp.retixp.rst 


CALL  TIMER 
CLEAR  TIMER 
DEFAULT  BLOCK 
DEFAULT  UINDOW 
MAXIMUM  BLOCK 
MAXIMUM  CLEARS 
MAXIMUM  RESETS 
MAXIMUM  RESTARTS 
MAXIMUM  WINDOW 
RESET  TIMEh 
RESTART  TIMER 
NETWORK  NAME  (PSNSDF) 


DTE  PARAMETERS 

XP.DTE  ==  10000 
XP.KND  ==  20000 
SUB-PARAMETERS  SPECIFIC 
XP.CHN  ==  1 
XP.COU  ==  2 
XP.LIN  ==  4 
XP.MCI   ==  10 
XP.STA  ==  20 
XP.ST1   ==  40 

GROUP  PARAMETERS 

XP.CUG  ==  40000 

XP.KNG  ==  100000 

SUB-PARAMETERS  SP'CIFIC 

XP.DTA  =^  1 

XP.NUM  ==  2 

XP.8IL  ==  4 


TO  DTE  ($SWICh5 


;DTE 
KNOWN  DTES 


CHANNEL 

COUNTER  TIMER 

LINE 

MAXIMUM  CIRCUITS 

STATE 

STATE  =  ON 


TO  CUG  (SSWIChS 


USER  GROUP 
KNOWN  GROUPS 

DTE  ADDRESS 

NUMBER 

TYPE  BILATERAL 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 
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CREF   04.00 


REFERENCES 


CSUNAM 

000004 

G 

#9-547 

C.DSDS 

=  000006 

6-95 

C.LNK 

000000 

G 

#12-1041 

CPRM 

000004 

(i 

#12-1043 

C.SIZE 

=  000054 

6-95  ^ 

C.STS 

000002 

G 

#12-1042 

DASCUG 

=  004000 

G 

#12-1176 

OEFFLG 

=  000233 

#6-95 

DFLTNB 

000426 

? 

6-  • 

DFTLEN 

=  000007 

#6- 

DSACUG 

000022 

G 

#9-632 

DSADLN 

000026 

G 

#9-633 

DSALEN 

=  000030 

G 

#9-634 

DSANUM 

000004 

G 

#9-629 

DSASHI 

000020 

G 

#9-631 

OSASLO 

000016 

G 

#9-630 

DSCLEN 

=  000062 

G 

#9-649 

DSCMLN 

000060 

G 

#9-647 

DSCMSK 

000004 

G 

#9-645 

DtCVAL 

000032 

G 

#9-646 

DSCVLN 

000061 

G 

#9-648 

DSDFLG 

000006 

G 

#9-374 

DSDLEN 

=  000014 

G 

#9-378 

DSDNAM 

000004 

G 

#9-373 

DSDNCT 

000013 

G 

#9-377 

DSDNLT 

000012 

G 

#9-376 

DSDPRi 

000010 

G 

#9-375 

DSSLEN 

=  000020 

G 

#9-619 

DSSNAM 

000006 

G 

#9-615 

DSSOBJ 

000013 

G 

#9-617 

DSSPRl 

000012 

G 

#9-616 

DSSTSK 

000014 

G 

#9-618 

DSSTYP 

000004 

G 

#9-614 

DSTADR 

000004 

G 

#9-516 

D$TCT 

000032 

G 

#9-521 

DSTHSH 

000030 

G 

#9-520 

DSTLEN 

=  000040 

G 

#9-523 

DITLIN 

000016 

G 

#9-517 

DSTNET 

000034 

G 

#9-522 

DSTSTA 

000026 

(i 

#9-519 

EF 

=  000001 

#6-95 

ERRAlL 

002336 

RG 

#13-1221 

ERRCIS 

002507 

RG 

#13-1224 

ERRCON 

002101 

RG 

#13-1215 

ERRFIL 

002245 

RG 

#13-1219 

ERRGCL 

002163 

RG 

#13-1217 

ERRILC 

002133 

RG 

#13-1216 

ERRILN 

002216 

RG 

#13-1218 

ERRLIS 

002445 

RG 

#13-1223 

ERRNCD 

002554 

RG 

#13-1225 

ERROUT 

002303 

RG 

#13-1220 

ERRPNA 

002616 

RG 

#13-1226 

6-95 
#6-95 


6-95 


6-95 


6-95 
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SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 

#6-113     6-113  #6-113     6-113    #6-113     6-113    #6-115     6-115     6-115 

#6-115     6-115     6-115     "     '  "^ 

...PC3  =  0001A2  R     #6-95      6-95  #6-115 


PAGE 

16 

CREF 

OA 

00 

6- 

#6- 

6- 

113 
115 
115 

#6- 
6- 

■113 
■115 
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56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 

68  000000 

69  000000 

70  000002 

71  000004 

72  000006 

73  000010 

74  000012 

75  000014 

76  000016 
n   000020 

78  000022 

79  000024 

80  000026 

81  000030 

82  000032 
83 

84 
85 
86 

87  000034 

88  000064 

89  000114 

90  000120 

91  000130 

92  000150 
93 


**** 
LIBRARY  MACRO  CALLS 

**** 

.MCALL  QIOW$,DIR$,GTIM$ 
■  **** 
•  LOCAL  DATA 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


;  DISPATCH  TABLE 
DSPTBL 


040 


.UORD 

SSHREM 

"SHOW  NODE"  REQUEST 

.WORD 

SSHPRO 

"SHOW  PROCESS"  REQUEST 

.WORD 

SSHEXE 

"SHOW  EXECUTOR"  REQUEST 

.WORD 

SSHSYS 

"SHOW  SYSTEM"  REQUEST 

.WORD 

SSHOBJ 

"SHOW  OBJECT"  REQUEST 

.WORD 

SSHLIN 

"SHOW  LINE"  REQUEST 

.WORD 

SSHLOG 

"SHOW  LOGGING"  REQUEST 

.WORD 

SSHCIR 

"SHOW  CIRCUIT"  REQUEST 

.WORD 

SSHCIR 

"SHOW  KNOWN  CIRCUITS"  REQUEST 

.WORD 

SSHXPR 

"SHOW  MODULE  X25-PROTOCOL"  REQUEST 

.WORD 

SSHXSV 

"SHOW  MODULE  X25-SERVER"  REQUEST 

.WORD 

SSHXAC 

"SHOW  MODULE  X25-ACCESS"  REQUEST 

.WORD 

$SHX29 

"SHOW  MODULE  X29-SERVER"  REQUEST 

.WORD 

SSHSNA 

"SHOW  MODULE  SNA-PROTOCOL"  REQUEST 

;■  QIO  DP8  FOR 

ATTACHING  AND  DETACHING  FROM  TERMINAL 

tiDPB:   QIOWS 

10. ATT, 2, 2 

LFDPB:  QIOW$ 

IO.WVB,2,2 <BLANK,1,40> 

GTIM:   GTIMS 

SGTBUF 

$HDRBK::.BLKW 

4. 

•  HEADER  PARAMETERS 

$GTSUF::.BLKW 

8. 

•  GET  TIME  BUFFER 

BLANK:   .ASCII 

/  / 

.EVEN 

K  4 
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SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

BUFSZ 

=  000122 

#4-76 

4-77 

4-78 

CSBLK 

000300 

R 

#4-79 

5-98 

5-107 

CS.OUT 

=  000002 

5-103 

7-165 

C.CMLD 

=  000002 

*5-99 

♦5-100 

♦7-161 

C.DSDS 

=  000006 

5-107 

7-181 

C.FILD 

=  000016 

7-171 

7-172 

♦  7-179 

C.SIZE 

=  000054 

4-79 

5-101 

5-103 

FO.RD 

=  ****** 

GX 

5-108 

FO.URT 

=  ****** 

GX 

7-182 

F.DSPT 

=  000044 

*5-107 

*7-181 

F.ERR 

=  000052 

*5-105 

*7-166 

F.FACC 

=  000043 

*5-108 

♦7-182 

F.FNB 

=  000102 

4-73 

F.LUN 

=  000042 

5-113 

F.NR6D 

=  000024 

6-139 

F.URBD 

=  000020 

*6-137 

lE.BNM 

-   ****** 

GX 

S-105 

7-166 

lOSB 

000030 

R 

4-73 

#4-74 

5-116 

10. RAT 

=   ****** 

GX 

4-73 

N.FID 

=  000000 

4-73 

Q.IOFN 

=  000002 

4-73 

Q.IOLU 

=  000004 

«5-113 

RATDPB 

000000 

R 

#4-73 

♦5-113 

5-114 

SBUF I 

000156 

RG 

#4-78 

6-137 

♦6-140 

SBUFR 

000034 

RG 

#4-77 

SFIATR 

=  ****** 

GX 

4-73 

♦5-118 

$IFDB 

r  ****** 

GX 

4-73 

5-104 

6-136 

SIOPEN 

000354 

RG 

#5-97 

SOFDB 

=  ****** 

GX 

*7-166 

7-180 

8-201 

SOPEN 

000530 

RG 

#7-158 

SRDATA 

000476 

RG 

#6-135 

SWDATA 

000662 

RG 

#8-200 

$$$ARG 

=  000002 

#4-73 

4-73 

#4-73 

$$$GLB 

—  ****** 

4-73 

.CSI1 

r  ****** 

G 

5-101 

5-101 

7-163 

.CSI2 

r  ****** 

G 

5-103 

5-103 

7-165 

.GET 

-  ****** 

G 

6-137 

6-137 

.OPEN 

r  ****** 

G 

5-108 

5-108 

7-182 

.PUT 

=  *«.*♦* 

G 

8-202 

8-202 

J     5 
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7-160 

♦7-162 

♦7-183 
7-163 


7-171 


7-165 


7-172 


♦7-179 


7-181 


♦7-183 


4-73 

7-163 
7-165 

7-182 


#4-73 


4-73 


4-73 
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319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330  000756 

331 

332 

333 

334  0007'^6 

335  000760 

336  000766 

337  000770 

338  000772 

339  001000 

340  001002 

341  001010 
342 

343 
344 

345  001012 

346  001016 

347  001020 

348  001022 

349  001024 

350  001030 

351  001034 

352  001042 

353  001044 

354  001052 

355  001054 

356  001056 

357  0C1062 

358  001064 

359  001070 

360  001072 

361  00107', 

362  001102 
363 

364 
365 

366  001104 

367  001112 

368  001114 

369  001122 

370  001124 

371  001126 

372  001130 

373  001134 

374  001140 

375  001144 


010605 
022767 
001411 
005005 
032767 
001507 
032767 
001103 


012702 
010203 
011202 
001473 
012701 
012704 
122762 
001365 
022767 
001407 
060204 
022467 
001355 
021467 
001352 
005205 
032767 
001030 


032767 
001341 
026227 
001735 
011213 
001002 
010367 
012700 
004767 
010302 


.SBTTL  PURCIR  -  PURGE  CIRCUIT 

«•  PURLIN  -  PURGE  CIRCUIT 

INPUTS       SCIRID  =  CIRCUIT  ID  IN  PARSED  DATA  AREA 
SFLAGS  =  CIRCUIT  ATTRIBUTES  (SVC  OR  PVC) 
$COMP  =  COMPONENT  (CIRCUIT  OR  KNOWN  CIRCUITS) 

OUTPUTS       THE  CIRCUIT  IS  PURGED. 


PURCIR: 

CHECK  CIRCUIT  TYPE 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


MOV 
CMP 
BED 
CLR 
BIT 
BEQ 
BIT 
SNE 


SP,R5 

#CO.KNC,$COMP 

10$ 

R5 

#FL.X25, SFLAGS 

101$ 

#FL.DLM, SFLAGS 

101$ 


OOOOOOG 


LOOK  FOR  CIRCUIT  DESCRIPTOR 


OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  30$: 


OOOOOOG 
000002G 

OOOOOOG  OOOOOOG 


10$:    MOV  #$TMLST,R2 

20$:    MOV  R2,R3 

MOV  (R2),R2 

BEQ  70$ 

MOV  #P$VLEN,R1 

MOV  #P$VNAM,R4      , 

CMP8  #CS.PVC,C.STS(R2) 

BNE  20$ 

CMP  #CO.KNC,$COMP 

BEQ  40$ 

ADD  R2,R4 

CMP  (R4)+, SCIRID 

BNE  20$ 

CMP  (R4),$CIRIDt2 

BNE  20$ 

40$:    INC  R5 

BIT  #0C.CTM,S0PRND 

BNE  50$ 


ASSUME  WILDCARD 

KNOWN  CIRCUITS  ? 

BR  IF  YES 

ELSE  NOTHING  FOUND  YET 

IS  THIS  AN  X25  CIRCUIT 

BR  IF  WRONG  TYPE  OF  CIRCUIT 

CHECK  FOR  ILLEGAL  CIRCUIT  TYPES 

BR  IF  ERRORS 


POINT  TO  LISTHEAD 
SAVE  PREVIOUS  ADDRESS 
NEXT  TEMPLATE 
IF  EQ,  END  OF  LIST 
LENGTH  FOR  PVC 
OFFSET  OF  NAME 
;  PVC  ? 
IF  NE,  KEEP  ON  LOOKING 
WILDCARD  ? 
BR  IF  YES 
POINT  TO  NAME 
CHECK  CIRCUIT  ID 
IF  NE  WRONG  CIRCUIT 


BR  IF  WRONG  ONE 
REMEMBER  FOUND 
PURGE  COUNTER  TIMER? 
IF  NE,  YES 


OOOOOOG  OOOOOOG 
OOOOOOG  015355 


RETURN  CIRCUIT  BLOCK  TO' FREE  LIST 


000002G 
OOOOOOG 
OOOOOOG 


45$: 


BIT  #FL.DLM,$FLAGS  ; 

BNE  20$ 

CMP  P$V0WN(R2>,**RDLM 

BEQ  20$ 

MOV  (R2),(R3) 

BNE  45$ 

MOV  R3,$TMLSTt2 

MOV  #$XXAVL,RO 

CALL  SRLBF 

MOV  R3,R2 


DLM  CIRCUIT  ? 

IF  NE,  YES  -  THIS  ONE  DOESN'T  GET  PURGED 

;  DLM  PVC  ? 

IF  EQ,  NOT  THIS  ONE 

CLOSE  UP  LIST 

IF  NE,  NOT  LAST 

FIX  UP  LISTHEAD 

POINT  TO  FREE  LISTHEAD 

RELEASE  CORE  BLOCK 

PICK  UP  WHERE  WE  LEFT  OFF 


K  6„ 


CFEPR5  -  STATE  TABLES 

TO  PARSE 

KEYWORDS 

225  000000 

226  000000 

227  000000 

228  000000 

229  000000 

230  000000 

231  000000 

232  000000 

233  000000 

234  000000 

235  000000 

236  000000 

237  000000 

238  000000 

239  000000 

2A0  000000 

2A1  000000 

242  000000 

243  000000 

244  000000 

245  000000 

246  000000 

247  000000 

248  000000 

249  000000 

250  000000 

251 

252 

253 

254  000000 

255  000000 

256  000000 

257  000000 

258  000000 

259  000000 

260  000000 

261  000000 

262  000000 

263  000000 

264  000000 

265  000000 

266  000000 

267  000000 

268  000000 

269  000000 

270  000000 

271  000000 

272  000000 

273  000000 

274  000000 

275  000000 

276  000000 

277  000000 

278  000000 

279  000000 

280 

281 
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KEYUDS 

"TYPE", 

KSTYP 

KEYWDS 

"UBE", 

KSUBE 

KEYWDS 

"U8F", 

KSUBF 

KEYWDS 

"U8H", 

KSU8H 

KEYWDS 

"UBJ", 

KSU8J 

KEYWDS 

"UBK", 

KSUBK 

KEYWDS 

"USL", 

KSUBL 

KEYUDS 

"UBM", 

KSUBM 

KEYWDS 

"U8N", 

KSUBN 

KEYWDS 

"UBP", 

KSUBP 

KEYWDS 

"UBR", 

KSU8R 

KEYWDS 

"U8S", 

KSUBS 

KEYWDS 

"UBT", 

KSUBT 

KEYWDS 

"unit''. 

KSUNT 

KEYWDS 

"URM", 

KSURM 

KEYWDS 

"USAGE" 

KSUSG 

KEYWDS 

"USER", 

KSUSE 

KEYWDS 

"value'' 

KSVAL 

KEYWDS 

"VECTOR 

KSVEC 

KEYWDS 

"VERIFICATION", 

KSVER 

KEYWDS 

"VERSION", 

KSVRSN 

KEYWDS 

'\JINDOW 

' 

KSWIN 

KEYWDS 

"X25", 

KSX25 

KEYWDS 

"X29", 

KSX29 

KEYWDS 

"III", 

KS3 

KEYWDS 

"IV", 

KS4 

;•  SERVICE  DEVICE 

TYPES 

KEYWDS 

"DP", 

"una''. 

KSXDP 

KEYWDS 

KSXUNA 

KEYWDS 

"DU", 

"cna''. 

KSXDU 

KEYWDS 

KSXCNA 

KEYWDS 

"DL", 

KSXDL 

KEYWDS 

"QNA  ', 

KSXQNA 

KEYWDS 

"DQ", 

KSXDQ 

KEYWDS 

"CI", 

KSXCI 

KEYWDS 

"DA", 
"PCL'', 

KSXDA 

KEYWDS 

KSXPCL 

KEYWDS 

"DUP", 

KSXDUP 

KEYWDS 

"DMC", 

KSXDMC 

KEYWDS 

"DN", 

KSXDN 

KEYWDS 

"DLV'', 

KSXDLV 

KEYWDS 

"DMP", 

KSXDMP 

KEYWDS 

"DTE", 

KSXDTE 

KEYWDS 

"DV", 

KSXDV 

KEYWDS 

"DZ", 

KSXDZ 

KEYWDS 

"KDP'', 

KSXKDP 

KEYWDS 

"KDZ", 

KSXKDZ 

KEYWDS 

"KL", 

KSXKL 

KEYWDS 

"DMV  , 

KSXDMV 

KEYUDS 

"DPV", 

KSXDPV 

KEYWDS 

"DMF", 

KSXDMF 

KEYWDS 

"DMR", 

KSXDMR 

KEYWDS 

"KMY", 

KSXKMY 

.SBTTL   COMMANDS 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  NODE  COMMAND 

872  000000 

873 

87^ 

875 

876  000000 

877  000000 

878  000000 

879  000000 

880  000000 

881  000000 

882  000000 
883 
884 
885 

886  000000 

887  000000 

888  000000 

889  000000 

890  000000 

891  000000 

892  000000 
893 
894 
895 

896  000000 

897  000000 

898  000000 

899  000000 

900  000000 

901  000000 

902  000000 

903  000000 

904  000000 

905  000000 
906 
907 
908 

909  000000 

910  000000 
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911  000000 

912  000000 

913  000000 

914  000000 

915  000000 

916  000000 
917 

918  000000 

919  000000 

920  000000 

921  000000 

922  000000 

923  000000 

924  000000 
925 

926 
927 
928 


TRANS  SLAMDA,  SFAIL, 
Dump  address 

STATES  RNDPA 

TRANS  BKSDMP 

STATES  .gPSDMPO 

TRANS  8K$ADD 

STATES  .SPSDADR 

TRANS  SNUMBR,  SEX  IT 


SCLERR,  ERRIPV,  SERROR 


.RNDPA 


TRANS  SLAMDA,  SFAIL,  SCLERR,  ERRILN,  SERROR 


Dump  Count 

STATES  RNDCT 

TRANS  SKSDMP 

STATES  .SPSDMPO 

TRANS  KKSCOUN 

STATES  ,&PSDMPC 

TRANS  SNUMBR,  SEXIT, 

TRANS  SLAMDA,  SFAIL, 

[Service]  circuit 


.RNDCT 

SCLERR,  ERRILN,  SERROR 


STATES  RNSCI 

TRANS  SKSCIR,  RNSCI2 

TRANS  &KSSER 

STATES  ,8PSSER0 

TRANS  8KSCIR 

STATES  RNSCJ2,  8PSSERC 

TRANS  SLAMDA, ,,1,SCIRCT 
STATES 

TRANS  ILINCIR,       SEXIT, 

TRANS  SLAMDA,  SFAIL 

Hardware  [address] 


STATES  RNHAR 

TRANS  &KSHRD 
STATES 

TRANS  8K$ADD,RNHAR2 

TRANS  SLAMDA 

STATES  RNHAR2,&PSHADR 

TRANS  !HRDSTR, SEXIT, 

TRANS  SLAMDA,  SFAIL, 


.RNSCI 


STATES  HRDSTR 

TRANS  SLAMDA,, 

STATES  HRDST2 

TRANS  SALPHA,  HRDST2 

TRANS  SDTGJT,  HRDST2 

TRANS  <•->,   HRDST2 

TRANS  SLAMDA,  SEXIT, 


[Ser-jiceJ  password 


.RNHAR 

SCLERR,  ERRILN,  SERROR 


S8L.MAN 


SBL.AUT 
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CFEPRS  - 

STATE  TABLES  TO  PA 

SUB-EXPRESSIONS  FOR  CIRCUIT 

1550 

000000 

1551 

1552 

000000 

1555 

000000 

1554 

000000 

1555 

1556 

000000 

1557 

000000 

1558 

000000 

1559 

1560 

000000 

1561 

000000 

1562 

000000 

1563 

1564 

000000 

1565 

000000 

1566 

000000 

1567 

000000 

1568 

1569 

000000 

1570 

000000 

1571 

000000 

1572 

1573 

1574 

1575 

1576 

000000 

1577 

000000 

1578 

1579 

000000 

1580 

000000 

1581 

1582 

1583 

1584 

OOOGOO 

1585 

000000 

1586 

1587 

000000 

1588 

000000 
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TRANS 

<•♦>,, ,WC.CNT,SWILD 

STATES 
TRANS 
TRANS 

LIN1 

<'->,LIN2 

$LAMDA,LIN3,.XUNT 

STATES 
TRANS 
TRANS 

LIN2 

SDNUMB,LIN3,.LIUNT 
<'♦>,, ,WC.UNT,SWILD 

STATES 
TRANS 
TRANS 

LIN3 

'.,LIN4 

SLAMDA,SEXIT,.LIEND 

STATES 
TRANS 

STATES 
TRANS 

LIN4 
ILIN5,,,FL.TRI,SFLA6S 

SLAMDA,SEXIT,.LIEND 

STATES 
TRANS 
TRANS 

LIN5 

SDNUMB,SEXIT,.LISTA 

<'*>,SEXIT,,WC.TRI,SWILD 

;  LOOK  FOR  "KNOWN  LINES" 

STATES 
TRANS 

KNLIN 
SKSKNO 

STATES  ,8PSPEN 

TRANS  SKSLINS,SEXIT,,WC.LIN,SUILD 

LOOK  FOR  "KNOWN  CIRCUITS" 

STATES  KNCIfi 

TRANS  8KSKN0 

STATES  .SPSPEN 

TRANS  8KSCIRS,SEXIT,,WC.CIR,SWILD 


K  9 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  MODULE  COMMAND 

2194 

2195  000000 

2196  000000 

2197  000000 

2198  000000 

2199  000000 

2200  000000 

2201  000000 

2202  000000 

2203  000000 
220A  000000 

2205  000000 

2206  000000 

2207  000000 

2208  000000 

2209  000000 

2210  000000 

2211  000000 
2212 
2213 
22U 

2215  000000 

2216  000000 

2217  000000 

2218  000000 

2219  000000 
2220 

2221  000000 

2222  000000 

2223  000000 
222'i  000000 

2225  000000 

2226  000000 

2227  000000 

2228  000000 

2229  000000 

2230  000000 

2231  000000 

2232  000000 

2233  000000 
223A 
2235 
2236 

2237  000000 

2238  000000 

2239  000000 

2240  000000 

2241  000000 

2242  000000 

2243  000000 

2244  000000 
2245 

2246  000000 

2247  000000 

2248  000000 

2249  000000 

2250  000000 
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STATES 

DSTLIS 

TRANS 

!DST, 

DSTLSl, 

XS.DST, 

SOPRND 

TRANS 

IKNDS,, 

XS.KND, 

SOPRND 

STATES 

DSTLSl, 

8PSDST0 

TRANS 

SLAMDA 

STATES 

0STLS2 

TRANS 

IDSTLSO 

,DSTLS2 

TRANS 

SLAMDA, 

SEXIT 

STATES 

DSTLSO 

TRANS 

ICLM, 

SEXIT,, 

XS.CLM, 

SOPRND 

TRANS 

ICLV, 

SEXIT,, 

XS.CLV, 

SOPRND 

TRANS 

ICUG, 

SEXIT,, 

XS.CUG, 

SOPRND 

TRANS 

IDNUM, 

SEXIT,, 

XS.DTE, 

SOPRND 

TRANS 

lOBJN, 

SEXIT,, 

XS.OBJ, 

SOPRND 

TRANS 

lOBJI, 

SEXIT,, 

XS.OBI, 

SOPRND 

TRANS 

IDPfil, 

SEXIT,, 

XS.PRI, 

SOPRND 

TRANS 

IDSU8, 

SEXIT,, 

XS.SUB, 

SOPRND 

•  DEFINE  MODULE 

X25-PROTOCOL  CHARACTERISTICS  OF 

STATES 

DXPRCH, 
1DXPRC2 

SPSXPRC 

TRANS 

STATES 

DXPRC1 

TRANS 

SEOS, 

SEXIT 

TRANS 

IDXPRC2 

,DXPRC1 

STATES 

DXPRC2 

TRANS 

ICTM, 

SEXIT,, 

XP.CTM, 

SOPRND 

TRANS 

ICLT, 

SEXIT,, 

XP.CLT, 

SOPRND 

TRANS 

IDFB, 

SEXIT,, 

XP.DFB, 

SOPRND 

TRANS 

IDFW, 

SEXIT,, 

XP.DFU, 

SOPRND 

TRANS 

IMMDA, 

SEXIT,, 

XP.MXB, 

SOPRND 

TRANS 

IMWI, 

SEXIT,, 

XP.MXW, 

SOPRND 

TRANS 

IMXC, 

SEXIT,, 

XP.MXC, 

SOPRND 

TRANS 

IMRE, 

SEXIT,, 

XP.MRE, 

SOPRND 

TRANS 

IRET, 

SEXIT,, 

XP.RET, 

SOPRND 

TRANS 

IHXR, 

SEXIT,, 

XP.MXR, 

SOPRND 

TRANS 

IRST, 

SEXIT,, 

XP.RST, 

SOPRND 

TRANS 

INNAM, 

SEXIT,, 

XP.NNA, 

SOPRND 

•  X25-PR0T0C0L 

DTE  PARAMETERS 

STATES 

DXPDDT, 

8PSXPRC 

TRANS 

!KND, 

DXPDDO, 

,XP.KND, 

SOPRND 

TRANS 

IDTE, 

,XP.DTE, 

SOPRND 

STATES 

DXPDDO, 

&PSDTE6 

TRANS 

!DXPDdJ 

STATES 

DXPDD1 

TRANS 

SEOS, 

SEXIT 

TRANS 

!DXPDD2 

,DXPDD1 

STATES 

DXPDD2 

TRANS 

ICT, 

SEXIT,, 

XP.COU, 

SSWICH 

TRANS 

ILINID, 

SEXIT,, 

XP.LIN, 

SSWICH 

TRANS 

IMCIRD, 

SEXIT,, 

XP.MCI, 

SSWICH 

TRANS 

IDSTA, 

SEXIT,, 

XP.STA 

SSWICH 

K  10 
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$ALPHA= 
SANY  = 
IBAUD  = 
$BLANI<;  = 
$BL.AU= 
$BL.A3= 
$BL.MA= 
$BL.MN= 
$CIRCT= 
$CLERR= 
$CMAND= 
$COMP  = 
SDIGIT= 
$DNUMB= 
$EOS  = 
$ERRaR= 
$EXIT  = 
$FAIL  = 
$FLAGS= 
SGOFF  = 
SGPRH  = 
SINFO  = 
$LAMDA= 
$NUMBR= 
$OPRND= 
$0PRN2= 
$PRGCL= 
$RAD50= 
$RNDIA= 
$RNDMP= 
$RNLOD= 
$RN5L0= 
$RNTLO= 
$RONLY= 

.  ABS. 

SSTATE 
SKTAB 
SKSTR 
SPRMPT 


000022 
000020 

****** 

000006 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

00002A 
OOOOU 
000012 

****** 

000000 
177777 

****** 

000001 
000001 
****** 

000000 
000002 

****** 
****** 
****** 

000016 

****** 
****** 
****** 
****** 

****** 

000001 

000000 
000000 
015062 
000572 
002307 
000000 


GX 


GX 


GX 


GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 


Errors  detected: 


000 
001 
002 
003 
OOA 
005 
0 


$SNDEF= 
$SNL1S= 
$SNPUR= 
$STRNG= 
$SUBXP= 
$SWICH= 
$URM  = 
SVLVL  = 
SWILD  = 
$$$FLG= 
$$$KEY= 
$$$LEN= 
$$$STA= 
$$$TMP= 
.BL.AU= 
.CIACT= 
.CICHN= 
.CIC0S= 
.CICT  = 
.CIOTE= 
.CIHTM= 
.CIMBL= 
.CIMRC= 
.C1MXR= 
.CIR1D= 
.CIRI1= 
.CIRPR= 
.CIRTH= 
.CITRI= 
.CKDLM= 
.EAC0S= 
.EAHOP= 
.EAMAX= 
.EXADD= 


****** 
****** 
****** 
OOOOOA 
000010 
****** 
****** 
****** 
****** 

Miyn 

000274 
000006 
000000 
002303R 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RO,D,LCL,REL,CON) 
(R0,D,LCL,REL,C0N) 
(RO,D,LCL,REL,CQN) 
(RO,D,LCL,REL,CON) 


•»»  Assembler  statistics 


Work  tile  reads:  0 

Work   file  writes:  0 

Size  of  work  tile:  10744  Words 

Size  of  core  pool:  14440  Words 

Operating  system:  RSX-11M/PLUS 


004 


(  42  Pages) 
t   55  Pages) 


.EXBEA= 

****** 

GX 

.EXBRT= 

****** 

GX 

.EXCOS= 

****** 

GX 

.EXHOP= 

****** 

GX 

.EXH0S= 

****** 

GX 

.EXH01= 

****** 

GX 

.EXJD  = 

****** 

GX 

.EXID1= 

****** 

GX 

.EXINA= 

****** 

GX 

.EXINT= 

****** 

GX 

.EXLNK= 

****** 

GX 

.EXNAM= 

****** 

GX 

.EXNC  = 

****** 

GX 

.EXNN  = 

****** 

GX 

.EXOUT= 

****** 

GX 

.EXRET= 

****** 

GX 

.EXRTIV|= 

****** 

GX 

.EXSB2= 

»♦*♦** 

GX 

.EXSEG^ 

****** 

GX 

.EXSUB= 

****** 

GX 

.HLPAC= 

****** 

GX 

.L1CNT= 

****** 

GX 

.LICSR= 

****** 

GX 

.LICTM=: 

****** 

GX 

.LJDEA= 

****** 

GX 

.LIEND= 

****** 

GX 

.LJHBT= 

****** 

GX 

.LIMW]= 

****** 

GX 

.LINAM= 

****** 

GX 

.L1PRI= 

****** 

GX 

.LIRTC= 

****** 

GX 

.LIRTT= 

****** 

GX 

.LISEC= 

****** 

GX 

.LISPD= 

****** 

GX 

LISTA= 

****** 

GX 

LIUNT= 

****** 

GX 

LIVEC= 

****** 

GX 

LIX25= 

«**•*♦ 

«X 

M0CAT= 

****** 

GX 

M0CLM= 

****** 

GX 

M0CLT= 

****** 

GX 

MOCLV= 

****** 

GX 

MOCNN= 

****** 

GX 

MOCRN= 

****** 

GX 

M0CUG= 

****** 

GX 

M0DFD= 

****** 

GX 

MODFW= 

****** 

GX 

|V|0DST= 

****** 

GX 

M0DS1= 

****** 

GX 

M0DS2= 

****** 

GX 

M0JNC= 

****** 

GX 

MOMCI= 

****** 

GX 

MOMCL= 

****** 

GX 

M0MC1= 

****** 

fix 

HOMDA= 

****** 

GX 

H0MRE= 

****** 

GX 

|V|0MXR= 

****** 

GX 

MONNA= 

****** 

GX 

M0NUM= 

****** 

GX 

H00BJ= 

****** 

GX 

M00BN= 

****** 

GX 

MOPRI= 

****** 

GX 

MORET= 

****** 

GX 

MORST= 

****** 

GX 

NONAM= 

****** 

GX 

0BC0P= 

****** 

GX 

08NAM= 

****** 

GX 

OBNUM= 

****** 

GX 

PRMWI= 

****** 

GX 

PRNAM= 

****** 

GX 

PRNCT= 

****** 

GX 

PRNLr= 

****** 

GX 

RNADD= 

****** 

GX 

RNAD2= 

****** 

GX 

RNAD3= 

****** 

GX 

RNCHK= 

****** 

GX 

RNCLF= 

****** 

GX 

RNDCT= 

****** 

GX 

RNDPA= 

****** 

GX 

RNFSP= 

****** 

GX 

RNHAR= 

****** 

GX 

RNHNA= 

****** 

GX 

RNHOS= 

****** 

GX 

RNH01= 

****** 

GX 

RNH02= 

****** 

GX 

RNINI= 

****** 

GX 

RNIN2= 

****** 

GX 

RNNAM= 

****** 

GX 

RNSCJ= 

****** 

GX 

RNSDV= 

****** 

GX 

RNSPA= 

****** 

GX 

SYBYT= 

****** 

GX 

SYCBN= 

****** 

GX 

SYPAR= 

****** 

GX 

SYPOL= 

****** 

GX 

SYRBN= 

****** 

GX 

SYRBS= 

****** 

GX 

SYSBN= 

****** 

GX 

SYTHR= 

****** 

GX 

XUNT  = 

****** 

GX 

SYfcFEPRs!vl![?32J^4]CFEPRS/CR/-SP=Sy:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,C132,10]CFEPRS 
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CFEROT  -  ROOT  SEGMENT 

FOR  CFE 

MACRO  V05.03b 

Saturday 

Symbol  table 

ERRCON=  «♦••••  GX 

f.DSPT= 

000044 

F.RACC= 

88821^ 

EX$ERR=  000002 

F.DVNM= 

000134 

F.RATT= 

000001 

EX$SEV=  OOOOOA 

F.EFBK= 

000010 

F.RCNM= 

000034 

EXtSUC=  000001 

F.EFN  = 

000050 

F.RCTL= 

000017 

EXtWAR=  000000 

F.EOBB= 

000032 

F.RSIZ= 

000002 

FX.01R=  000004 

F.ERR  = 

000052 

F.RTYP= 

000000 

FX.DLN=  000003 

F.EXT  = 

000072 

F.SEQN= 

000100 

FX.DMX=  000002 

F.FACC= 

000043 

F.SPDV= 

000072 

FX.LEN=  000000 

F.FFBY= 

000014 

F.SPUN= 

000074 

F.ACTL=  000076 

F.FLG  = 

000074 

F.ST8K= 

°9.9.9l§ 

F.ALOC=  OOOOAO 

F.FNAM= 

000110 

F.UN]T= 

000136 

F.BBFS=  0"0062 

F.FNB  = 

000102 

F.URBD= 

000020 

F.BDB  =  000070 

F.FTYP= 

000116 

F.VBN  = 

000064 

F.BGBC=  000057 

F.FVER= 

000120 

F.VBSZ= 

000060 

F.BKDN=  000026 

F.HIBK= 

000004 

loss 

000030R 

F.BKDS=  000020 

F.LUN  = 

000042 

I0.WAT= 

**»»**  GX 

F.B<EF=  000050 

F.MBCT= 

000054 

N.ANM1= 

000002 

F.BI!;P1=  000051 

F.MBC1= 

000055 

N.ANM2= 

0252?^ 

F.BKST=  000024 

F.MBFG^ 

000056 

N.DID  = 

000024 

F.BKVB=  000064 

F.NRBD= 

000024 

N.DVNM= 

000032 

F.CHR  =  000075 

F.NREC= 

000030 

N.FID  = 

000000 

F.CNTG=  000034 

F.OVBS= 

000030 

N.FNAM= 

000006 

F.DFNB=  000046 

.  ABS.  000000 

000 

(RW,I,GBL,ABS,OVR) 

000232 

001 

(RU,I,LCL,REL,C0N) 

Errors  cietected: 

0 

**♦  Assembler  statistics 
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N.FTYP= 
N.FVER= 
N.NEXT= 
N.STAT= 
N.UNIT= 
PAR$$$= 
Q.IOAE= 
Q.10EF= 
Q.IOFN= 
Q.IOLU= 
Q.IOPL= 
Q.IOPR= 
Q.IOSB= 
SU.PUR= 
S.ANM1= 
S.ANM2= 
S.FATT= 
S.FDB  = 
S.FNAM= 
S.FNB  = 
S.FNBU= 
S.FNTY= 


000014 

000016 

000022 

000020 

000034 

000027 

000012 

000006 

000002 

000004 

000014 

000007 

000010 

»****«  GX 

000014 

000005 

000016 

000140 

000006 

000036 

000017 

000004 


Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  9848  Words   (  39  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SY: CFEROT !v2i[132?134]CFER0T/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[1 30, 1103NETL IB/ML, [1 32, 10JCFER0T 


S.FTYP= 

S.NFEN= 

WATDPB 

$CFC0M= 

SCFDSP^ 

$CFE 

$CFERR= 

$CFINI= 

$CFUPD= 

$Exsrs= 

$FIATR= 

$FIN 

$IFDB  = 

$0FDB  = 

$SWICH= 

$$$ARG= 

$$$OST= 

.CLOSE= 

.CONER 

.DELET= 

.EXIT 

...TPC= 


000002 
000020 
OOOOOOR 
**♦♦*•  GX 
»*«*»♦  GX 
000034RG 
**»**«  GX 
»♦*♦«*  GX 
«♦*»♦*  GX 
*♦«***  GX 
*♦*««*  GX 
000056RG 
***»«*  GX 
**«♦*♦  GX 
»***»*  GX 
000002 
000005 
******  G 

000162RG 

4«t*t*  G 

000172RG 
000006 
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MACRO  NAME 

D1R$ 

EXTK$S 

MOV$ 

RESRG 

SAVRG 


REFERENCES 

#5-95 
/KA-SO 
#5-95 
#4-50 
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5-95 

5-95 

5-95 

5-103 
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CFESUB  -  COMMON  SUBROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 

Table  ot  contents 


i   1* 

05;H 


7- 

K7 

8- 

UH 

K- 

]N 

9- 

?]9 

TO- 

?',h 

10- 

■?'.l 

11- 

?/S 

11- 

■?/h 

V- 

^^H 

}?- 

^^4 

V- 

«() 

H- 

A^S 

u- 

468 

IS- 

S^O 

16- 

!)60 

SPRINT  -  PRINT  ASCIZ  STRING 

SCFERR  -  SET  UP  EXIT  STATUS  AND  PRINT  ASCIZ  ERROR  MESSAGE 

SCFERI  -  PRINT  ASCIZ  STRING  ON  ERROR  LUN 

SMVASC  -  MOVE  ASCII  STRING 

SQINS  -  INSERT  ENTRY  AT  END  OF  QUEUE 

SQINSN  -  INSERT  ENTRY  INTO  MIDDLE  OF  QUEUE  ,, 

$C5TA  -  CONVERT  EXTENDED  RAD50  TO  ASCII  (  '»  ) 

$C5TA1-  CONVERT  EXTENDED  RAD50  TO  ASCII  (  -  ) 

SCATS  -  ASCII  TO  RAD50  CONVERSION  ,  ,, 

.CATS  -  ASCII  TO  EXTENDED  RAD50  CONVERSION  ("♦") 

.CAT5E-  ASCII  TO  EXTENDED  RAD50  CONVERSION  (  '-  ) 

SFNPRO  -  FIND  A  PROCESS  IN  THE  TEMPLATES 

SfNSlT  -  FIND  AN  SLT  TEMPLATE 

SFNSTA  -  FIND  AN  STATION  TEMPLATE 

SUPBLK  -  UPDATE  POOL  BLOCK  ALLOCATION 


CFESUB  - 

COMMON 

SUBROUTINES    MACRO  V05.O3b  S 

tFNPRO  - 

HND  A 

PROCESS 

IN  THE  TEMPLATES 

A35 

A36 

+ 

1,17 

***f  - 

438 

A  39 

INPUT 

440 

441 

442 

443 

OUTPU 

444 

445 

446 

447 
448 
449 

- 

000634 

SFNPRO: 

450 

000634 

011000 

10$: 

451 

000636 

000261 

452 
453 
454 

000640 

001431 

000642 

122760 

OOOOOOG  OOOOOOG 

455 

000650 

001410 

456 

000652 

122760 

OOOOOOG  OOOOOOG 

457 

00U660 

001404 

458 

000662 

122760 

OOOOOOG  OOOOOOG 

459 

000670 

001361 

460 

000672 

032767 

OOOOOOG  OOOOOOG  12$: 

461 

000700 

001004 

462 

000702 

026760 

OOOOOOG  OOOOOOG 

463 

000710 

001351 

464 

000712 

105067 

OOOOOOG        15$: 

465 

000716 

156067 

000002G  OOOOOOG 

466 

000724 

000207 

20$: 

05:14 
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.SBTTL   $FNPRO  -  FIND  A  PROCESS  IN  THE  TEMPLATES 
$FNPRO  -  FIND  A  PROCESS  IN  THE  TEMPLATES 


SPRNAM  :  THE  PROCESS  NAME  IN  RAD50 
RO  ^  POINTER  TO  CURRENT  TEMPLATE 


C-BIT  =  SUCCESS/FAILURE 
RO  =  ADDRESS  OF  TEMPLATE 


MOV 

(RO),RO 

GET  NEXT  TEMPLATE 

SEC 

ASSUME  FAILURE 

BEQ 

20$ 

IF  EQ,  END  OF  LIST 

CMPB 

#CS.LLC,C.STS(RO) 

IS  THIS  A  PROCESS  TEMPLATE? 

BEQ 

12$ 

BR  IF  VES 

CMPB 

*CS.DLC,C.STS(RO) 

.  •  • 

BEQ 

12$ 

BR  IF  YES 

CMPB 

#CS.DDM,C.STS(RO) 

BNE 

10$ 

BR  IF  NO  ..  KEEP  LOOKING 

BIT 

#UC.NAM,$W1LD 

ALL  PROCESSES  ? 

BNE 

15$ 

IF  NE,  YES 

CMP 

$PRNAM,C.PRM(RO) 

IS  THIS  THE  RIGHT  PROCESS  ? 

BNE 

10$ 

IF  NE,  NO  ..  KEEP  LOOKING 

CLR8 

$FLAGS 

CLEAR  PROCESS  FLAGS  (CLEARS 

BIS8 

C.PRM+2(R0),$FLAGS 

GET  FLAGS 

RETURN 

C-8IT) 


I, AC   A7k   C  -,  ♦■ 


K  15 


J  16 

CFESUB  CREATED  BY  MACRO     ON  J9-JUN-85  AT   05:1^           PAGf   5 

SYHBOL  CROSS  REFERENCE  CREf       04.00 

SYMBOL  VALUE  REFERENCES 

tWlLD  =   ••••••     GX  13-'.60           T4-'.94           U-506           14-51?           U-520           15-551 

.CATS  000432  RG  »12-366 

.CAT5E  000422  RG  #12-563 

.FNSLT  000726  RG  #14-483 
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CFEIMP  -  SYMBOL   DEFINITIONS   AND  MACRO  V05.03b  Saturday  29-Jun-85  04:55 
DEFINE    TEMPLATES   GLOBALLY 


Page  11-5 


977 

978 

979 

000020 

980 

000040 

981 

982 

000001 

983 

000002 

984 

000004 

985 

000010 

986 

987 

000020 

988 

000040 

989 

000100 

990 

000200 

991 

000400 

'^•■'2 

001000 

993 

002000 

994 

004000 

995 

996 

997 

998 

000001 

999 

000002 

1000 

000004 

1001 

1002 

1003 

1004 

000001 

1005 

000002 

1006 

000004 

1007 

000010 

1008 

1009 

000020 

1010 

000040 

1011 

000100 

1012 

000200 

1013 

000400 

1014 

001000 

1015 

002000 

1016 

004000 

1017 

1018 

1019 

1020 

1021 

000001 

1022 

000002 

1023 

000004 

1024 

000010 

1025 

000020 

1026 

000040 

1027 

000100 

1028 

000200 

102? 

000400 

1030 

001000 

1031 

002000 

1032 

004000 

;  MODULE  OPTIONS  -  X25  SERVER 

XS.STA 

==  XP.STA 

STATE   (SSWICH) 

XS.ST1 

==  XP.ST1 

STATE  =  (SSWICH) 

XS.DST 

==  1 

DESTINATION 

XS.KND 

==  2 

KNOWN  DESTINATIONS 

XS.CTM 

==  4 

COUNTER  TIMER 

XS.MXC 

==  10 

MAXIMUM  CIRCUITS 

XS.CLM 

==  20 

CALL  MASK 

XS.CLV 

==  40 

CALL  VALUE 

XS.CUG 

==  100 

GROUP 

XS.DTE 

==  200 

NUMBER 

XS.OBJ 

==  400 

OBJECT  NUMBER 

XS.OBI 

==  1000 

OBJECl  ID 

XS.PRI 

=^  2000 

PRIORITY 

XS.SU8 

==  4000 

SU6ADDRESS  RANGE 

■  MODULE  OPTIONS  -  X2J-ACCESS 

XA.DST 

==  XS.DST 

DESTINATIOrj 

XA.KND 

==  XS.KND 

KNOWN  DESTINATIONS 

XA.NUM 

==  2*XA.ICND 

NUMBER 

;  MODULE  OPTIONS  -  X29  SERVER 

X9.DST 

==  XS.DST 

DESTINATION 

X9.KND 

==  XS.KND 

KNOWN  DESTINATIONS 

X9.CTM 

==  XS.CTM 

COUNTER  TIMER 

X9.MXC 

==  XS.MXC 

MAXIMUM  CIRCUITS 

X9.CLM 

==  XS.CLM 

CALL  MASK 

X9.CLV 

==  XS.CLV 

CALL  VALUE 

X9.CUG 

==  XS.CUG 

GROUP 

X9.DTE 

==  XS.DTE 

NUMBER 

x9.oej 

==  XS.OBJ 

OBJECT  NUMBER 

X9.0BI 

==  XS.OBI 

OBJECT  ID 

X9.PRI 

==  XS.PRI 

PRIORITY 

X9.SUB 

==  XS.SUB 

SUBADDRESS  RANGE 

•  MODULE  SNA-PROTOCOL  OPTIONS 

SP.ACC 

==  000001 

■  ACCESS  NAME 

SP.KNA 

==  000002 

•  KNOWN  ACCESS  NAMES 

SP.CIR 

==  000004 

•  CIRCUIT 

SP.SLU 

^=  000010 

•  SLU  ADDRESS 

SP.PLU 

=  000020 

•  PLU  ADDRESS 

SP.MOD 

==  000040 

;  MODE  TABLE 

SP.UID 

==  000100 

;  IBM  USER 

SP.PSW 

==  000200 

;  IBM  PASSWORD 

SP.SPU 

==  000400 

;  PU 

SP.KPU 

==  001000 

;  KNOWN  PUS 

SP.MlU 

==  002000 

;  MAXIMUM  LU 

SP.XID 

==  004000 

;  LINK  ID 

I     1 


FEIMP     CREATED  BY  MACRO  ON  29-JUN-85  AT  04:56 
SYMBOL  CROSS  REFERENCE 


K  2 

PAGE  4 

CREf   04.00 


SYMBOL  VALUE 


ERRPRC 
ERRSYN 
EXSERR 

EXSSEV 

EXSSUC 

EXSWAR 

E2.BEA 

E2.BRT 

E2.INA 

E2.1NC 

E2.NSP 

E2.0UT 

E2.RET 

E2.R0U 

E2.SEG 

FD.CR 

FL.ADD 

FL.CRE 

FL.DDM 

FL.DLC 

FL.DLM 

FL.KMX 

FL.LLC 

FL.LMC 

FL.MFL 

FL.MTP 

FL.MUX 

FL.NAM 

FL.PVC 

FL.SLV 

FL.SNA 

FL.TIM 

FL.TRB 

FL.TRI 

FL.X25 

FO.UPD 

FO.WRT 

F.DFNB 

F.DSPT 

F.FACC 

F.LUN 

F.NRBD 

F.RATT 

F.RTYP 

F.URBD 

G.MCRB 

INSCHA 

INSCOU 

INSEVE 

INSSTA 

INSSiJM 


002400  RG 
002054  RG 
000002 


000004 

000001 

000000 

000002 

000001 

000010 

000020 

000174 

000040 

000100 

000003 

000004 

****** 

002000 

001000 

000001 

000002 

000200 

000020 

000004 

000100 

000010 

000400 

000040 

004000 

:  004000 

:  001000 

:  040000 

:   000200 

:   020000 

^  010000 

:  002000 


****** 

000046 
000044 
000043 
000042 
000024 
000001 
000000 
000020 
000002 
000004 
000006 
000010 
000002 

ooooco 


G 

G 

G 

G 

G 

G 

G 

G 

G 

GX 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

G 

GX 

GX 


REFERENCES 

*13-1222 
#15-1214 
#13-1212 

13-1226 
#13-1213 
#13-1211 
#13-1210 
#11-860 
#11-859 
#11-862 
#11-863 
#11-869 
#11-864 
#11-865 
#11-873 
#11-861 

6-105 
#10-684 
#10-682 
#10-671 
#10-672 
#10-679 
#10-675 
#10-673 
#10-677 
#10-674 
#10-680 
#10-676 
#10-686 
#10-685 
#10-681 
#10-689 
#10-678 
#10-688 
#10-687 
#10-683 

6-113 

6-106 

6-95 

6-95 

6-106 

6-95 

6-100 

6-105 

6-105 

6-95 

6-95 
#7-151 
#7-152 
#7-153 
#7-150 
#7-149 


13-1214         13-1216         13-1217         13-1218 


13-1222 


13-1223    13-1224 


13-1225 


13-1215 


11-873 
11-873 
11-869 
11-869 

11-869 
11-869 

11-869 
6-111 


13-1219 


13-1220 


13-1221 


6-106 

6-113 
6-106 

6-111 
6-111 
6-95 
6-95 


6-113 


6-113 


6-95 
6-95 


6-95 


6-100 


6-112 


6-112 
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MACRO  CROSS  REFERENCE  CREF   0^.00 

MACRO  NAME      REFERENCES 

ALUNS 

BDOFFS         .._  .. 

CBYTEt         #6-95  6-95      6-95 

■  ■ '        6-1  1 1 

CS1$          ..-  .-  -  - 

CWORDS        #6-?5_  6-95^     6-95 

#6-112 
6-115     6-115 
DEF$L 

D1R$  ..-  .- 

FDATSA        #4-60      6-105     6-111 
FDBDFS        #4-60     #6-95      6-95 

FDBSZ$         #6-95      6-95  #6-104 
FDOFFS        #4-60     #6-95      6-95 

"  ""  #6-112 


#6-95 

6-95 

#6-92 

#6-95 

6-95 

6-106 

#6-111 

#6-95 

6-95 

#6-95 

6-95 

#6-105 

6-105 

6-111 

6-111 

6-115 

6-115 

#6-92 

#6-95 

#4-60 

6-105 

#4-60 

#6-95 

#6-95 

6-95 

#4-60 

#6-95 

#6-111 

6-111 

#4-60 

#6-95 

#4-60 

#6-95 

#4-60 

6-92 

#4-61 

6-95 

#6-95 

#6-95 

6-95 

#6-95 

6-95 

#6-95 

6-95 

#4-61 

5-87 

#6-95 

#6-95 

#6-95 

6-95 

#4-60 

7-127 

#6-95 

6-95 

#6-95 

6-95 

#6-95 

6-95 

#6-95 

6-95 

#6-95 
6-- 11 

6-95 
#6-112 

#6-105 
6-112 

6-105 
#6-113 

6-105 
6-113 

#6-106 
6-113 

6-106 

6-95 

6-105 

6-112 

#6-95 
#6-106 
6-112 

6-95 

6-106 

#6-113 

6-95 

6-106 

6-113 

#6-95 
6-106 
6-113 

6-95 

#6-111 

6-113 

6-95 

6-1  r 

#6-115 

6-104 
6-104 
#6-95 
6-112 
6-106 
6-112 

6-110 
#6-110 

6-95 
#6-113 

6-113 

6-110 

6-99 

6-113 

#6-105 

6-105 

#6-106 

6-106 

FDOPSA  #4-60  #6-95      6-95 

FDRCtA  #4-60  #6-95      6-95 

FSRSZS            ■"  ■  " 

GCLDFS 

GCL$ 

GMCRS  .. „  .,  _  .- 

NBOFFS  #6-95  6-95     #6-115     6-115 

NMBLKS  #6-95  6-95       6-115 

oVn^  #6-95  #6-95     #6-95     #6-95     #6-95     #7-127    #7-128 

QDPBS  #6-95  6-95     #7-127     7-127     #7-128     7-128 

QIOU$  #4-60  7-127     7-128 

010$  #6-95  6-95                                                                    ,.             ,    ,,^ 

RAD50$  #6-95  6-95               6-95             #6-115             6-115             6-115 

SETF$ 

WTSES 
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CFEL15  -  PERFORM  LIST  COMMAND 
SCFLIS  -  PROCESS  LIST  COMMAND 


95 
96 
97 
98 
99 
100 
101 
102 
103 
lOA 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
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.S8TTL  SCFLIS  -  PROCESS  LIST  COMMAND 
**♦  -  SCFLIS  -  PROCESS  LIST  COMMAND 
INPUT: 


SCOMP  =  THE  COMPONENT  CODES 


OUTPUT: 


CONTROL  IS  PASSED  TO  THE  PROPER  ROUTINE 


000152 

000152 

000160 

000166  016700  OOOOOOG 

000172  006300 

000174  004770  177776' 

000200 

000206  012767  OOOOOOG  177622 

000214 

000222  012767  OOOOOOG  177606 

000230  000207 


OOOOQi 


SCFLIS:: 


DIRS 

DIRS 

MOV 

ASL 

CALL 

DIRS 

MOV 

DIRS 

MOV 

RETURN 


.END 


#GTIM         ;  GET  CURRENT  TIME 
#TIDPB         ;  ATTACH  TO  TI: 
SCOMP, RO       ;  GET  THE  COMPONENT  CODE 
RO  ;  CONVERT  TO  A  UORD  INDEX 

aDSPTBL-2(R0)   ;  DISPATCH  TO  PROPER  ROUTINE 
#LFDPB         ;  PRINT  A  BLANK  LINE 
*IO.DET,TIDPB+Q.IOFN  ;  SET  TO  DETACH  FROM  TI: 
#Tinf-D         ;  DETACH  FROM  TI: 
#Iu.ATT,TIDPB+Q.IOFN  ;  SET  TO  ATTACH  NEXT  TIME 


L  4 


K  5 

CFEOPN     CREATED  BY  MACRO  ON  29-JUN-85  AT  04:57  PAGE  2 

MAChO  CROSS  REFERENCE  CREF   OA.OO 

MACRO  NAME  REFERENCES 

CMOVSB  #5-107  5-107     5-107    #5-108    #5-108     5-108     5-108    #5-108     5-108    #7-181 

c-«»-  -m  iiii  'm  'm  iM  m  n  m  r^   ai 

7-82  7-182    #7-182     7-182     7-182    #8-202     8-202     8-202 

CSI$  #4-62  4-69     #5-101    #5-103    #7-163    #7-165 

CSI$1  #4-62  5-101     7-163 

CSI$2  #4-62  5-103     7-165 

ERRS  It-m  5-108    #6-137     6-137    #7-182     7-182    #8-202     8-202 

FDOFFS  #4-70  4-70 

FDOPSR  #4-62  5-107    #5-108     5-108     7-181    #7-182     7-182 

FDRCSR  #5-108  5-108     #7-182     7-182 

LDFDBS  #5-107  5-107    #5-108     5-108    #5-108     5-108    #6-137     6-137    #7-181     7-181 

#7-182  7-182    #7-182     7-182    #8-202     8-202     ,   ^     ,  ,^^ 

LDROS  #5-101  5-101    #5-103     5-103    #7-163     7-163    #7-165     7-165 

NBOFFS  #4-71  4-71 

NBOFSL  #4-63  4-71 

OFF$  #4-73 

OPENS  #5-108  5-108    #7-182     7-182 

OPENSR  #4-63  5-108 

OPENSW  #4-62  7-182 

PUTJ  #4-62  8-202 

QDPBS  #4-73  4-73 

QIOW$  #4-63  4-73 
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CFEPRG  -  PERFORM  PURGE  COMMAND 
PURCIR  -  PURGE  CIRCUIT 
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376  001 K6 

377  001154 

378  001162 
379 

380 
381 

382  001164 

383  001172 

384  001174 

385  001202 

386  001204 

387  001210 
388 

389 
390 

391  001212 

392  001214 

393  001216 
394 

395 
396 

397  001220 

398  001 23C 

399  001232 

400  001242 


162767  OOOOOOC 
162767  OOOOOOC 
000715 


122762  OOOOOOG 

001406 

026227  OOOOOOG 

001402 

005062  OOOOOOG 

000702 


005705 
001406 
000207 


000207 
000207 


OOOOOOG 
OOOOOOG 


SUB 
SUB 
BR 


20$ 
PURGE  COUNTER  TIMER 


#C$LENX+X$LENX,$BYTMN 
#C$LENX+X$LENX,$BYTXT 


UPDATE  BYTE  MINIMUM 
UPDATE  BYTE  ALLOCATION 


OOOOOOG  50$: 
015355 


CMPB 

BED 

CMP 

BEQ 

CLR 

BR 


60$: 

•  END  OF  LIST  PROCESSING 

^0$: 

80$: 

;  ERRORS 

loi 


CONTINUE 


C.STS(R2)  ;  SVC? 

BR  IF  YES 

;  OLM  PVC  ? 

IF  EQ,  NOT  THIS  ONE 

CLEAR  IT  OUT 

CONTINUE 


ffCS.SVC 

60$ 

P$V0WN(R2),#*RDLM 

60$ 

P$VCT(R2) 

20$ 


TST 
BEQ 
RETURN 


R5 
102$ 


ERROR$ 
RETURN 
102$:   ERROR$ 
RETURN 


#ERfiCTY 
*ERRNSC 


ELSE  ,  ANYTHING  FOUND? 
BR  IF  ERROR 


ILLEGAL  TYPE  OF  CIRCUIT 
CIRCUIT  NOT  IN  CONFIGURATION 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
COMMANDS 

282 
285 
28A 

285  000000 

286  000000 

287  000000 

288  000000 

289  000000 

290  000000 

291  000000 

292  000000 

293  000000 

294  000000 
295 
296 
297 

298  000000 

299  000000 

300  000000 
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;  COMMANDS 

STATES 

PRSSTB,8P$CFE 

TRANS 

8KSHEL,  SEXIT,   .HLPAC,  CM.HLP, 

SCMAND 

TRANS 

SKSEXI,  EXPUR,, 

CM.EXI, 

SCMAND 

TRANS 

8K$KIL,  EXIT,, 

CM.KIL, 

SCMAND 

TRANS 

£K$DEF,  DEFINE,, 

CM.DEF, 

SCMAND 

TRANS 

SKSSET,  PEFINE,, 

CH.DEF, 

SCMAND 

SET  =  DEFINE 

TRANS 

BKSPUR,  PURGE,, 

CM. PUR, 

SCMAND 

TRANS 

8KSCLR,  PURGE,, 

CM. PUR, 

SCMAND 

CLEAR  =  PURGE 

TRANS 

8KSLIS,  LIST,, 

CM. LIS, 

SCMAND 

TRANS 

8KSSH0,  LIST,, 

CM. LIS, 

SCMAND 

SHOW  =  LIST 

•  EXIT  OPTIONS 

STATES 

EXPUR 

TRANS 

8KSPUR,  EXIT,, 

SW.PUR, 

SSUICH 

TRANS 

SE0S,EXIT 

L  7 


CFEPRS   -   STATE    TABLES    TO   PARSE 
DEFINE   NODE    COMMAND 

929  000000 

930  000000 

931  000000 

932  000000 

933  000000 
93A  000000 

935  000000 

936  000000 
937 
938 
939 

940  000000 
9A1  000000 
942 

943  000000 

944  000000 

945  COOOOO 
946 

947  000000 

948  000000 

949  000000 

950  000000 
951 
952 
953 

954  000000 

955  000000 
956 

957  000000 

958  000000 

959  000000 
960 

961  000000 

962  000000 

963  000000 

964  OOCOOO 
965 
966 
967 

968  000000 

969  000000 

970  000000 
971 

972  000000 

973  000000 

974  000000 
975 

976  000000 

977  000000 
978 

979  000000 

980  000000 

981  000000 

982  000000 
983 
984 
985 
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STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 


RNSPA 

8KSSER,RNSPA2 

SLAMDA 

RNSPA2 

8KSPAS 

.&P$SERP 


TRANS  iSTRNG,  SEXIT, 
TRANS  SLAMDA,  SFAIL, 


.RNSPA 
SCLERR, 


ERRILN,  SERROR 


Secondary  [loader] 


STATES 
TRANS 

RNSLO 
&KSSEC 

STATES 
TRANS 
TRANS 

&KSL0AD 
SLAMDA 

RNSL02 

STATES 
TRANS 

STATES 
TRANS 

RNSL02, 
SLAMDA, 

IFJLSPC 

5PSSL0F 
, SEXIT 

erti'ary  [loa 

derj 

STATES 
TRANS 

RNTLO 
8KSTER 

STATES 
TRANS 
TRANS 

&KSL0AD 
SLAMDA 

,RNTL02 

.RNCLF,  SRNSLO,  .RNFSP 


STATES 
TRANS 

STATES 
TRANS 


RNTL02,8PSTL0F 
SLAMDA,, 


.RNCLF,  SRNTLO,  .RNFSP 


IFILSPC, SEXIT 
Load  file  f  Load  [file]  or  [Load]  file) 


STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


RNLOD 

8f(SL0AD,RNL0D2 
SLAMDA,    RNL0D3 


RNL0D2 

SKSFIL, 

SLAMDA, 


RNL0D4 
RNL0D4 


RNL0D3 
&KSFIL 

RNL0D4,&PSL0F 
SLAMDA,, 


.RNCLF,  SRNLOD,  .RNFSP 


IFILSPC, SEXIT 
Diagnostics  [file] 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  EXECUTOR  OMMAND 

1590 

1591 

1592 

1593 

159^   000000 

1595  000000 

1596 

1597  000000 

1598  000000 
1599 
•;600  000000 

1601  000000 

1602  000000 
1603 
160A 
1605 

1606  OOOOOC 

1607  000000 

1608  000000 

1609  000000 

1610  000000 

1611  000000 

1612  000000 

1613  000000 
16U  000000 

1615  000000 

1616  000000 

1617  000000 

1618  000000 

1619  000000 

1620  000000 

1621  000000 

1622  000000 

1623  000000 

1624  000000 

1625  000000 

1626  000000 

1627  000000 

1628  000000 
1629 
1630 
1631 

1632  000000 

1633  000000 
1634 

1635  000000 

1636  000000 
1637 
1638 
1639 

16A0  000000 
1641  000000 
1642 

1643  000000 

1644  000000 
1645 
1646 
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.SBTTL  DEFINE  EXECUTOR  COMMAND 

DEFINE  EXECUTOR  COMMAND 

STATES  DEFEXE 
TRANS  8KSEXE,,,C0.EXE,SC0MP 


STATES 

aPSEXE 

TRANS 

EXEOPT 

STATES  EXEO 

TRANS  SEOS.SEXIT 

TRANS 

EXEOPT 

EXEO 

•  LOOK  FOR  EXECUTOR  OPTIONS 

STATES 

EXEOPT 

TRANS 

ENAME, 

SEX  T, 

TRANS 

EADD, 

SEX  T, 

TRANS 

ELINK, 

SEXIT, 

TRANS 

EID, 

SEXIT, 

TRANS 

EVFV, 

SEXIT, 

TRANS 

EHOP, 

SEXIT, 

TRANS 

ECOST, 

SEXIT, 

TRANS 

ENN, 

SEXIT, 

TRANS 

EHOST, 

SEXIT, 

TRANS 

ENCOU. 

SEXIT, 

TRANS 

lEROU, 

SEXIT, 

TRANS 

IESU8, 

SEXIT, 

TRANS 

1 EAMAX , 

SEXIT, 

TRANS 

lEAHOPS 

, SEXIT, 

TRANS 

lEACOST 

, SEXIT, 

TRANS 

IE8RT, 

SEXIT, 

TRANS 

lEBEA, 

SEXIT, 

TRANS 

lESEG, 

SEXIT, 

TRANS 

lEINAC, 

SEXIT, 

TRANS 

lEINCT, 

SEXIT, 

TRANS 

,'EOUTT, 

SEXIT, 

TRANS 

.'ERETF, 

SEXIT, 

;  LOOK  FOR  NODE 

NAME 

STATES 

ENAME 

TRANS 

6KSNAM 

STATES 

,£PSNAM 

TRANS 

SRAD50, 

SEXIT, 

■  LOOK  FOR  NODE 

ADDRESS 

STATES 

EADD 

TRANS 

SKSADD 

STATES   ,8P$ADD 
TRANS   INODADD, SEXIT, 

LOOK  FOR  HOST  ADDRESS 


OE.NAM, 

OE.ADD, 

OE.LNK, 

OE.ID, 

OE.VFY, 

OE.MXH, 

OE.MXC, 

OE.NN, 

OE.HOS, 

OE.NCO, 

OE.RTM, 

OE.SUB, 

OE.AMAX 

OE.AHOP 

OE.ACOS 

E2.BRT, 

E2.8EA, 

E2.SEG, 

E2.INA, 

E2.INC, 

E2.0UT, 

E2.RET, 


.EXNAM 


.EXADD 


SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
SOPRND 
.SOPRND 
, SOPRND 
, SOPRND 
$0PRN2 
S0PRN2 
$0PRN2 
$0PRN2 
S0PRN2 
S0PRN2 
$0PRN2 
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CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  MODULE  COMMAND 


000000 


2251 
2252 
2253 
225^ 
2255 

2256  000000 

2257  000000 

2258  000000 

2259  000000 

2260  000000 

2261  000000 

2262  000000 

2263  000000 
2264 

2265  000000 

2266  000000 

2267  000000 

2268  000000 
2269 

2270 
2271 
2272 

2273  000000 

2274  000000 

2275  000000 

2276  000000 

2277  000000 

2278  000000 
2279 

2280 
2281 

2282  000000 

2283  000000 

2284  000000 

2285  000000 

2286  000000 

2287  000000 
2288 

2289 
2290 

2291  000000 

2292  000000 

2293  000000 

2294  000000 

2295  000000 

2296  000000 
2297 

2298 
2299 

2300  000000 

2301  000000 
2502  000000 

2303  000000 

2304  000000 

2305  000000 
2306 

2307 
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TRANS      ICHNL,      SEXIT,,    XP.CHN,    SSWICH 


X25-PROTOC0L  GROUP  PARAMETERS 

STATES  DXPCUCSPSXPRC 

TRANS  IKNG,       DXPCGO, ,XP.KNG,   SOPRND 

TRANS  ICUG,                    ,,XP.CUG,   SOPRND 

STATES  DXPCGO.   ?,PSGRPO 

TRANS  IDXPCGZ 

STATES  DXPCG1 

TRANS  SEOS,       SEXIT 

TRANS  IDXPCG2,DXPCG1 

STATES  DXPCG2 

TRANS  IDTE,       SEXIT,,   XP.DTA,   SSWICH 

TRANS  IGNUM,     SEXIT,,   XP.NUM,   SSWICH 

TRANS  IT8IL,      SEXIT,,    XP.BIL,    SSWICH 


SUBEXPRESSION  TO  MATCH   CALL    TIMER 

STATES  CTM 

TRANS  SKSCALL 

STATES  ,       8PSCALL 

TRANS  kSTIM 

STATES  ,      8PSCALT 

TRANS  SDNUMB,  SEXIT,   .MOCAT 

SUBEXPRESSION  TO  MATCH  CLEAR  TIMER 

STATES  CLT 

TRANS  SKSCLR 

STATES  ,      aPSCLRO 

TRANS  8K$TIM 

STATES  .       &PSCLHT 

TRANS  SDNUMB,  SEXIT,   .MOCLT 

SUBEXPRESSION  TO  PARSE  DEFAULT  DATA 

STATES  DF8 

TRANS  SKSDFA 

STATES  ,      6PSDFA0 

TRANS  &KSDAT 

STATES  ,       gPSDFDA 

TRANS  SDNUMB,  SEXIT,   .MODFD 

SUBEXPRESSION  TO  PARSE  DEFAULT  WINDOW 

STATES  DFW 

TRANS  SKSDFA 

STATES  ,      8PSDFA0 

TRANS  £<SWIN 

STATES  ,       RPSDFWI 

TRANS  SDNUMB,  SEXIT,   .MODFW 

SUBEXPRESSION  TO  PARSE  MAXIMUM  DATA 
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CFEPR5 

CREATED  BY 

MACRO  ON  2- 

JUL-85  AT 

14:24 

PAGE  1 

SYMBOL 

CROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

PRSKTB 

000000  RG 

#4-84 

PRSSTB 

000000  RG 

#4-84 

QUOTE 

=  000042 

#4-76 

RTBRK 

=  000076 

#4-77 

SF.PH3 

=  000400 

#7-867 

SALPHA 

=  000022 

#4-84 

$ANY 

=  000020 

#4-84 

SBLANK 

=  000006 

#4-84 

SDIGIT 

=  000024 

#4-84 

SDNUMB 

=  000014 

#4-84 

$EOS 

=  000012 

#4-84 

$EX1T 

=  000000 

#4-84 

$FAIL 

=  177777 

#4-84 

SGOFF 

=  000001 

#4-69 

4-84 

$GPRM 

=  000001 

#4-65 

4-84 

SLAMDA 

=  000000 

#4-84 

SNUMBR 

=  000002 

#4-84 

$RAD50 

=  000016 

#4-84 

SRONLY 

=  000001 

#4-73 

4-84 

4-84 

4-84 

SSTRNG 

=  000004 

#4-84 

SSUBXP 

=  00001 c 

#4-84 

$t$FLG 

=  ynm 

#4-84 

$$$KEY 

=  177777 

#4-84 

4-84 
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SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

ERRCON 

= 

****** 

GX 

5-158 

EXSERR 

r 

000002 

#5-165 

EXSSEV 

- 

000004 

#5-165 

EX$SUC 

~ 

000001 

#5-165 

EXSWAR 

- 

000000 

#5-165 

F.FNB 

r 

000102 

4-103 

5-145 

«5-147 

F.LUN 

- 

000042 

5-151 

lOSB 

000030 

R 

4-103 

#4-104 

10. WAT 

r 

****** 

GX 

4-103 

N.FIO 

- 

000000 

4-103 

5-145 

•5-147 

PAR$$$ 

- 

000027 

#5-143 

5-143 

#5-146 

5-146 

#5-163 

5-163 

#5-164 

Q.IOFN 

:z 

000002 

4-103 

Q.IOLU 

= 

000004 

♦5-151 

SW.PUR 

= 

****** 

GX 

5-141 

WATDPB 

000000 

R 

#4-103 

•5-151 

5-152 

tCFCOM 

~ 

****** 

GX 

5-131 

tCFDSP 

- 

****** 

GX 

5-133 

SCFE 

000034 

RG 

#5-128 

5-170 

SCFERR 

= 

****** 

GX 

5-158 

$CF1N! 

- 

****** 

GX 

5-129 

SCFUPD 

r 

****** 

GX 

5-139 

SEXSTS 

- 

****** 

GX 

5-165 

SFIATR 

- 

****** 

GX 

4-103 

5-148 

•5-150 

$FIN 

000056 

RG 

5-132 

#5--38 

$IFDB 

- 

****** 

GX 

5-143 

5-143 

5-164 

5-164 

tOFOB 

= 

****** 

GX 

4-103 

5-144 

5-146 

5-146 

5-163 

5-163 

SSWICH 

- 

****** 

GX 

5-141 

$$$ARG 

- 

000002 

#4-103 

4-103 

#4-103 

4-103 

#4-103 

4-103 

4-103 

$$tGLB 

_ 

****** 

4-103 

5-165 

5-165 

5-165 

5-165 

$$$OST 

= 

000005 

#5-165 
#5-165 

5-165 
5-165 

5-165 
5-165 

#5-165 
#5-165 

5-165 

5-165 

#5-165 

.CLOSE 

- 

»**  **T 

G 

5-146 

5-146 

5-164 

5-164 

.CONER 

000162 

RG 

#5-157 

.DELET 

- 

****** 

G 

5-143 

5-143 

5-163 

5-163 

.EXIT 

000172 

RG 

5-140 

#5-162 

5-164 


5-165 


5-165 


L  12 


K  13 


••F1LE«MD«'CFESTB 


CCCCCCfC   F 

FFFFFffFF 

EEEEEEEEEE 

SSS5SSSS 

TTTTTTTTTT 

BBBBBBB8 

CCCCCCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

SSSSSSSS 

TTTTT.TTTT 

BBBBBBBB 

EE 

SS 

T  1 

BB     BB 

EE 

SS 

BB     BB 

EE 

SS 

BB     BB 

EE 

SS 

BB     BB 

FfFFFFF 

EEEEEEEE 

SSSSSS 

BBBBBBBB 

FFFFFFF 

EEEEEEEE 

SSSSSS 

BBBBBBBB 

EE 

SS 

BB     BB 

EE 

SS 

BB     BB 

EE 

SS 

BB     BB 

EE 

SS 

BB     BB 

CCCCCCCC   F 

EEEEEEEEEE 

SSSSSSSS 

BBBBBBBB 

CCCCCCCC   F 

EEEEEEEEEE 

SSSSSSSS 

BBBBBBBB 

SSSSSSSS 

TTTTT 

TFTTT 

SSSSSSSS 

TTTTT 

mil 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSS5SSSS 
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1 

2 

3 

^ 

5 

6 

7 

8 

9 

10 
11 
12 
15 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


.TITLE  CFESUB  -  COMMON  SUBROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

COMMON  UTILITY  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


10-FEB-78 

VERSION  2.0  RELEASE 


2.00  U-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PLus  V5.0 
DECnet-Micro/RSX  Vl.O 


line  mi.     c  -.*■ 


_  Q  c  n  t; .  1  /. 


CFESUB  -  COMMON  SUBROUTINES 
$FN5LT  -  HND  *N  SLT  TEMPLATE 

A69 
A70 
471 
1,12 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 

483  000726  005727 

484  000730  000261 

485  000752  006046 

486  000734  012701   OOOOOOG 

487  000740  011505 

488  000742  000261 

489  000744  001510 

490  000746  122765 

491  000754  001371 

492  000756  005716 
495  000760  100404 

494  000762  032767  OOOOOOG 

495  000770  001004 

496  000772  026165  OOOOOOG 

497  001000  001357 

498  001002  042767  OOOOOOG 

499  001010  032765  OOOOOOG 

500  001016  001403 

501  001020  052767  OOOOOOG 

502  001026  042767  OOOOOOG 

503  001034  032765  OOOOOOG 

504  001042  001403 

505  001044  052767  OOOOOOG 

506  001052  032767  OOOOOOG 

507  001060  001041 

508  001062  126165  OOOOOOG 

509  001070  001323 

510  001072  032767  OOOOOOG 

511  001100  001410 

512  001102  032767  OOOOOOG 

513  001110  001025 

514  001112  126165  OOOOOOG 

515  001120  001307 

516  001122  032765  OOOOOOG 

517  001130  001415 

518  001132  032767  OOOOOOG 

519  001140  001411 

520  001142  032767  OOOOOOG 

521  001150  001005 

522  001152  010546 

523  001154  004767  000012 

524  001160  012605 


K  15 

MACRO  V05.03b  Saturday  29-Jun-85  05:14  Page  14 


.SSTTL  SFNSLT  -  FIND  AN  SLT  TEMPLATE 
SFNSLT  -  FIND  AN  SLT  TEMPLATE 


INPUTS: 

R5  -   POINTER  TO  CURRENT  TEMPLATE 
SDVNAM  =  START  OF  LINE  DESCRIPTOR 

OUTPUTS: 

C-BIT    =    SUCCESS/FAILURE 
R5   =  ADDRESS  OF    TEMPLATE 
SFLAGS   =   UPDATED 


.FNSLT: 
SFNSLT; 


10$: 


OOOOOOG  OOOOOOG 


OOOOOOG 

000004  11$: 

OOOOOOG  12$: 
000006 

OOOOOOG 
OOOOOOG  13$: 
000006 

OOOOOOG 
OOOOOOG  14$: 

000010 

OOOOOOG 

OOOOOOG 

000011 

000006  15$: 

OOOOOOG 

OOOOOOG 


:TST 

(PC)  + 

:SEC 

RQk 

-(SP) 

MCV 

#$DVNAM,R1 

MOV 

(R5),R5 

SEC 

BEQ 

20$ 

CMP8 

#CS.SLT,C.STS(R5) 

BNE 

10$ 

TST 

(SP) 

BMI 

11$ 

BIT 

#WC.NAM,$WILD 

BNE 

12$ 

CMP 

L$NAM(R1),C.NAM(R5) 

BNE 

10$ 

BIC 

#FL.MTP,$FLAGS 

BIT 

*LF.MTP,C.FLG(R5) 

BEQ 

13$ 

BIS 

#FL.MTP,$FLAGS 

BIC 

#FL.MFL,$FLAGS 

BIT 

#LF.MFL,C.FLG(R5) 

BEQ 

14$ 

BIS 

#FL.MFL,$FLAGS 

BIT 

#WC.CNT,$WILD 

BNE 

17$ 

CMPB 

L$CNT(R1),C.CNT(R5) 

BNE 

10$ 

BIT 

#FL.MUX,$fLAGS 

BEQ 

15$ 

BIT 

*WC.UNT,$UILD 

BNE 

17$ 

CMPB 

L$UNT(R1),C.UNT(T5) 

BNE 

10$ 

BIT 

#LF.MTP,C.FLG(R5) 

BEC 

17$ 

BIT 

*FL.TRI,$FLAGS 

BEQ 

17$ 

BIT 

#WC.TR1,$WILD 

BNE 

17$ 

MOV 

R5,-(SP) 

CALL 

SFNSTA 

MOV 

(SP)+,R5 

SPECIAL  rOR  SET  KNOWN  LINES 

ENTRY  POINI  FOR  OLD  STUFF 

PUSH  ENTRY  POINT  FLAG 

POINT  TO  LINE  DESCRIPTOR 

GET  NEXT  TEMPLATE 

ASSUME  FAILURE 

IF  EQ,  END  OF  LIST 

IS  THIS  AN  SLT  TEMPLATE  7 

IF  NE,  NO  ..  KEEP  LOOKING 

SPECIAL  HANDLING  FOR  KNOWN  LINES  ? 

IF  MI,  NO 

ELSE,  IS  IT  SET  KNOWN  LINES  ? 

IF  NE,  YES 

IS  THIS  THE  RIGHT  SLT  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

ASSUME  LINE  IS  NOT  MULTI-POINT 

IS  THE  LINE  MULTIPOINT  ? 

IF  EQ,  NO 

ELSE,  REMEMBER  LINE  IS  MULTIPOINT 

ASSUME  LINE  IS  NOT  MARKED  FOR  LOAD 

IS  THE  LINE  MARKED  FOR  LOAD  ? 

IF  EQ,  NO 

ELSE,  REMEMBER  LINE  IS  MARKED  FOR  LOAD 

ALL  CONTROLLERS  ? 

IF  NE,  YES 

IS  IT  THE  RIGHT  CONTROLLER  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

IS  THIS  DEVICE  A  MULTIPLEXER  ? 

IF  EQ,  NO 

ALL  UNITS  ? 

IF  NE,  YES 

IS  IT  THE  RIGHT  UNIT  ' 


IF  NE,  NO 


KEEP  LOOKING 


IS  THE  LINE  MULTI-POINT 

IF  EQ,  NO 

DID  HE  WANT  THE  TRIBUTARY  iNFO 

IF  EQ,  NO 

ALL  TRIBUTARIES  ? 

IF  NE,  YES 

SAVE  R5 

ELSE,  TRY  TO  FIND  THE  STATION 

RESTORE  R5 


LIS, 
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CREf       04.00 


MACRO  NAME 

REFERENCES 

CTRDF$ 

#A-61 

4-63 

CUGDF$ 

#5-98 

5-98 

)ECTP$ 

#4-61 

4-64 

3IRt 

#4-61 

7-173 

8-214 

)STDf$ 

#5-101 

5-101 

3TEDF$ 

#5-96 

5-96 

aiDFS 

#5-95 

5-95 

LLTDFS 

#5-111 

5-111 

OBJDFS 

#5-93 

5-93 

»VCt)F$ 

#5-97 

5-97 

RDTDFS 

#5-99 

5-99 

REDEF 

#5-83 

5-93 

5-94 

5-10? 

5-103 

5-111 

RNBDFS 

#5-94 

5-94 

SERDFS 

#5-103 

5-103 

SVCDFS 

#5-102 

5-102 

XCBDf$ 

#5-100 

5-100 

5-95 


5-96 


5-97 


5-98 


5-99 


5-100 


5-101 
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DEFINE  TEMPLATES  GLOBALLY 

1033       010000  SP.SID  ==  010000            ;  SSCP  ID 

103^       020000  SP.DAT  ==  020000            ;  USER  DATA 


M  1 
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CREF   04.00 


****** 


=  000100  G 
=  000001  G 
=  000002  G 
=  000010  G 
=  000004  G 
=  000200  G 
=  000020  G 
=  000040  G 
=  000006 
=  000001 
=  000002 
=  000003 
=  000004 
=  000005 
000002  G 
000016  G 
000012 


SYMBOL  VALUE 


lO.WVB 

LF.3R0 

LF.ENA 

LF.MDC 

LF.MFL 

LT.MTP 

LF.SER 

LF.TIM 

LF.X2P 

LUNX 

LUN1 

LUN2 

LUN3 

LUN4 

LUN5 

LICNT 

L$LCTM 

L$LDEV 

L$LEXT 

LSLFLG 

L$LLEN 

LSLLIN 

LSLNAM 

LSLNLT 

LSLPRI 

LJNAM 

LSTRI 

L$UNT 

MAXARE 

MAXCSr 

HAXHOP 

MAXNN 

MXCSTL 

NFSACC 

NFSEVT 

NF.ACC 

NF.BCP 

NF.END 

NF.EVT 

NF.LLI 

NF.LV2 

NF.SLI 

NF.SMC 

NF.SWP 

NOSEXA 

NOSHOA 

N.DVNM 

N.FNAM 

N.FTYP 

N.UNIT 

OC.APR 

OC.CHN 


000015  G 


000006 

=  000020 

000011 

000004 

000014 

OOOt.10 

000000 

000006 

000004 

=  000077 

=  001776 

=  000036 

=  001777 

=  000031 

=  100000 

=  040000 

=  000001 

=  000040 

=  00C200 

=  000002 

=  000004 

=  000100 

=  000400 

=  000020 

=  000010 

=  000400 

=  001000 

=  000032 

=  000006 

=  000014 

^  000034 

=  010000 

=  000040 


REFERENCES 

7-127 
#12-1077 
#12-1071 
#12-1072 
#12-1074 
#12-1073 
#12-1078 
#12-1075 
#12-1076 
#5-73 
#5-68 
#5-69 
#5-70 
#5-71 
#5-72 
#8-338 
#9-451 
#9-448 
#9-450 
#9-445 
#9-452 
#9-447 
#9-444 
#9-449 
#9-446 
#8-337 
#8-340 
#8-339 
#5-77 
#5-76 
#5-75 
#5-78 
#5-79 
#5-87 
#5-87 
#5-87 
#5-87 
#5-87 
#5-87 
#5-87 
#5-87 
#5-87 
#5-87 
#5-87 
#12-1181 
#12-1182 

6-95 

6-95 

6-95 

6-95 
#11-807 
#11-798 


7-128 


6-95 

7-127 

7-128 

6-106 

6-113 


6-95 

7-127 

7-128 


6-95 


6-95 


6-115 

6-115 

6-115 

6-115 

11-821 

11-816 


11-823 
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■♦FILE*»ID'«CFE1N1 


CCCCCCCC   F 

FFFFFFFFF 

EEEEEEEEEE 

IIIIII 

NM 

NN 

IIIIII 

CCCCCCCC   F 

FFFFFi^FFF 

EEEEEEEEEE 

mill 

NN 

NN 

IIIIII 

CC          F 

EE 

11 

NN 

NN 

II 

CC          F 

EE 

II 

NN 

NN 

II 

CC          F 

EE 

II 

mm 

NN 

II 

CC          F 

EE 

II 

NNN^ 

NN 

II 

CC          F 

FFFFFFF 

EEEEEEEE 

II 

NN 

W  NN 

II 

CC          F 

FFFFFFF 

EEEEEEEE 

II 

NN 

^JN  NN 

II 

CC          F 

EE 

II 

NN 

NNNN 

II 

CC           F 

EE 

NN 

NNNN 

II 

CC           F 

EE 

NN 

NN 

II 

CC           F 

EE 

NN 

NN 

II 

CCCCCCCC   F 

EEEEEEEEEE 

II   II 

NN 

NN 

IIIIII 

CCCCCCCC    F 

EEEEEEEEEE 

IIIIII 

NN 

NN 

IIIIII 

SSSSSSSS 

TTTTTl 

TTTT 

SSSSSSSS 

TTTTTl 

nil 

SS 

SS 

SS 

SS 

ssssss 

5SSS"' 

ii 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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CFELIS  -  PERFORM  LIST  COMMAND 
Symbol  table 
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BLANK 

0001 50R 

G.TIM0=  000002 

DSPTBL 

OOOOOOR 

G.TISC=  000012 

GTIM 

OOOIUR 

G.T1YR=  000000 

G.TIBA= 

000002 

O.ATT=  ******  GX 

G.TICP= 

000016 

O.DET=  ******  GX 

G.TICT= 

OOOOU 

I0.UVB=  ******  GX 

G.T1DA= 

000004 

LFDPB   000064R 

G.TIHR= 

000006 

Q.I0AE=  000012 

G.TIMI= 

000010 

Q.IOEF=  000006 

.  ABS. 

000000 

OCO 

(RW,I,GBL,ABS,OVR) 

000232 

001 

(RW,I,LCL,REL,C0N) 

Errors 

detected: 

0 

•*•  Assembler  statistics 


Work   file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  8800  Words   (  35  Pages) 

Size  of  core  pool:  1A440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


Q.IOFN=  000002 
Q.J0LU=  000004 
Q.I0PL=  000014 
Q.IOPR=  000007 
Q.IOSB=  000010 
TIDPB   000034R 
SCFLIS  000152RG 
JCOMP  =  ******  GX 
SGTBUF  000130RG 


SHDRBK 

000120RG 

$SHCIR= 

******  GX 

$SHEXE= 

*»**♦*  GX 

$SHLIN= 

******  GX 

$SHLOG= 

******  GX 

$SH0BJ= 

******  GX 

$SHPR0= 

******  GX 

$SHREM= 

******  GX 

$SHSNA=  ****** 
$SHSYS=  ****** 
$SHXAC=  ****** 
$SHXPR=  ****** 
$SHXSV=  ****** 
$SHX29=  ****** 
$$$ARG=  000003 
$$$OST=  000020 


GX 
GX 
GX 
GX 
GX 
GX 


SY?CFELir.V2![l'3^?°34]CFELIS/CR/-SP=Sy:C1,nRSXMCM.SML/ML,[130,110]NETLiB/ML,[132,103CFELIS 


M     A 
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♦■•F1LE««ID«*CFEPRG 


cccrcccc  F 

FFFFFFFFF 

EEEEEEEEEE 

PPPPPPPP 

RRRRRRRR 

GGGGGGGG 

CCCCCCCC   F 

FFFFF^FFF 

EEEEEEEEEE 

PPPPPPPP 

RRRRRRRR 

GGGGGGGG 

EE 

PP      PP 

RR      RR 

GG 

EE 

PP      PP 

RR      RR 

GG 

EE 

PP      PP 

RR      RR 

GG 

EE 

PP      PP 

RR      RR 

GG 

FFFFFFF 

EEEEEEEE 

PPPPPPPP 

RRRRRRRR 

GG 

FFFFFFF 

EEEEEEEE 

PPPPPPPP 

RRRRRRRR 

GG 

EE 

PP 

RR  RR 

GG 

GGGGGG 

EE 

PP 

RR  RR 

GG 

GGGGGG 

EE 

PP 

RR    RR 

GG 

GG 

EE 

PP 

RR    RR 

GG 

GG 

CCCCCCCC    F 

EEEEEEEEEE 

PP 

RR      RR 

GGGGGG 

CCCCCCCC   F 

EEEEEEEEEE 

PP 

RR     RR 

G   """ 

GGGGG 

LL 

SSS5SSSS 

TTTTTl 

TTTT 

LL 

ssssssss 

TTTTT 

Mil 

lL 

ss 

-L 

5S 

-L 

SS 

LL 

SS 

LL 

SSSS5S 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

:l 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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CFEPRG  -  PERFORM  PURGE   COMMAND     MACRO  V05.0?b   Saturday  29-Jun-85 
QREM  -  REMOVE    ENTRY   FROM  QUEUE 


^J 


7     Page  12 


A02 
40? 
AOA 
405 
406 
A07 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 


INPUTS: 


.SBTTL  QREM  -  REMOVE  ENTRY  fROM  QUEUE 

QREM  -  REMOVE  ENTRY  FROM  QUEUE 

S: 
R5  =  PREVIOUS  ENTRY  IN  QUEUE 
R2  =  ENTRY  TO  REMOVE 
STMLST  =  QUEUE  LISIHEAD 


OUTPUTS: 

R5,R2  =  PRESERVED 

ENTRY  IS  REMOVED  FROM  QUEUE 


001244 

001244  011215 

001246  001002 

001250  010567  000002G 

001254  000207 


000001 


QREM: 

MOV     (R2),(R5) 

BNE     10$ 

MOV     R5,$TMLST+2 
10$:    RETURN 


.END 


CLOSE  UP  LIST 

IF  NE,  NOT  LAST  IN  LIST 

SET  NEW  LAST  ENTRY 


M  6 


CfEPRS  -  STATE  TABLES  TO  PARSE 
LIST  COMPONENTS 

302 
303 
304 
305 

306  000000 

307  000000 

308  000000 

309  000000 

310  000000 
311 

312  000000 

313  000000 

314  000000 

315  000000 

316  000000 

317  000000 
318 

319  OO^'iOO 

320  OOiiUOO 
321 

322  000000 

323  000000 

324  000000 

325  000000 

326  000000 

327  000000 

328  000000 

329  000000 

330  000000 

331  000000 

332  000000 

333  000000 

334  000000 
335 

336  000000 

337  000000 

338  000000 
339 
340 
341 
342 

343  000000 

344  000000 

345  000000 

346  000000 

347  000000 
348 
349 
350 

351  000000 

352  000000 
553  000000 

354  000000 

355  000000 

356  000000 

357  000000 

358  000000 
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.S8TTL  LIST  COMPONENTS 


■  LIST  COMPONENTS 

STATES 

LIST,8PSLIS 

TRANS 

ILISMOD 

EXIT 

TRANS 

ILISOPT 

LISCM1 

TRANS 

ILISCOM 

LISCMO 

TRANS 

ILISLOG 

STATES 

TRANS 

SKSEVE, 

EXIT 

TRANS 

SLAMDA 

STATES 

IISCMO 

TRANS 

ILISOPT 

,EXIT 

TRANS 

SLAMDA, 

EXIT 

STATES 

LJSCM1 

TRANS 

ILISCOM 

,EXIT 

STATES 

LISCOM, 

SPSLIS 

TRANS 

IKNLIN, 

SEXIT, 

TRANS 

ILINJD, 

SEXIT, 

TRANS 

ICIfilD, 

SEXIT, 

TRANS 

IKNCIR, 

SEXIT, 

TRANS 

8KSEXE, 

SEXIT, 

TRANS 

IKNPRO, 

SEXIT, 

TRANS 

IPROID, 

SEXIT, 

TRANS 

6KSSYS, 

SEXIT, 

TRANS 

1 KN08J , 

SEXIT, 

TRANS 

lOBJID, 

SEXIT, 

TRANS 

INODID, 

SEXIT, 

TRANS 

1 KNNOD , 

SEXIT, 

STATES  LISLOG 
TRANS   ILOGID,  SEXIT, 
TRANS   IKNLOG,  SEXIT, 


LIST  COMPONENTS  OPTIONS 

STATES  LISOPT 
TRANS  SEOS,   SEXIT 


LIST 


Page  5 

CO.KNL, 

SCOMP 

CO. LIN, 

SCOMP 

CO.CIR, 

SCOMP 

CO.KNC, 

SCOMP 

CO. EXE, 

SCOMP 

CO.KNP, 

SCOMP 

CO. PRO, 

SCOMP 

CO. SYS, 

SCOMP 

CO.KNO, 

SCOMP 

CO. OBJ, 

SCOMP 

CO. NOD, 

SCOMP 

CO.KNN, 

SCOMP 

CO. LOG, 

SCOMP 

CO.KLG, 

SCOMP 

TRANS 

8KSCHA, 

SEXIT,, 

INSCHA, 

SINFO 

TRANS 

8KSSUM, 

SEXIT,, 

INSSUM, 

SINFO 

TRANS 

&KSSTS, 

SEXIT,, 

INSSUM, 

SINFO 

MODULES 

STATES 

LISMOD 

TRANS 

IMODXPR 

LIXPR,, 

CO.MXP, 

SCOMP 

TRANS 

ILXPRAB 

LISOPT,, 

CO.MXP, 

SCOMP 

TRANS 

IMODXSV 

LIXSR,, 

CO.HXS, 

SCOMP 

TRANS 

1M0DX29 

L  XSR,, 

C0.MX9, 

SCOMP 

TRANS 

IMODXAC 

L  XAC, 

CO. MAC, 

SCOMP 

TRANS 

ILXSRAB 

LISOPT,, 
SEXIT, iSNLIS 

CO.MXS, 

SCOMP 

TRANS 

IMODSPR 

CO. MSP, SCOMP  ;  L 

LIST   rOD   SNA-PROTOCOL 


n   7 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  NODE  COMMAND 

986  000000 

987  000000 
988 

989  000000 

990  000000 

991  000000 
992 

993  000000 
99A  000000 

995  000000 

996  000000 
997 
998 
999 

1000  000000 

1001  000000 
1002 

1003  000000 

1004  000000 
1005 

1006  000000 

1007  000000 

1008  000000 

1009  000000 
1010 

ion 

1012 
1013 

1014  000000 

1015  000000 

1016  000000 
1017 
1018 
1019 
1020 

1021  000000 

1022  000000 
1023 

1024  000000 

1025  000000 

1026  000000 
1027 

1028  000000 

1029  000000 
1030 

1031  000000 

1032  000000 
1033 

1034  000000 

1035  000000 

1036  000000 
1037 

1038  000000 

1039  000000 
1040 
1041 
1.42 
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STATES 
TRANS 

RNDJA 
8KSDJAG 

STATES 
TRANS 
TRANS 

8KSFIL,RNDIA2 
SLAMDA 

STATES 
TRANS 

STATES 
TRANS 

RNDIA2,&PSDIAF 
SLAMDA,, 

IFILSPCSEXIT 

.RNCLF 

Dump  fi'Le 

STATES 
TRANS 

RNDMP 
8KSDMP 

STATES 
TRANS 

.SPSDMPO 
£KSFJL,RNDMP2 

STATES 
TRANS 

STATES 
TRANS 

RNDMP2,8PSDMPF 
SLAMDA,, 

IFILSPCSEXIT 

.RNCL'- 

Subexpression 

to  parse  files 

aec 

STATES 
TRANS 
TRANS 

FILSPC 

:STRNG,SEXIT, 
SLAMDA,  SFAIL, 

CKFSP 
SCLERR 

NODE  ID 

STATES 
TRANS 

NOD  ID 
8KSN0D 

.RNFSP 


SRNDMP,  .RNFSP 


ERRFSP,  SERROR 


STATES  ,8P$NID 

TRANS  iN0DADD,N0DID3 

TRANS  SLAMDA,  NODIDl 

STATES  N0DID3 

TRANS  SLAMDA,  SEXIT, 

STATES  NODIDl 

TRANS  SSTRNG,, 

STATES 

TRANS  <';>,   N0DID2 

TRANS  SLAMDA,  SEXIT 

STATES  N0DID2 

TRANS  <•:>,    SEXIT 


.RNAD3 


.RNNAM 


NODE  ADDRESS 


n  8 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  EXECUTOR  COMMAND 

16A7 

16^8  000000 

16A9  000000 
1650 

1651  000000 

1652  000000 

1653  000000 
165^  000000 

1655  000000 

1656  000000 
1657 
1658 
1659 
1660 

1661  000000 

1662  000000 
1663 

1664  000000 

1665  oooo:a 

1666 

1667  000000 

1668  000000 
1669 
1670 
1671 

1672  000000 

1673  000000 
167A  000000 
1675 

1676  000000 

1677  OCOOOO 

1678  000000 
1679 
1680 
1681 

1682  000000 

1683  000000 
1684 

1685  000000 

1686  000000 

1687  000000 

1688  000000 
1689 
1690 
1691 

1692  000000 

1693  000000 
1694 

1695  000000 

1696  000000 

1697  000000 

1698  000000 
1699 

1700  000000 

1701  000000 

1702  000000 

1703  000000 
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STATES  EHOST 

TRANS  aKSHOS 

STATES  ,8PSH0S 

TRANS  SLAMDA,, 

STATES 

TRANS  IN0DADD,SEX1T, 

TRANS  IH0SNAM,SEXIT, 

TRANS  SLAMDA,  SFAIL 


.EXH01 

.EXHOS 
.EXHOS 


LOOK  FOR  LINKS 


STATES  ELJNK 

TRANS  8KSMAX 

STATES  ,&PSPEN 

TRANS  &KSLNKS 


STATES 
TRANS 

,8P$MLNK 
SDNUMB,  SEXIT, 

.EXLNK 

;  LOOK  FOR  NODE 

ID 

STATES 
TRANS 
TRANS 

EID 

&KSIDE, 

JKSID 

EIDl 

STATES 
TRANS 
TRANS 

EIDl 

IQSTRNG 

ISTRNG, 

, SEXIT, 
SEXIT, 

.EXID 
.EXIDl 

;  NON  QUOTED  STRING 

STATES 
TRANS 

STRNG 
SLAMDA, 

SBL.MAN 

STATES 
TRANS 
TRANS 
TRANS 

STRING 
S8LANK, 
SEOS, 
SANy, 

SEXIT, 
SEXIT, 
STRING 

SBL.AUT 
SBL.AUT 

;  QUOTED  STRING 

STATES 
TRANS 

QSTRNG 
QUOTE,, 

SBL.MAN 

STATES  STRNG1 

TRANS  !DQU0TE,STRNG1 

TRANS  QUOTE,   SEXIT, 

TRAiMS  SANY,   STRNG1 

STATES  OQUOTE 

TRANS  QUOTE 
STATES 

TRANS  QUOTE,   SEXIT 


SBL.AUT 


M  9 
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DEFINE  MODULE  COMMAND 


2308 

2309  000000 

2310  000000 

2311  000000 

2312  000000 

2313  000000 

2314  000000 
2315 

2316 
2317 
2318 

2319  000000 

2320  000000 

2321  000000 

2322  000000 

2323  000000 
232A  000000 
2325 

2326 
2327 

2328  000000 

2329  000000 

2330  000000 

2331  000000 

2332  000000 

2333  000000 
2334 

2535 
2336 

2337  000000 

2338  000000 

2339  000000 

2340  000000 

2341  000000 

2342  000000 
2343 

2344 
2345 

2346  000000 

2347  000000 
2548  000000 

2349  000000 

2350  000000 

2351  000000 
2352 

2353 
2354 

2355  000000 

2356  000000 

2357  000000 

2358  000000 

2359  000000 

2360  000000 
2361 

2362 
2563 
2564 


STAIES  MMDA 
TRANS  8K$MAX 


STATES 
TRANS 

STATES 
TRANS 


Jksdat 
Jdnumb, 


SPSMAX 

8PSMBD 

SEXIT,   .MOMDA 


SUBEXPRESSION  TO  PARSE  MAXIMUM  CLEARS 

STATES  MXC 

TRANS  8KSMAX 

STATES  ,      &PSPEN 

TRANS  8KSCLRS 

STATES  ,       aPSMCLR 

TRANS  SDNUMB,  SEXIT,   .MOMCL 

SUBEXPRESSION  TO  PARSE  MAXIMUM  RESETS 

STATES  MRE 

TRANS  8KSmx 

STATES  ,      8PSPEN 

TRANS  8KSRES 

STATES  ,      &PSMRES 

TRANS  SDNUMB,  SEXIT,   .MOMRE 

SUBEXPRESSION  TO  PARSE  RESET  TIMER 


STATES  RET 

TRANS  8KSRES 

STATES  ,      &PSRESO 

TRANS  _ 

STATES  ,       SPSREST 

TRANS  SDNUMB,  SEXIT, 


kSTIM 

8PSREST 

.MORET 

SUBEXPRESSION  TO  PARSE  MAXIMUM  RESTARTS 

STATES  MXR 

TRANS  aKSMAX 

STATES  ,       8PSPEN 

TRANS  8KSRSTR 

STATES  ,      SPSMRST 

TRANS  SDNUMB,  SEXIT,   .MOMXR 

SU8EXPRSESSI0N  TO  PARSE  RESTART  TIMER 


STATES 

TRANS  

STATES  ,       &PSRSTD 

TRANS  _   " 

STATES  ,       aPSRSTT 

TRANS  SDNUMB,  SEXIT, 


RST 
8KSRSTR 

kSTIM 


.MORST 


SUBEXPRESSION  TO  PARSE  NETWORK  NAME 


M  10 


n 


L 
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MACRO  CROSS   REFERENCE 
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CREf       OA.OO 


MACRO  NAME 


REFERENCES 


)BGTPS 

#A-8A 

#4-287 

#5-308 

#5-309 

#5-329 

#5-330 

#5-353 

#5-354 

#5-370 

#5-378 

#5-A30 

#6-438 

#6-4A7 

#6-448 

#6-471 

#6-472 

#6-481 

#6-493 

#6-576 

#6-589 

#6-666 

#6-670 

#6-747 

#7-767 

#7-786 

#7-787 

#7-820 

#7-821 

#7-830 

#7-831 

#7-840 

#7-841 

#7-870 

#7-871 

#7-923 

#7-924 

#7-1026 

#7-1036 

#8-1101 

#8-1110 

#9-1176 

#9-1177 

#9-1193 

#9-1196 

#9-1337 

#9-1338 

#9-1347 

#9-1348 

#9-1437 

#9-1441 

#9-1450 

#9-1451 

#9-1558 

#9-1562 

#10-1614 

#10-1615 

#10-162'. 

#10-1625 

#10-16F<? 

^10-1697 

#10-18'^;^ 

#10-1830 

#10-lf"5l- 

,»10-1876 

#11-19j2 

#11-1933 

*i  2-2006 

#12-2007 

*13-2143 

#13-2144 

#13-2176 

#13-2179 

#13-2208 

#13-2209 

#13-2228 

#13-2229 

#13-2250 

#13-2251 

#14-2440 

#14-2441 

#14-2507 

#14-2524 

#14-2621 

#14-2634 

GCL$ 

#4-60 

ISTATS 

#4-60 

4-84 

KEYWDI 

#4-60 

4-88 

#4-97 

#4-98 

#4-107 

#4-108 

#4-117 

#4-118 

#4-127 

#4-128 

#4-137 

#4-138 

#4-147 

#4-148 

#4-157 

#4-158 

#4-288 

#5-310 

#5-331 

#5-355 

#5-381 

#6-439 

#6-449 

#6-473 

#6-502 

#6-615 

#6-674 

#7-778 

#7-788 

#7-822 

#7-832 

#7-842 

#7-872 

#7-931 

#7-1050 

#9-1157 

#9-1178 

tfg--"  :06 

#9-1339 

#9-1349 

#9-1442 

#9-1452 

#9-1571 

#10-1616 

#10-1626 

#10-1698 

#10-1833 

#10-1879 

#11-1934 

#12-2008 

#13-2145 

#13-2185 

#13-2210 

#13-2230 

#13-2258 

#14-2453 

#14-2535 


#4-89 

#4-99 

#4-109 

#4-119 

#4-129 

#4-139 

#4-149 

#4-159 


#4-289 

#5-314 

#5-332 

#5-356 

#5-423 

#6-440 

#6-450 

#6-474 

#6-505 

#6-630 

#6-681 

#7-779 

#7-789 

#7-823 

#7-833 

#7-843 

#7-882 

#7-936 

#7-1054 

#9-1164 

#9-1179 

#9-1217 

#9-1340 

#9-1350 

#9-1443 

#9-1453 

#10-1602 

#10-1617 

#10-1627 

#10-1712 

#10-1836 

#10-1887 

#11-1951 

#12-2009 

#13-2146 

#13-2188 

#13-2211 

#13-2231 

#13-2263 

#14-2493 

#14-2543 


#4-90 

#4-100 

#4-110 

#4-120 

#4-130 

#4-140 

#4-150 

#4-160 


#4-290 

#5-317 

#5-333 

#5-357 

#5-424 

#6-4^1 

#6-451 

#6-475 

#6-529 

#6-631 

#6-685 

#7-780 

#7-790 

#7-824 

#7-834 

#7-844 

#7-892 

#7-945 

#7-1058 

#9-1170 

#9-1180 

#9-1218 

#9-1341 

#9-1359 

#9-1444 

#9-1454 

#10-1608 

#10-1618 

#10-1628 

#10-1716 

#10-1844 

#10-1890 

#11-1960 

#12-2019 

#13-2147 

#13-2191 

#13-2219 

#13-2232 

#13-2267 

#14-2496 

#14-2551 


#4-91 

#4-101 

#4-111 

#4-121 

#4-151 

#4-141 

#4-151 

#4-161 


#4-291 

#5-324 

#5-334 

#5-358 

#5-425 

#6-442 

#6-453 

#6-476 

#6-539 

#6-632 

#6-705 

#7-781 

#7-800 

#7-825 

#7-835 

#7-850 

#7-898 

#7-959 

#7-1062 

#9-1171 

#9-1181 

#9-1228 

#9-1342 

#9-1360 

#9-1445 

#9-1455 

#10-1609 

#10-1619 

#10-1655 

#10-1782 

#10-1845 

#10-1898 

#11-1969 

#12-2020 

#13-2153 

#13-2197 

#13-2223 

#13-2233 

#13-2268 

#14-2502 

#14-2559 


#4-92 

#4-102 

#4-112 

#4-122 

#4-132 

#4-142 

#4-152 

#4-162 


#4-292 

#5-325 

#5-338 

#5-364 

#5-426 

#6-443 

#6-459 

#6-477 

#6-546 

#6-635 

#6-710 

#7-782 

#7-801 

#7-826 

#7-836 

#7-854 

#7-905 

#7-970 

#7-1063 

#9-1172 

#9-1182 

#9-1316 

#9-1343 

#9-1385 

#9-1446 

#9-1522 

#10-1610 

#10-1620 

#10-1656 

#10-1795 

#10-1848 

#10-1901 

#11-1970 

#12-2045 

#13-2156 

#13-2202 

#13-2224 

#13-2239 

#13-2397 

#14-2503 

#14-2570 


#4-93 

#4-103 

#4-113 

#4-123 

#4-133 

#4-143 

#4-153 

#4-163 


#4-293 

#5-326 

#5-345 

#5-365 

#5-427 

#6-444 

#6-466 

#6-478 

#6-556 

#6-648 

#6-711 

#7-783 

#7-805 

#7-827 

#7-837 

#7-858 

#7-913 

#7-974 

#8-1087 

#9-1173 

#9-1183 

#9-1317 

#9-1344 

#9-1394 

#9-1447 

#9-1531 

#10-1611 

#10-1621 

#10-1674 

#10-1803 

#10-1853 

#10-1909 

#12-1998 

#12-2049 

#13-2162 

#13-2205 

#13-2225 

#13-2244 

#13-2423 

#14-2504 

#14-2573 


#4-94 

#4-104 

#4-114 

#4-124 

#4-134 

#4-144 

#4-154 

#4-164 


#4-294 

#5-327 

#5-346 

#5-368 

#5-428 

#6-445 

#6-469 

#6-479 

#6-565 

#6-654 

#6-721 

#7-784 

#7-811 

#7-828 

#7-838 

#7-865 

#7-916 

#7-991 

#8-1094 

#9-1174 

#9-1184 

#9-1324 

#9-1345 

#9-1407 

#9-1448 

#9-1550 

#10-1612 

#10-1622 

#10-1678 

#10-1808 

#10-1862 

#10-1912 

#12-2004 

#12-2058 

#13-2165 

#13-2206 

#13-2226 

#13-2248 

#13-2424 

#14-2505 

#14-2585 


#4-95 

#4-105 

#4-115 

#4-125 

#4-135 

#4-145 

#4-155 

#4-165 


#4-300 

#5-328 

#5-347 

#5-369 

#5-429 

#6-446 

#6-470 

#6-480 

#6-572 

#6-662 

#6-746 

#7-785 

#7-816 

#7-829 

#7-839 

#7-869 

#7-922 

#7-1016 

#8-1100 

#9-1175 

#9-1185 

#9-1331 

#9-1346 

#9-1419 

#9-1449 

#9-1554 

#10-1613 

#10-1623 

#10-1687 

#10-1817 

#10-1865 

#11-1926 

#12-2005 

#12-2065 

#13-2168 

#13-2207 

#13-2227 

#13-2249 

#14-2437 

#14-2506 

#14-2588 


#4-96 

#4-106 

#4-116 

#4-126 

#4-136 

#4-146 

#4-156 

#4-166 
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PAGE 
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MACRO  CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CLOSEt 

#A-93 

5-146 

5-164 

OELET$ 

H-n 

5-143 

5-165 

DIRS 

#4-93 

5-152 

#5-165 

5-165 

#5-166 

EPRINT 

#4-79 

ERRORS 

#4-68 

5-158 

ERRt 

#5-143 

5-143 

#5-146 

5-146 

#5-163 

EXITSS 

#4-93 

5-166 

EXSTIS 

#4-93 

5-165 

FDOFF$ 

#4-96 

4-96 

FDOFSl 

#4-94 

4-96 

LDFDBS 

#5-143 

5-143 

#5-146 

5-146 

#5-165 

MOV$ 

#5-165 

5-165 

NBOFF$ 

#4-97 

4-97 

NBGFSL 

#4-94 

4-97 

OFF$ 

#4-103 

#5-165 

5-165 

5-165 

5-165 

PRINT 

#4-65 

QOPB$ 

#4-103 

4-103 

QIOWS 

#4-93 

4-103 

5-166 

5-163  #5-164  5-164 

5-165  #5-164  5-164 

5-165 
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58 

59 

60 

61 

62 
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000050 

000000 
000002 
000004 
000006 
000010 
000012 
000013 
OOOOK 
000015 
000016 
000017 
000020 
000021 

000000 
65 
66 
67 
68 

69  000022 
70 

71  000000 

72  000002 

73  000004 
7A  000006 

75  000010 

76  000011 

77  000000 


000000 


000022 


000000 


i'lIBRARV  MACRO  CALLS 

;  *  *  *  * 

.MCALL  D1R$, 

CTRDFS 

DECTP$  LIST 

•  DEFINE 

DEC  TEMPLATE 

.ASECT 

.=0 

.BLKU 

.8LKW 

C.SEG: 

.BLKW 

C.NDC: 

.BLKW 

C.LKS: 

.BLKU 

C.JNCT: 

BLK8 

C.OUTT 

SLKB 

C.JNAC 

.8LKB 

CRETE: 

.8LK8 

C.DELF: 

.BLKB 

C.DELW: 

.BLKB 

C.IPL; 

.BLKB 

C.LST: 

.BLKB 

CD.LEN= 

DEFINE  NODE  COUNTER  OFFSETS 
DEFINE  DEC$DF  OFFSETS 


C.LNK 

C.STS 

SEGMENT  SIZE 

MAXIMUM  NODE  COUNTERS 

MAXIMUM  LOGICAL  LINKS 

INCOMING  TIMER 

OUTGOING  TIMER 

INACTIVITY  TIMER 

RETRANSMIT  FACTOR 

DELAY  FACTOR 

DELAY  WEIGHT 

INPUT  PACKET  LIMITER 

LINK  SERVICE  THRESHOLD 


.PSECT 


DEFINE  SLT  TEMPLATE 


.ASECT 

.=0 

.BLKU   1 

.BLKW   1 

C.NAM: 

.BLKW   1 

C.FLG: 

.BLKU   1 

C.CNT: 

.BLKB   1 

CUNT: 

.BLKB   1 

.PSECT 

DDM  PROCESS  NAME 
FLAGS  WORD 
CONTROLLER  NUMBER 
UNIT  NUMBER 


_  o  c  n  c  .  1  / 


CFESUB 
IFNSLT 


COMMON  SUBROUUNES 
FIND   AN  SLT    TEMPI  AlE 
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525  001162  103401 

526  001164  000241 

527  001166  005226 

528  001 17C  000207 


17$: 
20$: 


BCS 

CLC 
INC 
RETURN 


20$ 
(SP)' 


IF  CS,  ERROR 

ELSE,  SUCCESS 

CLEAN  STACK,  PRESERVE  CARRY 


N  15 

oc  nc  .  1 / 


L  16 


"f  lLE<'iD"CFETSB 


CCCCCCCC   F 

FFffFFFfF 

EEEEEEEEEE 

TTTIT 

TTTTT 

SSSSSSSS 

BBBBBB8B 

CCCCCCCC   F 

FFFfF'-FFf 

EEEEEEEEEE 

TTTTT 

TTTTT 

ssssssss 

BB8B88BB 

EE 

ss 

BB     BB 

EE 

ss 

BB     BB 

EE 

ss 

BB     88 

EE 

ss 

BB     BB 

FFFFFFF 

EEEEEEEE 

ssssss 

BB8B8BB8 

FFFFFFF 

EEEEEEEE 

ssssss 

B8BBB8BB 

EE 

ss 

BB     BB 

EE 

ss 

BB     88 

EE 

ss 

BB     88 

EE 

ss 

BB     BB 

CCCCCCCC    F 

EEEEEEEEEE 

ssssssss 

BBB888B8 

CCCCCCCC    F 

EEEEEEEEEE 

ssssssss 

BBB8B8BB 

ssssssss 

ssssssss 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

TTTT 
TTTT 


TTTT 
TTTT 


H  16 
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103c 
1037 
'038 
039 
IOaO 


•'00C22 


000000 


^0^1  000000 

10^2  OO00C2 

^O'.l   OOOOO-i 

10AA  00205i 

iCS 

1046 

10^7 

1048 

10A9 

000001 

1050 

000002 

1051 

000004 

1052 

000010 

1055 

000020 

1054 

000040 

1055 

000100 

1056 

000200 

1057 

000400 

1058 

001000 

1059 

002000 

'06C 

002000 

1061 

004000 

1062 

010000 

1063 

020000 

1064 

040000 

1065 

100000 

'066 

'06^ 

1068 

1069 

1070 

1071 

000001 

•072 

000002 

1073 

000004 

1074 

000010 

1075 

000020 

1076 

000040 

10^7 

000100 

1078 

000200 

1079 

1080 

1081 

1082 

1083 

000100 

1G8'. 

000040 

■085 

000020 

'036 

noccio 

1087 

1088 

1089 

'090 

109' 

1092 

DEFINE  THE  PERMANENT  PA'   JF  THE  TEMPLATES 


C.LNK 
C.STS 
CPRM 


.ASECT 
.=0 
.8LKW 
.BLKU 

.PSECT 


LINK  POINTER 

STATUS  WORD 

PARAMETER  LIST  (VAR.  LENGTH) 


DEFINE  PROCESS  TEMPLATE  FLAGS  WORD  BITS  (SIMILAR  TO  PDV  FLAG  BITS) 

PROCESS  IS  A  DDM 

PROCESS  IS  A  DLC 

PROCESS  IS  AN  LLC 

PROCESS  IS  MARKED  FOR  LOAD 

PROCESS  IS  A  KMC  DEVICE 

PROCESS  IS  A  MUX  DEVICE 

PROCESS  NEEDS  MICRO-CODE 

PROCESS  NEEDS  TIMER  SUPPORT 

PROCESS  NEEDS  MULTIPLE  TIMERS 

DLC  PROCESS  SUPPORTS  COUNTERS  (DLCSDF) 

LLC  PROCESS  NEEDS  a. 25  LEVEL  3  (LLCSDF) 

DDM  PROCESS  HAS  PSEUDO  SLT  (DDMSDF) 

DLC  SUPPORTS  NETWORK  MANAGEMENT  FUNCTIONS  (DDMSDF, 

PROCESS  USES  THE  SYSTEM  LEVEL  INTERFACE  (LLCSDF) 

DEVICE  REQUIRES  DIAGNOSTIC  u-CODE  (DDMSDF) 

PROCESS  RUNS  AT  DEVICE  PRIORITY  (DDMSDF) 

PROCESS  SUPPORTS  INIT/EXIT 


ZF.DDM 

== 

1 

ZF.DLC 

== 

2 

ZF.LLC 

== 

4 

ZF.MFL 

== 

10 

ZF.KMX 

== 

20 

ZF.MUX 

== 

40 

ZF.LMC 

== 

100 

ZF.TIM 

== 

200 

ZF.MTM 

== 

400 

ZF.COU 

=  := 

1000 

ZF.X3P 

=  = 

2000 

ZF.PSE 

=  = 

2000 

ZF.MAN 

=  = 

4000 

ZF.SLI 

r  = 

10000 

ZF.DIA 

=  = 

20000 

ZF.DVP 

=  = 

40000 

zf.in: 

=  = 

100000 

DEFINE  SLT  FLAG  BITS 


LF.ENA  == 

1 

LF.MDC  == 

^ 

LF.MTP  == 

4 

LF.MFL  == 

10 

LF.TIM  == 

20 

LF.X2P  == 

40 

LF.8R0  == 

100 

LF.SER  == 

200 

STATION 

FLAG 

SF.ENA  == 

100 

SF.MFl  == 

40 

SF.SVC  == 

20 

SF.SER  == 

10 

DLCJDF) 


LINE  IS  TO  BE  ENABLED 

LINE  NEEDS  MODEM  CONTROL 

LINE  IS  A  MULTI-POINT  LINE 

LINE  IS  MARKED  FOR  LOAD 

LINE  NEEDS  TIMER  SUPPORT 

LINE  NEED  X.25  LEVEL  2 

LINE  IS  A  BROADCAST  CHANNEL  (ETHERNET) 

LINE  HAS  SERVICE  DISABLED 


STATION  IS  ENABLED 

STATION  IS  MARKED  FOR  LOAD  (PSD 

STATION  IS  AN  SVC 

SERVICE  DISABLED  ON  CIRCUIT 


DEFINE  THE  TEMPLATE  STATUS  WORD  BITS 

(LOW  BYTE  CONTAINS  TEMPLATF  TYPE,  HIGH  BYTE  CONTAINS  STATUS  FLAGS) 


M   1 


CFEIMP     CREATED  BV  MACRO  ON  29-JUN-85  AT  04:56 
SYMPO',  CROSS  REFERENCE 


n  2 

PAGE  6 

CREF   04.00 


SYMBOL  VALUE 


OC.CNT 

OC.CST 

OC.CTM 

OC.DTE 

OC.EXE 

OC.HTM 

OC.MBL 

OC.MRC 

OC.MWI 

OC.MXR 

OC.NUM 

OC.NWC 

OC.PVC 

OC.RPR 

OC.RTM 

OC.SLT 

OC.STA 

OC.STN 

OC.SVC 

OC.TRI 

OC.UNT 

OC.USG 

OC.X25 

OE.ACO 

OE.ADD 

OE.AHO 

OE . AMA 

OE.HOS 

OE.ID 

OE.LNK 

0E.LV2 

OE.MXC 

OE.MXH 

OE.NAM 

OE.NCO 

OE.NN 

OE.NOD 

OE.NSP 

OE.ROU 

OE.RTM 

OE.SUB 

OE.VFY 

OL.BAU 

OL.BSZ 

OL.CNT 

OL.CSR 

OL.CTM 

OL.DPR 

OL.HBT 

OL . NWC 

OL.PLX 

OL.PRI 


=  000000 
=  000004 
=  000001 
=  000020 
=  002000 
=  002000 
=  000100 
=  001000 
=  000010 
^  004000 
=  100000 
=  000240 
^-  000060 
=  040000 
=  000400 
=  046002 
=  000002  G 
=  010204  G 
=  101400 
=  000200 
=  010204 
=  020000 
=  101570 
=  040000 
=  000002 
=  020000 
=  010000 
=  001000 
=  000004 
=  000010 
=  070000  G 
=  000020  G 
=  000040 
=  000001 
=  000200 
=  000100 
=  001007 
=  000610 
=  072160 
=  002000 
=  004000 
=  000400 
=  000040 
=  020000 
=  000624 
=  000200 
=  000001 
=  001000 
=  002000 
^  00CJ20 
=  000010 
^  000004 


REFERENCES 

#11-320 

#11-794 

#11-791 

#11-797 

#11-815 

#11-805 

#11-799 

#11-803 

#11-795 

#11-806 

#11-810 

#11-823 

#11-816 

#11-809 

#11-802 

#11-819 

#11-792 

#11-821 

#11-817 

#11-800 

#11-822 

#11-808 

#11-818 

#11-855 

#11-840 

#11-854 

#11-853 

#11-848 

#11-841 

#11-842 

#11-871 

#11-843 

#11-844 

#11-839 

#11-846 

#11-845 

#11-870 

#11-868 

#11-872 

#11-849 

#11-851 

#11-847 

#11-771 

#11-779 

#11-783 

#11-773 

#11-765 

#11-775 

#11-776 

#11-786 

#11-769 

#11-768 


11-825 
11-821 

11-816 

11-815 
11-818 
11-817 
11-818 
11-819 
11-817 

11-818 
11-819 
11-817 

11-819 
11-822 
11-818 
11-821 
11-827 


11-871 
11-870 
11-871 
11-871 
11-870 
11-870 
11-868 
11-872 
11-872 
11-872 
11-870 
11-368 
11-872 


11-872 

11-868 
11-785 
11-782 
11-825 
11-783 
11-781 
11-785 
11-782 

11-785 
11-783 


11-818 
11-819 


11-826 
11-823 


11-786 
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SYMBOL  VALUE 


BLANK 

DSPTBL 

GTIM 

G.TIBA 

10. ATT 

lO.DET 

lO.WVB 

LFDPB 

Q.IOFN 

TIDPB 

SCFLIS 

SCOMP 

SGTBUF 

SHDRBK 

SSHCIR 

SSHEXE 

SSHLIN 

SSHLOG 

SSHOBJ 

SSHPRO 

SSHREM 

SSHSNA 

SSHSYS 

SSHXAC 

SSHXPR 

SSHXSV 

$SHX29 

$$$AR6 

$$$GLB 


GX 
GX 
GX 


0001  0 
OOOOtO 
0001 lA 
000002 
****** 
****** 
****** 
000064 
000002 
000034  R 
000152  RG 
******  GX 

000130  RG 
000120  RG 
******  GX 
******  GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
000003 
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4-88 
#4-68 
#4-89 

4-89 

4-87 

5-114 

4-88 
#4-88 

4-87 
#4-87 
#5-107 

5-110 

4-89 
#4-90 

4-76 

4-71 

4-74 

4-75 

4-73 

4-70 

4-69 

4-82 

4-72 

4-80 

4-78 

4-79 

4-81 
#4-87 
#4-88 

4-87 


#4-92 
5-112 
5-108 

5-116 


5-113 

4-88 

5-109 


#4-91 
4-77 


*5-114 
*5-114 


*5-116 
5-115 


♦5-116 


4-87 
4-88 
4-88 


4-87 
4-88 
4-89 


#4-88 


#4-88 


4-88 


#4-88 


4-8 
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CO.KNC= 

CS.EVT= 

CS.OBJ= 

CS.PVC= 

CS.SVC= 

C$LENX= 

C.CLS 

C.EVT 

CPRM  = 

C.SNK 

C.STS  = 

DSPTBL 

ERRCTY 

ERRNSC 

ERROBJ 

EVTLEN 

EX$ERR= 

FF.ADO= 


****** 
****** 
****** 
****** 
****** 
****** 
000004 
000006 
****** 

000016 
****** 

000U6R 

00004AR 

OOOIOIR 

OOOOOOR 

000020 

000002 

000020 


GX 
GX 
GX 
GX 
GX 
GX 


FF.CIR 

FF.CON 

FF.FIL 

FF.HST 

FF.LIN 

FF.MOD 

FF.MON 

FF.MSK 

F'^.PRT 

FF.OUL 

FF.REM 

FL.DLM 

FL.X25 

F.ADD 

F.CEV 

F.CIR 

F.CLS 

F.EVT 


000040 
000001 
000002 
040000 
000010 
000100 
000004 
000077 
000200 
000370 
100000 

=      ****** 
****** 

000016 
000030 
000024 
000002 
000004 


GX 
GX 


F.FLG 

F.LEN 

F.LENX= 

F.LIN 

F.LNK 

F.MOD 

F.REM 

F.SEV 

0BJLEN= 

0C.CTM= 

0M.C0N= 

OM.FIL= 

OM.KEV= 

O.LENX= 

PURCIR 

PURLIN 

PURL03 

PUR08J 


000014 

P$VCT  = 

******  GX 

SCOMP  = 

****** 

GX 

000016 

P$VLEN= 

******  GX 

$EVENT= 

****** 

GX 

****** 

GX 

P$VNAM= 

******  GX 

$FLAGS= 

****** 

GX 

000020 

P$V0WN= 

******  GX 

$KNEVT= 

****** 

GX 

000000 

QREM 

001244R 

$OPRND= 

****** 

GX 

000022 

SNKTBL 

000202R 

$PUREM= 

****** 

GX 

000026 

S$LCTT= 

******  GX 

$PUSNA= 

****** 

GX 

000004 

TEMP 

000212R 

$PUXAC= 

****** 

GX 

000013 

WC.EVE= 

******  GX 

$PUXPR= 

****** 

GX 

****** 

GX 

WC.L0G= 

******  GX 

$PUXSV= 

****** 

GX 

****** 

GX 

UC.OBJ= 

******  GX 

$PUXS9= 

****** 

GX 

****** 

GX 

X$LENX= 

******  GX 

$RLBF  = 

****** 

GX 

****** 

GX 

$8YTHN= 

******  GX 

$TMLST= 

****** 

GX 

****** 

GX 

$ByTxr= 

******  GX 

$TNUM  = 

****** 

GX 

000756R 

$CFERR= 

******  GX 

$WILD  = 

****** 

GX 

000734R 

$CFPRG 

000214RG 

$XXAVL= 

****** 

GX 

000360f 

JCIRID= 

******  GX 

.FNSLT= 

****** 

GX 

000226R 

$CLASS= 

******  GX 

.  ABS.  000040 
001256 
Errors  detected: 


000 
001 
0 


(RW,i,GBL,ABS,OVR) 
(RU,I,LCL,REL,CON) 


♦♦*  Assembler   statistics 


kJork      file      reads:    0 

Work      file  writes:   0 

Size  of   work    fi'j:    9209  Words      (    36  Pages) 

Size  of   core  pool:    14440  Words     (    55  Pages) 

Operating     system:   RSX-11M/PLUS 


SYfcFEPRGlv2![132??^4]CFEPRG/CR/-SP=SY:[1,1JRSXMCM.SML/ML,[130,110]NETLIB/ML,C132,10]CFEPRG 


N     6 


CfEPRS  -  STATE  TABLES  TO  PARSE 
LIST  COMPONENTS 

359 
360 
361 

362  000000 

363  000000 
36A  000000 

365  000000 

366  000000 

367  000000 

368  000000 

369  000000 

370  000000 
371 
372 
373 

374  000000 

375  000000 

376  000000 

377  000000 

378  000000 

379  000000 

380  000000 

381  000000 
382 
383 
38A 

385  000000 

386  000000 

387  000000 

388  000000 
389 
390 
391 

392  000000 

393  000000 

394  000000 

395  000000 
396 
397 
398 

399  000000 

400  000000 

401  000000 

402  000000 
403 
404 
405 
406 

407  000000 

408  000000 

409  000000 

410  000000 
411 
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412 
413 
414 


;  LIST  OPTIONS 

FOR  X25-PROTOCOL  MODULE 

STATES 

LIXPR 

TRANS 

ILISOPT,SEXIT 

TRANS 

ILXPRAB.LISOPT 

TRANS 

SLAMDA 

STATES 

LXPRAB 

TRANS 

IKNG,   SEXIT,,        XP.KNG,  SOPRND 

TRANS 

ICUG,   SEXIT,,        XP.CUG,  SOPRND 

TRANS 

IKND,   SEXIT,,        XP.KND,  SOPRND 

TRANS 

IDTE,   SEXIT,,        XP.DTE,  SOPRND 

;  LIST  OPTIONS 

FOR  X25/X29-SERVER,  X25-ACCESS  MODULES 

STATES 

LIXAC   ;;;,    &PSLISO,ALLOWNULL 

TRANS 

SLAMDA 

STATES 

LIXSR 

TRANS 

ILISOPT, SEXIT 

TRANS 

ILXSRAB.LISOPT 

STATES 

LXSRAB 

TRANS 

IDST,   SEXIT,,        XS.DST,  SOPRND 

TRANS 

IKNDS,  SEXIT,,        XS.KND,  SOPRND 

':    PARSE  KNOWN  GROUPS 

STATES 

KNG 

TRANS 

SKSKNO 

STATES 

,£PSPEN 

TRANS 

4kSGRPS, SEXIT 

;  PARSE  CLOSED 

USER  GROUP 

000000 


415  000000 


STATES  CUG 

TRANS  aKSGRP 

STATES  .6PSCUG 

TRANS  SSTRNG,  SEXIT, 

PARSE  KNOWN  DTES 

STATES  KND 

TRANS  gKSKNO 

STATES  ,&PSPEN 

TRANS  kSDTES, SEXIT 


PARSE  KNOWN  DESTINATIONS 

STATES  KNDS 

TRANS  SKSKNO 

STATES  .KPSPEN 

TRANS  8KSDSTS, SEXIT 

PARSE  DESTINATION 

STATES  DST 
TRANS  8KSDST 


.MOCUG 


N  7 


CFEPRS  -   STATE    TABLES    TO  PARSE 
DEFINE   NODE    COMf\ND 


M   p 
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10A3 
10^^ 
1045 
10A6 
1047 
1048 
1049 
1050 
1051 
1052 
1055 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 


000000 
000000 
000000 
000000 

OOOOuu 
000000 
000000 

000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 

oooooo 
oooooo 
oooooo 
oooooo 

oooooo 
oooooo 

oooooo 
oooooo 


oooooo 
oooooo 

oooooo 
oooooo 


STATES 
TRANS 

STATES 
TRANS 

NODADD 
SLAMDA, 

SLAMDA, 

' 

SBL.MAN 
.RNINI 

STATES 
TRANS 
TRANS 

SDNUMB, 
SLAMDA, 

N0DN1 , 
NODFL 

.RNADD 

STATEl 
TRANS 
TRANS 

N0DN1 
SLAMDA, 

PH4AD 
NODND 

STATES 
TRANS 
TRANS 

PH4AD 

SDNUMB, 

SLAMDA, 

NODND, 
NODFL 

.RNAD2 

STATES 
TRANS 
TRANS 
TRANS 

NODND 
SEOS, 
SBLANK, 
SLAMDA 

N0DN2 
N0DN2 

STATES 
TRANS 

NODFL 
SLAMDA 

SEXIT, 

.8L.AU3 

STATES 
TRANS 

N0DN2 
SLAMDA 

SEXIT, 

SBL.AUT 

KNOWN  NODES 

STATES 
TRANS 

KNNOD 
8KSKN0 

STATES  ,&PSPEN 
TRANS  SKSNODS,SEXIT,,WC.N0D,SWILD 


N  8 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  EXECUTOR  COMMAND 

170A 
1705 
1706 

1707  000000 

1708  000000 
1709 

1710  000000 

1711  000000 

1712  000000 
1713 
17U  000000 

1715  000000 

1716  000000 
1717 
1718 
1719 

1720  000000 

1721  000000 
1722 

1723  000000 

1724  000000 
1725 

1726  000000 

1727  000000 
1728 
1729 
1730 

1731  000000 

1732  000000 
1733 

1734  000000 

1735  000000 
1736 

1737  000000 

1738  000000 
1739 
1740 
1741 

1742  000000 

1743  000000 
1744 

1745  000000 

1746  000000 
1747 

1748  000000 

1749  000000 
1750 
1751 
1752 

1753  COOOOO 

1754  000000 
1755 

1756  000000 

1757  000000 
1758 

1759  000000 

1760  000000 
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LOOK  FOR  VERIFICATION 


STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 


EVFY 
8KSVER 


8KSSTA,   VFYI 
SLAMDA 

VFYl.SPSSTA 
8KS0N,      SEXIT, 
SKSOFF,   SEXIT 


SU.VFY,  SSWICH 


LOOK  FOR  HOP  MAXIMUM 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


EHOP 
8KSMAX 

,8PSMAX 
8KSH0P 

.BPSHOP 
SDNUMB, 


SEXIT, 


.EXHOP 


LOOK  FOR  COST  MAXIMUM 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


ECOST 
8KSMAX 

,8PSMAX 
8KSC0S 

,£PSCOS 
SDNUMB, 


SEXIT, 
LOOK  FOR  ADDRESS  MAXIMUM 


.EXCOS 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


ENN 
8KSMAX 

,8PSMAX 
8K$ADD 

,8P$ADD 
SDNUMB, 


SEXIT, 


.EXNN 


LOOK  FOR  MAXIMUM  NODE  COUNTERS 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


ENCOU 
BKSMAX 

,8PSMAX 
8KSN0D 

,&P$N0D 
6KSC0U 


N  9 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  MODULE  COMMAND 

2365  000000 

2366  000000 

2367  000000 

2368  000000 

2369  000000 

2370  000000 
2371 
2372 
2373 
237A 

2375  000000 

2376  000000 

2377  000000 
2578  000000 

2379  000000 

2380  000000 
2381 
2382 
2383 

2384  000000 

2385  000000 

2386  000000 

2387  000000 

2388  000000 

2389  000000 
2390 
2391 
2392 

2393  000000 

2394  000000 

2395  000000 

2396  000000 

2397  000000 
2398 
2399 
2400 

2401  000000 

2402  000000 

2403  000000 

2404  000000 
2405 
2406 
2407 

2408  000000 

2409  000000 

2410  000000 

2411  000000 
2412 
2413 
2414 

2415  000000 

2416  000000 

2417  000000 

2418  000000 

2419  000000 

2420  000000 

2421  000000 
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STATES  NNAM 

TRANS  »KSNET 

STATES  ,&PSNN0 

TRANS  8KSNAM 

STATES  ,&PSNNA 

TRANS  $STfiNG,SEXIT,.MONNA 

SUBEXPRESSION  TO  PARSE  MAXIMUM  CIRCUITS  (MODULE  CHARACTERISTICS) 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


MCIR 
SKSMAX 

&PSPEN 
&KSCIRS 

&PSHCIR 
SDNUMB,  SEXIT, 


.M0HC1 
SUBEXPRESSION  TO  PARSE  MAXIMUM  CIRCUITS  (DTE) 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

SUBEXPRESSION 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

SUBEXPRESSION 

STATES 
TRANS 

STATES 
TRANS 


MCIRD 
SKSmX 

gPSPEN 
SKSCIRS 

&PSMCIR 
SDNUMB,  SEXIT,   .MOMCI 

TO  PARSE  DTE  STATE 


DSTA 
&KSSTA 

^KSOFf , 
8KS0N, 


8PSSTA 

SEXIT 

SEXIT,, 


XP.ST1 
TO  PARSE  GROUP  NUMBER 


SSWICH 


GNUM 
gKilNUM 


6PSNUM 
SEXIT, 


iDNUHB,  SEXIT,   .MONUM 
SUBEXPRESSION  TO  PARSE  TYPE  BILATERAL 


STATES 
TRANS 

STATES 
TRANS 


TBIL 
SKSTVP 


gPSTYP 
SEXIT 


^KSBIL, 
SUBEXPRESSION  TO  PARSE  CHANNEL  LIST 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 


CHNL 
8KSCHNS, 

icAMDA 

CHNLI 

SDNUMB,, 


iPSCHNL 


.MOINC 


.MOCNN 
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#4-243 
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#9-1280 
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#9-1412 
#9-1465 
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#9-1536 
#9-1576 
#10-1640 
#10-1682 
#10-1723 
#10-1759 
#10-1791 
#10-1826 
#10-1863 
#10-1899 
#11-1946 

12-1990 
#12-2040 


#4-174 
#4-184 
#4-194 
#4-204 
#4-214 
#4-224 
#4-234 
#4-244 
#4-257 
#4-267 
#4-277 

#5-322 
#5-387 

6-436 
#6-512 
#6-552 
#6-597 
#6-644 
#6-687 
#6-719 
#7-765 
#7-814 
#7-880 
#7-914 
#7-954 
#7-989 
#7-1028 
#7-1065 
#8-1114 

9-1155 
#9-1207 
#9-1252 
#9-1285 
#9-1314 
#9-1375 
#9-1417 
#9-1470 
#9-1499 
#9-1542 
#9-1579 
#10-1643 
#10-1685 
#10-1726 
#10-1762 
#10-1793 
#10-1828 
#10-1866 
#10-1905 
#11-1949 
#12-1993 
#12-2043 


#4-175 
#4-185 
#4-195 
#4-205 
#4-215 
#4-225 
#4-235 
#4-245 
#4-258 
#4-268 
#4-278 

#5-336 
#5-392 
#6-457 
#6-514 
#6-554 
#6-603 
#6-646 
#6-690 
#6-725 
#7-769 
#7-818 
#7-886 
#7-918 
#7-957 
#7-993 
#7-1031 
#7-1068 
#8-1117 
#9-1159 
#9-1213 
#9-1255 
#9-1287 
9-1322 
#9-1380 
#9-1421 
#9-1472 
#9-1501 
#9-1545 
#9-1584 
#10-1648 
#10-1692 
#10-1731 
#10-1767 
#10-1799 
#10-1831 
#10-1872 
#10-1907 
#11-1955 
#12-1996 
#12-2047 


#4-176 
#4-186 
#4-196 
#4-206 
#4-216 
#4-226 
#4-236 
#4-246 
#4-259 
#4-269 
#4-279 

#5-343 
#5-394 
#6-463 
#6-520 
#6-561 
#6-608 
#6-652 
6-697 
#6-727 
#7-774 
#7-848 
#7-e88 
#7-920 
#7-961 
#7-995 
#7-1034 
#7-1075 
#8-1120 
#9-1162 
#9-1215 
#9-1260 
#9-1289 
#9-1326 
#9-1383 
#9-1424 
#9-1474 
#9-1506 
#9-1548 
#9-1587 
#10-1651 
#10-1695 
#10-1734 
#10-1769 
#10-1801 
#10-1834 
#10-1874 
#10-1910 
#11-1958 
#12-2002 
#12-2051 
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8 
9 

10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 

3-; 

35 
36 
37 
38 
39 
'.O 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE   CFESTB  -  STATE  TABLES  TO  READ  IN  CETAB  FILE 
.IDENT  /V05.00/ 

COPVRIGHT  (C)  1978,  1979,  1980,  1981.  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION; 

STATE  TABLE  AND  ACTION  ROUTINES  TO  DETERMINE  WHICH  DEFINITION  IT  IS. 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00 


10-FEB-78 

VERSION  2.0  RELEASE 


2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  V1.0 


N  13 

_oc  nc  .  1 7 


fFESUB  -  COMMON  SUBROUTINES 


79 
80 
81 
82 
83 
8^ 
85 
86 
87 


90 
91 
92 

93  000000 

94  000000 

95  000000 

96  000000 

97  000000 

98  000000 

99  000000 

100  000000 

101  000000 

102  000000 

103  000000 
101 

105 
106 
107 
108 
109 

110  000001 

111  000000 
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■  REDEFINE  CONSTANTS  FOR  BrTE 

AREA  ALLOCATION 

;  «•  NTL  ALLOCATES  ALL  BLOCKS 

ON  A  4 

BYTE  BOUNDARV 

.MACRO 

REDEF   S,  M, 

R 

.MCALL 
'M 
.IF  NB 

'M 

<'R> 

'^   =-   <  <'St3> 

a  <-c3>  > 

.IFF 

'S'X  ==  <  <'S'! 

>  I   <*C3>  > 

.ENDC 

.ENDM 

REDEF 

O.LEN,  OBJDFS 

;  LENGTH  OF 

REDEF 

R.LEN,  RNBDFS 

LENGTH  OF 

REDEF 

F.LEN,  FLTDFS 

LENGTH  OF 

REDEF 

L$LEN,  DTEDFS 

LENGTH  OF 

REDEF 

C$LEN,  PVCDFS 

LENGTH  OF 

REDEF 

G$LEN,  CUGDFS 

LENGTH  OF 

REDEF 

R$LEN,  RDTDFS 

LENGTH  OF 

REDEF 

X$LEN,  XCBDFS 

LENGTH  OF 

REDEF 

D$FLEN,DSTDF$, 

DSFLNX 

FIXED  PAR 

REDEF 

StLEN,  SVCDFS 

LENGTH  OF 

REDEF 

S.LENG,  SERDFJ 

,S.LENX 

LENGTH  OF 

OBJECT  BLOCK 
REMOTE  NODE  BLOCK 
FILTER  BLOCK 
DTE  DESCRIPTOR  BLOCK 
PVC  NAME  BLOCK 
CUG  BLOCK 
REMOTE  DTE  BLOCK 
X25  CIRCUIT  BLOCK 
U  OF  DESTINATION  BLOCK 
SVC  DESCRIPTOR 
SERSDF  DESCRIPTOR 

THE  LLT  LENGTH  WILL  "ALUAYS*'  INCLUDE  THE  SLI  EXTENSION,  BECAUSE 

CFE  IS  DISTRIBUTED  AS  A  PREBUILT  TASK.  THE  EXTRA  SPACE  WILL  PROBABLY 

BE  USED  FOR  ALIASES,  ADDITIONAL  REMOTE  NODES,  OBJECTS  AND  X.?5  STRUCTURES 
AFTER  THE  SYSTEM  COMES  UP. 


N$$SL1   =  1 

REDEF   L.LNG,  LLTDFS 


FORCE  SLI  EXTENSION 
LENGTH  OF  AN  LLT 


N  U 

_  O  C  A  C  .  1  / 


rfESUB  • 
tFNSTA  • 

530 
531 
532 
533 
53A 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 


M  15 

rOMMON  SuBROOtlNES     MACRO  V05.03b  Saturday  29-Jun-85  05:14 
riND  AN  STATION  TEMPLATE 


Page  15 


001172 
001172 
001174 

547  001176 

548  001200 

549  001206 

550  001210 

551  001212 
'   001220 

001222 
001230 
001232 

556  (^01240 

557  IjOV42 
558 


.S8TTL 
*••  -  IFNSTA 
INPUTS 


$FNSTA  -  FIND  AN  STATION  TEMPLATE 
-  FIND  AN  STATION  TEMPLATE 


R1  =  ADDRESS  OF  CONTEXT  BLOCK 
R5  =  POINTER  TO  CURRENT  TEMPLATE 

OUTPUTS: 

C-8IT  ^  SUCCESS/FAILURE 
R5  =  ADDRESS  OF  TEMPLATE 


552 
553 
554 
555 


011505 
000261 
001421 
122765 
000261 
001014 
032767 
001004 
126165 
001360 
116567 
000241 
000207 


SFNSTA:: 
10$: 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  15$: 
20$: 


MOV 

SEC 

BEQ 

CMPB 

SEC 

BNE 

BIT 

BNE 

CMP8 

BNE 

MOVB 

CLC 

RETURN 


(R';),R5 

20$ 
*CS.STA,C.STS(R5) 

20$ 

#WC.TRI,$W1LD 

15$ 

L$TRI(R1),C.PRM(R5) 

10$ 

C.PRM(R5),$STAN 


GET   NEXT    TEMPLATE 

ASSUME    FAILURE 

IF   EQ,    END   OF   LIST 

IS   THIS   A   STATION   TEMPLATE    ? 

ASSUME   NOT 

IF   NE,    NO    ..    NOT   HERE 

WILD    TRIBUTARIES    ? 

IF   NE,    VES 

IS   THIS    THE   RIGHT    TRIBUTARY    ? 

IF   NE,    NO    ..    KEEP   LOOKING 

SAVE    THE    CURRENT    STATION  NUMBER 

INDICATE    SUCCESS 


N  15 

DC    nc , 1 / 


n  16 

''nSB  -  TtNlPLA'E   PAf<S[    SUBROJT   MACRO  vOS.O^b   Saturday   ?9-Jun-85   05:15 

table  0'  contents 

I,.       57    DATA  AREA 

5-   69    SGTNUM  -  GET  NUMBER  INTO  (EMPLAIE  (WORD) 

5-   70    $GINM8  -  GET  NUMBER  INTO  TEMPLATE  (BrTE) 

5-  in    $GTR50  -  GET  RAD50 

5-  169    SCLERR  -  CLEAR  p'.RSE  ERROR 


N  1 

rtflMP  .  5<MB0L  DEMMTIONS  ftND  MACRO  VO5.03b  Saturday  29-Jun-85  04:55  Page  12-1 
DEFINE  'EWPlA'ES  globally 


1095 

000001 

1094 

000002 

'095 

000003 

109fc 

000004 

1097 

000005 

'098 

000006 

109<3 

000007 

'100 

000010 

1101 

000011 

1102 

000012 

1103 

000C13 

'104 

000C14 

1105 

000015 

1106 

000016 

1107 

000017 

11C8 

000020 

1109 

1110 

1111 

1112 

000021 

1113 

000022 

1114 

000023 

1115 

000024 

1116 

000025 

1117 

000026 

-118 

000027 

119 

000030 

1120 

000031 

1121 

000032 

1122 

000033 

1125 

000034 

1124 

000035 

1125 

1126 

1127 

1128 

1129 

1'30 

1131 

000040 

1132 

000041 

1133 

000042 

1134 

000043 

1135 

1136 

1137 

1138 

1139 

000044 

1140 

000045 

1141 

1142 

1143 

1144 

000046 

1145 

-U6 

1147 

1148 

1149 

100000 

CS.8UF  ==  1 

BUFSDF 

TEMPLATE 

CS.SLT  ==  2 
CS.LLC  ==  3 

SLTSDF 

TEMPLATE 

LLCSDF 

TEMPLATE 

CS.DLC  ==  4 

DLCSDF 

TEMPLATE 

CS.DDM  ==  5 

DDMSDF 

TEMPLATE 

CS.CNT  ==  6 

CNTSDF 

TEMPLATE 

CS.UNT  ==  7 

UNTSDF 

TEMPLATE 

CS.STA  ==  10 

STASDF 

TEMPLATE 

CS.PAR  ==  n 

PARSDF 

TEMPLATE 

CS.NOD  -=  1." 

NODSDF 

TEMPLATE 

CS.REM  ==  13 

REMSDF 

TEMPLATE 

CS.OBJ  ==  14 

OBJJDF 

TEMPLATE 

CS.FEA  ==  15 

FEASDF 

TEMPLATE 

CS.ROU  ==  16 

ROUIDF 

TEMPLATE 

CS.EVT  ==  17 

EVTSDF 

TEMPLATE 

CS.LOG  ==  20 

LOG$ST 

TEMPLATE 

•  PSl  TEMPLATES  ♦*  ORDER  Ml   NOT  BE  CHANGED  ** 

CS.SVC  ==  21 

SVCSDF 

TEMPLATE 

CS.PSN  ==  22 

PSNSDF 

TEMPLATE 

CS.)(3P  ==  23 

X3P$DF 

TEMPLATE 

CS.X2P  ==  24 

•  X2P$DF 

TEMPLATE 

CS.X29  ==  25 

•  X29$DF 

TEMPLATE 

CS.DTE  ==  26 

•  DTESDF 

TEMPLATE 

CS.CHN  ==  27 

•  CHNSDF 

TEMPLATE 

CS.PVC  ==  30 

■  PVCSDF 

TEMPLATE 

CS.CUG  ==  31 

;  CUGSDF 

TEMPLATE 

CS.DST  ==  32 

;  DSTSDF 

TEMPLATE 

CS.DSA  ==  33 

;  DSASDF 

TEMPLATE 

CS.DSC  ==  34 

;  DSCSDF 

TEMPLATE 

CS.RDT  ==  35 

;  RDTSDF 

TEMPLATE 

;  36  (RESERVED  FOR  POSSIBLE 

;  37  FUTURE  USE) 

•  SNA  GATEWAY  TEMPLATES  (ORDER  NOT  IMPORTANT) 

CS.SNA  ==  40 

CS.SAC  ==  41 

CS.SAD  ==  42 

CS.SPU  ==  43 


SNASDF  TEMPLATE 

SACSDF  TEMPI  ATE 

SADSDF  TEMPLATE 

SPUSDF  TEMPLATE 


EXTENDED  REMOTE  NODE  DEFINITION  TEMPLATES 


CS.SER 
CS.FIL 


==  44 
==  45 


DECSDF  TEMPLATE 

CS.DEC  ==  46 

COMMON  STATUS  FLAGS 

CS.MOD  ==  100000 


SERSDF  TEMPLATE 
,-IL$DF  TEMPLATE 


DECSDF  TEMPLATE 


=  1  IF  TEM^uf.'L  W, 


I  ED 


CfEIMP     CREATED  BY  MACRO  ON  29-JUN-85  AT  0^:56 
SYMBOL  CROSS  REFERENCE 


N  2 

PAGE  7 

CREF   04.00 


SYMBOL  VALUE 


OL.RTC 
OL.RTT 

ol.";ec 

OL.j,.T 
OL.STA 
OL.STN 
OL.UNT 
OL.URM 
OL.VEC 
OL.WSZ 
CL.X25 
OM.CON 
OH. EVE 
Or".FIL 
OM  KEV 
0M.,"1ON 
OM.STA 
ON.At/T 
ON. NAM 
00. COP 
00. NAM 
OO.USR 
OO.VFY 
OP.NCT 
OP.NLT 
OP.STA 


=  004000 
=  040000 
=  000100 
=  000003 
=  000002 
=  000000 
=  001150 
=  000400 
=  000020 
=  010000 
=  076000 
=  000004 
=  000020 
=  000010 
=  000040 
=  000002 
=  000001 
=  000001 
=  000001 
=  000400 
=  002000 
=  000200 
=  001000 
=  000004 
=  000002 
=  000001 


REFERENCES 

#11-777 
#11-780 
#11-772 
#11-781 
#11-766 
#11-784 
#11-785 
#11-774 
#11-770 
#11-778 
#11-782 
#11-930 
#11-932 
#11-931 
#11-933 
#11-929 
#11-928 
#11-893 
#11-892 
#11-922 
#11-924 
#11-921 
#11-923 
#11-835 
#11-834 
#11-833 


1-782 
1-782 
1-785 

1-781 
1-785 
1-827 
1-783 
1-783 
1-782 


11-786 
11-826 
11-786 


OS.BLK 

=  001000 

G 

#11-886 

11-887 

OS.BUF 

=  000370 

G 

#11-888 

OS. BYT 

=  000400 

G 

#11-885 

11-887 

OS.CCB 

:=  000010 

G 

#11-880 

11-888 

OS. LOG 

=  000001 

G 

#11-877 

11-887 

OS. NAM 

=  000002 

G 

#11-878 

11-887 

OS. PAR 

=■■  000004 

G 

#11-879 

11-887 

OS.PRT 

=  001407 

G 

#11-887 

OS.RBN 

=  000020 

G 

#11-881 

11-888 

OS.RBS 

=  000040 

G 

#11-882 

11-883 

OS.SBN 

=  000100 

G 

#11-883 

1''-888 

OS.THR 

=  000200 

G 

#11-884 

11-888 

PVSOWN 

=  000400 

G 

#12-1165 

PV$PSZ 

=  001000 

G 

#12-1166 

PVSWSZ 

=  002000 

G 

#12-1167 

PSSFLG 

000012 

G 

#9-465 

PSSLEN 

=  000020 

G 

#9-468 

PtSNAM 

000004 

G 

#9-463 

PSSPOR 

000010 

G 

#9-464 

PSSTHI 

000016 

G 

#9-467 

PSSTLO 

000014 

G 

#9-466 

P$VCT 

000012 

G 

#9-499 

P$VFLG 

000022 

G 

#9-5(3 

PSVLCN 

000010 

G 

#9-h98 

PSVLEN 

=  000024 

G 

#9-505 

PSVNAM 

0OO0U4 

G 

#9-49? 

N  3 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 

^l^ 

25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3£ 
3° 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


CFEINI  -  ONCE  ONLY  INITIALIZATION 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  D'GITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  END  OF  TASK  INITIALIZATION 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

AUTHOR:  ROD  GAMACHE 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


N  ^ 

CFELIS     CREATED  BY  MACRO  ON  29-JUN-85  AT  04:57    PAGE  2 

MACRO  CROSS  REFERENCE  CREF   04.00 

MACRO  NAME      REFERENCES 

5-113      5-115 

4-88 


DIRS 

#4-60 

5-1 08 

5-10 

GTIMS 

#4-60 

4-89 

OFF$ 

#4-87 

#4-88 

#4-89 

QDPBS 

#4-87 

4-87 

#4-88 

Q10U$ 

#4-60 

4-87 

4-88 

N  5 
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1 
2 
3 
t, 
5 
6 
7 
8 
9 
10 

n 
:2 

13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE 
.IDENT 


CFEPRG  -  PERFORM  PURGE  COMMAND 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  ^  LICENSE  AND  MAY  8E  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  A80VE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  PERFORM  PURGE  COMMAND 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY; 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

r.OO  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 


CFEPRG  CREATED  BV     MACRO     ON  29-JUN-85   AT   04:57 

SYMBOL  CROSS  REFERENCE 


N     6 

PAGE   1 

CREF        04.00 


SYMBOL 

VALUE 

REFERENCES 

CO.KNC 

-   ****** 

GX 

11-335 

11-353 

CS.EVT 

=   ****** 

GX 

9-263 

CS.OBJ 

~    ****** 

GX 

8-187 

CS.PVC 

:r     ****** 

GX 

11-351 

CS.SVC 

~     ****** 

GX 

11-382 

CSLENX 

=     ****** 

GX 

11-376 

11-377 

C.CLS 

000004 

#6-142 

9-265 

C.EVT 

000006 

#6-143 

9-270 

CPRM 

=    ****** 

GX 

8-191 

C.SNK 

000016 

#6-144 

9-267 

C.STS 

=  ****** 

GX 

8-187 

9-263 

11-35 

DSPTBL 

000U6 

R 

#5-101 

7-164 

ERRCTY 

000044 

R 

#5-93 

11-397 

ERRNSC 

000101 

R 

#5-94 

11-399 

ERROBJ 

000000 

R 

#5-92 

8-212 

EVTLEN 

000020 

#6-145 

9-290 

EXSERR 

=  000002 

#5-91 

5-92 

5-93 

FF.ADD 

=  000020 

#4-81 

4-81 

FF.CIR 

=  000040 

#4-81 

4-81 

FF.CON 

=  000001 

#4-81 

5-121 

9-246 

FF.FIL 

=  000002 

#4-81 

5-122 

9-249 

FF.HST 

=  040000 

#4-81 

FF.LIN 

=  000010 

#4-81 

4-81 

FF.MOD 

=  000100 

#4-81 

4-81 

FF.MON 

=  000004 

#4-81 

5-123 

9-252 

FF.MSK 

=  000077 

#4-81 

FF.PRT 

=  000200 

#4-81 

4-81 

FF.OUL 

=  000370 

#4-81 

FF.REM 

=  100000 

#4-81 

FL.DLM 

=  ****** 

GX 

11-340 

11-366 

FL.X25 

-  ****** 

GX 

11-338 

F.ADD 

000016 

#4-81 

F.CEV 

000030 

#4-81 

F.CIR 

000024 

#4-81 

F.CLS 

000002 

#4-81 

F.EVT 

000004 

#4-81 

F.FLG 

000014 

#4-81 

F.LEN 

000016 

#4-81 

F.LENX 

:=     ****** 

GX 

9-293 

9-294 

F.LIN 

000020 

#4-81 

F.LNK 

000000 

#4-81 

F.MOD 

000022 

#4-81 

F.REM 

000026 

#4-81 

F.SEV 

000004 

#4-81 

OBJLEN 

=  000013 

#6-134 

8-197 

OC.CTM 

r     ****** 

GX 

11-361 

OM.CON 

-     ****** 

GX 

9-247 

OM.FIL 

=     ****** 

GX 

9-250 

OM.KEV 

r    ****** 

GX 

9-231 

9-297 

O.LENX 

-    ****** 

GX 

8-200 

8-201 

PURCIR 

000756 

R 

5-109 

5-110 

#11-33 

PURLIN 

000734 

R 

5-107 

#10-311 

11-382 


5-94 


CFEPRS  -  STATE  TABLES  TO  PARSE 
LIST  COMPONENTS 

416  000000 

417  000000 
418 

419 
420 

421  000000 

422  000000 
425  000000 

424  000000 

425  000000 

426  000000 

427  000000 

428  000000 

429  000000 
450  000000 
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STATES  ,8P$DST 
TRANS  SSTRNG,  SEXIT,   .MODST 


•  DEFINE  COM'-nNENTS 

STATES 

DEFINE,  8PSDEF 

TRANS 

IDEFCIR.EXIT 

TRANS 

!DEFLIN,EXIT 

TRANS 

IDEFPRO.EXIT 

TRANS 

:defexe,exit 

TRANS 

IDEFSYS.EXIT 

TRANS 

IDEFOBJ.EXIT 

TRANS 

IDEFNOD.EXIT 

TRANS 

IDEFLOCEXIT 

TRANS 

IDEFMOD.EXIT 

CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  PROCESS  COMMAND 

1081 
1082 
1083 
1084 

1085  000000 

1086  000000 

1087  000000 
1088 

1089  000000 

1090  000000 
1091 

1092  000000 

1093  000000 
109A  OOOOOO 
1095 
1096 
1097 

1098  000000 

1099  000000 
-100  000000 
1101  000000 
1102 
1103 
1104 

iio:  000000 

1106  000000 
1107 

1108  000000 

1109  000000 

1110  000000 

1111 

1112 

1113 

11U  000000 

1115  000000 

1116 

1117  000000 

1118  000000 
1119 

1120  ooeooo 

1121  000000 
1122 
1123 
1124 

1125  000000 

1126  000000 
1127 

1128  000000 

1129  000000 
1130 

1131  OCOOOO 

1132  000000 
1135 
1134 
1135 
1136 
1137  000000 
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.SBTTL  DEFINE  PROCESS  COMMAND 

DGFINE  PROCESS  COMMAND 

STATES  DEFPRO 
TRANS  IPROID,PROC,,CO.PRO,SCOMP 
TRANS  IKNPRO,,,CO.KNP,$COHP 

STATES  PROCSPSDEPR 
TRANS  IPROPT 

STATES  PROO 
TRANS   IPROPT, PROO 
TRANS  SLAMDA,SEXIT 

PROCESS  OPTIONS 

STATES  PROPT 

TRANS  IPSTATE,SEXIT,,OP.STA,SOPRND 

TRANS  ILJNMAX,$EXIT,,OP.NLT,SOPRND 

TRANS  ICNTMAX,SEXIT,,OP.NCT,SOPRND 


STATE 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

MAXIMUM  LINES 

STATES 
TRANS 


PSTATE 
8KSSTA 

,8PSPSTA 

8KS0N,SEXIT,,SW.LnA,SSWICH 

BKSCLE.SEXIT 


STATES 
TRANS 


LINMAX 
&KSMAX 

,fcl-?PEN 
8KSLIN 


STATES  .8PSMXLI 
TRANS  $DNUMB,SEXIT,.PR,«i  T 

MAXIMUM  CONTROLLERS 


STATES 
TRANS 


CNTMAX 
8^SMAX 


STATES  ,8PSPEN 

TRANS  8KSC0N 

STATES  ,8PSHXC0 

TRANS  SDNUMB,SEXIT,.PRNCT 

.SBTTL  SUB-EXPRESSIONS  FOR  PROCESS  ID 

LOOK  FOR  "KNOWN  PROCESSES" 

STATES  KNPRO 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  EXECUTOR  COMMAND 

1761 

1762  000000 

1763  000000 
176A 
1765 
1766 

1767  000000 

1768  000000 

1769  000000 

1770  000000 

1771  000000 

1772  000000 
1773 
1774 
1775 

1776  000000 

1777  000000 

1778  000000 

1779  000000 

1780  000000 

1781  000000 
1732  000000 

1783  000000 

1784  000000 
1785 
1786 
1787 
1788 

1789  000000 

1790  000000 

1791  000000 

1792  000000 

1793  000000 

1794  000000 

1795  000000 
1796 
1797 
1798 

1799  tlJOOO 

1800  000000 
1R01  000000 

02  000000 

1803  000000 

1804  000000 

1805  COOOOO 

1806  000000 

1807  000000 

1808  000000 
1809 
1810 
1811 
1812 

1813  OOOOOC 

1814  000000 

1815  COOOOO 

1816  000000 

1817  000000 
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STATES  ,8P$MNC 
TRANS  SDNUMB,  SEXIT,   .EXNC 

LOOK  FOR  ROUTING  TIMER 

STATES  EROU 

TRANS  8KSR0U 

STATES  ,gP$ROU 

TRANS  4kSTIM 

STATES  .SPSROUT 

TRANS  SDNUMB,  SEXIT,   .EXRTM 

LOOK  FOR  EXECUTOR  SUBADDRESS  RANGE 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 


ESU8 
gKSSUBA 

iONUMB, 

SLAMDA, 
ESU82 
SDNUMB , 


KPSSUBA 


ESUB2 
SEXIT 

SEXIT, 


.EXSUB 


.EXSB2 


Executor  Maximum  Area 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 


EAMAX 

SKSMAX 

,8PSMAX 

8KSAPE 

,6PSMXA 

SDNUMB , 

SLAMOA, 


SEXIT, 
SFAIL 


.EAMAX 


Executor  Area  [Maximum]  Hops 

STATES  EAHOPS 

TRANS  8K$ARE 

STATES  ,8PSA0P 

TRANS  SKSMAX,  AH0P2 

TRANS  SLAMDA 

STATES  AH0P2 

TRANS  8KSH0P 

STATES  ,&PSAHOP 

TRANS  SDNUMB,  SEXIT, 

TRANS  SLAMDA,  SFAIL 


Executor  Area  [Maximum]  Cost 

STATES  EACOST 
TRANS  8KSARE 
STATES  .8PSA0P 
TRANS  SKSMAX,  AC0S2 
TRANS  SLAMDA 


.EAHOP 


CFEPRS  -  STATE  TABLES  TO  PARSE 
DEFINE  MODULE  COMMAND 

2A22  000000 
2423  000000 
Ikm  000000 
2425 
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TRANS  <',>,   CHNLl 
TRANS  '^'->,   CHNLl, 
TRANS  SLAMDA,  SEXIT 


.MOCRN 
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MACRO  CROSS  REFERENCE  '"REF        OA.OO 

MACRO  NAME  REFERENCES 

#12-2056  #12-2060  #12-2063  #12-2069  #12-2072  #12-2075  #12-2078  *12-2083  #12-2086  #12-2089 

#2-2092  #2-2097  #2-2100  #12-2103  #12-2106  #12-2111  #12-21U  #12-2117  #12-2120  #2-2  25 

#2-2128  #2-213  #  2-2  3A           3-2U1  #13-2151  #13-2151  #13-2160  #13-2163  #13-2166  #3-2172 

#  3-2  7A  #3-2  77  #3-2  83  #3-2  86  #3-2189  #13-2195  #13-2198  #13-2200  #13-2?°?  *  1"??^ 

#3-2217  #3-222  #3-2237  #  3-22A0  #13-22A2  #13-22A6  #13-2256  #13-2259  #13-2261  #13-2265 

#3-2273  #3-2275  #3-2277  #3-2282  #  3-228A  #13-2286  #13-2291  #13-2293  #13-2295  #13-2^92 

#3-2302  #  3-230A  #3-2309  #3-2311  #3-2313  #13-2319  #13-2321  #13-2323  #13-2328  #  3-2|l2 

#3-2332  #3-2337  #3-2339  #3-234  #  3-23A6  #13-2348  #13-2350  #13-2355  #13-2357  #3-2359 

#3-2365  #3-2367  J  3-2369  *  3-2375  #13-2377  #13-2379  #13-2384  #13-2386  #13-2?§?  *?'???? 

#3-2395  #3-240  #3-2403  « 13-2408  #13-2410  #13-2415  #13-2417  #13-2419  #3-2^21  1^-243 

#4-2433  #4-2435  #14-2438  #14-2445  #14-2447  #14-2449  #14-2451  #14-2457  #14-2459  #14-2464 

#4-2466  #4-2471  #4-2473  #14-2475  #14-2480  #14-2482  #14-2484  #14-248?  #14-2491  #4-2494 

#4-2500  #  4-25    ;  #14-2513  #14-2518  #14-2520  #14-2522  #14-2525  #14-2531  #14-2533  #14-2539 

Sit:  i  ii^l?  i\tki  ^t^  J]r-iii(  ^t^  i>\t^  21SJ  v^^  i^^ 

tl^d'''  tl'-2ir  V^^''  T-g'  #1^2jf^  ^'  #4-291  #4-292  #4-293  #4-294 

#5-332  #5-333  #5-334  #5-337  #5-338  #5-344  #5-345  #5-346  #5-347  #5-352 

#5-353  #5-354  #5-355  #--356  #5-357  #5-358  #5-363  #5-364  #5-365  #5-367 

#5-368  #5-369  #5-370  #5-3/5  #5-377  #5-378  #5-380  #5-381  #5-386  #5-388 

#5-393  #5-395  #5-400  #5-402  #5-408  #5-410  #5-415  #5-417  #5-422  #5-423 

til.r?l  #5-425  #5-426  #5-427  #5-428  #5-429  #5-430  #6-437  #6-438  #6-439 

#6-440  #6-441  #6-442  #6-443  #6-444  #6-445  #6-446  #6-447  #6-448  #6-449 

#6-450  #6-451  #6-453  #6-458  #6-459  #6-465  #6-466  #6-468  #6-469  #6-470 

#6-471  #6-472  #6-473  #6-474  #6-475  #6-476  #6-477  #6-478  #6-479  #6-480 

#6-48  #6-486  #6-492  #6-493  #6-495  #6-501  #6-502  #6-504  #6-505  #6-507 

#6-513  #6-515  #6-521  #6-523  #6-528  #6-529  #6-531  #6-536  #6-538  #6-53? 

#6-545  #6-546  #6-548  #6-553  #6-555  #6-556  #6-562  #6-564  #6-56i  #6-57 

#6-572  #6-575  #6-576  #6-579  #6-585  #6-588  #6-589  #6-595  #6-598  #6-604 

#6-609  #6-614  #6-615  #6-620  #6-622  #6-627  #6-62?  #6-630  #6-63  #6-632 

#6-634  #6-635  #6-640  #6-64:  #6-647  #6-648  #6-653  #6-654  #6-66  #6-662 

#6-665  #6-666  #6-669  #6-670  #6-673  #6-674  #6-677  #6-680  #6-681  #6-6e4 

#6-685  #6-688  #6-691  #6-698  #6-700  #6-702  #6-704  #6-705  #6-707  #6-709 

#6-710  #6-711  #6-713  #6-715  #6-720  #6-721  #6-726  #6-728  #6-730  #6-735 

#6-742  #6-745  #6-746  #6-747  #6-752  #6-755  #7-763  #7-766  #7-767  #7-770 

J7-775  Dj.jjy  #7-778  #7-779  #7-780  #7-781  #7-782  #7-783  #7-784  #7-785 

#7-786  #7-787  #7-788  #7-789  ,»7-790  #7-795  #7-797  #7-799  #7-800  #7-801 

#7-804  #7-805  #7-810  #7-811  *7-813  #7-815  #7-816  #7-819  #7-820  #7-82 

#7-822  #7-823  #7-824  #7-825  #7-826  #7-827  #7-828  #7-829  #7-830  #7-83 

#7-832  #7-833  #7-834  #7-835  #7-836  #7-837  #7-838  #7-839  #7-840  #7-84 

#7-842  #7-843  #7-844  #7-849  #7-850  #7-853  #7-854  #7-857  #7-853  #7-86 

#7-864  #7-865             7-868  #7-869  #7-870  #7-871  #7-872  #7-877  #7-879  #7-881 

#7-882  #7-887  #7-889  #7-891  #7-892  #7-897  #7-898  #7-900  #7-902  #7-904 

#7-^05  #7-910  #7-912  #7-913  #7-915  #7-916  #7-919  #7-92  #7-922  #7-923 

t'y.qil  #7-930  #7-931  #7-933  #7-935  #7-936  #7-941  #7-944  #7-945  #7-948 

#7-950           #7-953  #7-958  #7-959  #7-962  #7-964  #7-969  #7-970  #7-973  #7-974 

#7-977           #7-980  #7-982  #7-987  #7-990  #7-991  #7-994  #7-Q96  #7-1001  #7-1004 

i7-1007         #7-1009  #7-1015  #7-1016  #7-1022  #7-1025  #7-1026  #7-102?  #7-1032  #7-1035 

#7-1036         #7-1039  #7-1044  #7-1046  #7-1049  #7-1050  #7-1053  #7-1054  #7-057  #7-058 

#7-1061         #7-1062  #7-1063         #7-1066  #7-1069  #7-1076  #7-1079  #8-1086  #8-1087  #8-1090 


_J 
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table  ot  content? 

A-  46    MACRO  CALLS 

5-  59    $RQBF  -  REQUEST  CORE  BLOCK  WITH  TASK  EXTENSION 

6-  111    .RQCB   REQUEST  CORE  BLOCK 
6-  112    SRLBF    RELEASE  CORE  BLOCK 
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•^7 

58 

59 

60 

61 

62 

65 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98  000073 

99  000076 
100  000000 


•  LOCAL  MACROS 

;  »  *  ♦  * 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MJST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  ifXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 


MOV 
.ENDC 
CALL 
.ENDM 


TEXT.RO 

SCFERl 
EPRINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINI  MESSAGE  ON  ERROR  LUN 


MACRO  CALLS 
**** 


.MCALL   ISTATS, STATES, TRANS 


LOCAL  DATA 
**** 

SEMI  =  •; 
R8RKT  =  '> 
SERR0R::.8LK;U   1 


SEMICOLON  FOR  TPARS  TABLES 

RIGHT  BRACKET 

NON-ZERO  IF  SYNTAX  ERROR 


CFESUB  -  COMMON  SUBROUTINES 


115 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
135 
137 
138 
139 
HO 
K1 
K2 
U3 
144 
145 
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UTILITIES 

THIS  FILE  CONTAINS  COMMONLY  USED  SUBROUTINES  TO  PERFORM 
REPEATED  FUNCTIONS. 

$PRINT  -  PRINT  ROUTINE 


$CFERR 
SCFERl 


PRINT  ERROR  MESSAGE  AND  SET  UP  EXIT  STATUS 
JUST  PRINT  ERROR  MESSAGE 


SMVASC  -  MOVE  ASCII  STRING  TO  OUTPUT  BUFFER 


$QINS  - 
$QINSN 


INSERT  ENTRY  AT  END  OF  QUEUE 
-  INSERT  ENTRY  INTO  MIDDLE  OF  QUEUE 


$C5TA  -  CONVERT  EXTENDED  RAD50  TO  ASCII  AND  REMOVE  SPACES  AT  END 
$C5TA1-  CONVERT  EXTENDED  RAD50  ("-")  TO  ASCII,  TRIMMED 

SCATS  -  CONVERT  ASCII  TO  RAD50 

.CAT5  -  CONVERT  ASCII  TO  EXTENDED  RAD50  (  '♦  ) 

.CAT5E-  CONVERT  ASCII  TO  EXTENDED  RAD50  (  -  > 

SFNPRO  -  FIND  NEXT  PROCESS  IN  TEMPLATES 

SFNSLT  -  FIND  NEXT  SLT  IN  TEMPLATES 

.FNSLT  -  FIND  NEXT  SLT  FOR  SET  KNOWN  LINES/CIRCUITS 

SFNSTA  -  FIND  NEXT  STATION  IN  TEMPLATES 

SUPBLK  -  UPDATE  POOL  BLOCK  ALLOCATION 
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t'jPBLK  -  UPDATE  POOL  BLOCK  ALLOCATION 
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560 
561 
562 
56? 
56A 
565 
566 
567 
568 
569 
570 
571 
572 
573 
57A 
575 
576 
577 

578  0012^4 

579  001244 

580  001250 

581  00125A 

582  001256 

583  001260 
584 

585  001262 

586  001264 

587  001266 

588  001274 

589  001276 

590  001300 

591  001302 

592  001310 

593  001312 

594  001314 

595  001316 

596  001324 

597  001326 

598  001332 
590 

600  001334 

60 1  001336 
<.02  001340 
.03  001342 

604  001344 

605  001350 

606  001354 

607  001360 

608  001362 

609  001364 
610 

611 
612 

613  001404 

614  001410 

615  001412 

616  001416 


004767 
016700 
005001 
005002 
005004 

011000 
001423 
126027 
001002 
010002 
000770 
126027 
001002 
010001 
000762 
126027 
001356 
016004 
000753 

005702 
001444 
005701 
001442 
016101 
012700 
004767 
006304 
060401 
062701 
000006 


016700 
100010 
016200 
160100 


.S8TTL   tUPBLK  -  UPDATE  POOL  BLOCK  ALLOCATION 

•»•  lUPBLK  -  UPDATE  POOL  BLOCK  ALLOCATION 

INPUTS       TEMPLATES  IN  LIST: 

LLCSDf  FOR  XPT  (NODE  COUNTERS) 
Rt}U$DF  ;  1AX  ADDRESS,  OPTIONAL) 
JPBLK  -  POLL  BLOCK  AREA  FUDGE  FACTOR 


OUTPUTS 


REGISTERS 


OOOOOOG 
OOOOOOG 


$11-- 


10$: 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  20$: 

OOOOOOG  OOOOOOG  30$: 
OOOOOOG 

40$: 


000006 
000050 
OOOOOOG 


000077 

OOOOOOG 
00001 OG 


CALL 

MOV 

CLR 

CLR 

CLR 

MOV 

BEQ 

rMPB 

uNE 

MOV 

BR 

CMP8 

BNE 

MOV 

BR 

CMPB 

BNE 

MOV 

BR 

TST 

BEQ 

TST 

BEQ 

MOV 

MOV 

CALL 

ASL 

ADD 

ADD 

.REPT 

ASR 

.ENDR 

MOV 

BPL 

MOV 

SUB 


CARRY  CLEAR: 

PAR$DF  BLOCK  ALLOCATION  UPDATED. 
CARRY  SET" 

ERROR  -  DEC$DF  OR  rAR$DF  MISSING 

ALL  REGISTERS  ARE  PRESERVED 


$SAVAL 

$TMLST,RO 

R1 

R2 

R4 


SAVE  REGISTERS 
POINT  TO  TEMPLATE  LISTHEAD 
NO  NODE  COUNTERS  AS  YET 
NO  PARTITION  TEMPLATE  YET 
NO  MAX  ADDRESS  AS  YET 


(RO),RO        ;  NEXT  TEMPLATE 

40$  ;  IF  EQ,  DONE  WITH  LIST 

C.STS(RO),#CS.PAR  ;  CHECK  FOR  PARTITION  TEMPLATE 

20$  ;  BR  IF  NE 

R0,R2         ;  ELSE  SAVE  ADDRESS 

10$  ;  CONTINUE 

C.STS(RO),#CS.DEC  ;  CHECK  FOR  DEC$DF  TEMPLATE 

30$  ;  BR   IF   NE 

RO.RI  ;  ELSE   SAVE   ADDRESS 

10$  ;  CONTINUE 

C.STS{RO),#CS.ROU  ;  CHECK  FOR  ROUTING  TEMPLATE 

10$  ;  BR  IF  NE 

C.PRMtO(RO),R4     ;  ELSE   SAVE  MAX  ADDRESS 

10$ 


R2 

50$ 

HI 

50$ 

C.NDCCRD.RI 

#E$NLEN,RO 

$MUL 

R4 

R4,R1 

#65.,R1 

6 

Rl 

$P8LK,R0 

45$ 

C.PRM+10(R2),R0 

R1,R0 


GOT   A  PARTITION   TEMPLATE    ? 

IF  EQ,  NO  -  ERROR 

GOT  XPT  LLC  TEMPLATE  ? 

IF  EQ,  NO  -  ERROR 

ELSE  GET  NUMBER  OF  NODE  COUNTERS 

SIZE  OF  A  COUNTER  BLOCK 

CALCULATE  BYTES  FOR  NODE  COUNTERS 

2  BYTES  PER  NODE  FOR  ROUTING  TABLES 

ADD  TO  ALLOCATION  SO  FAR 

ALWAYS  ROUND  TO  NEXT  BLOCK 

CONVERT  TO  BLOCKS 

GET  FUDGE  FACTOR 

IF  PL,  GOT  ONE 

ELSE  GET  BLOCK  ALLOCATION 

CALCULATE  FUDGE  FACTOR  IN  BLOCKS 


C  1 

M 

Q  1 


e 

J 

H 

5 

1 

2 

J 

5 

K 

2 

L 

2 

M 

2 

N 

5 

Q 

0 

' 

E 

' 

F 

' 

G 

H 

* 

I 

' 

J 

3 

K 

^ 

1 

', 

M 

i 

N 

< 

B 

4 

C 

1 

D 

4 

F 

4 

F 

4 

r, 

4 

H 

4 

I 

4 

J 

4 

K 

4 

1, 

4 

M 

4 

N 

4 

R 

S 

r 

s 

1) 

^ 

E 

^ 

f 

^ 

G 

^ 

H 

5 

CFEINl 


CFELIS 


CrEOPN 


I  5 


J 

5 

K 

5 

I 

5  CFEPRG 

M 

5 

N 

5 

B 

6 

C 

6 

D 

6 

E 

6 

F 

6 

G 

6 

H 

6 

1 

6 

J 

6 

K 

6 

L 

6 

M 

6 

N 

6 

B 

7 

C 

7 

D 

7  CFEPfiS 

E 

7 

F 

7 

G 

7 

H 

7 

I 

7 

J 

7 

K 

7 

L 

7 

M 

7 

N 

7 

8 

8 

C 

8 

D 

8 

E 

8 

F 

8 

G 

8 

H 

8 

I 

8 

J 

8 

K 

8 

L 

8 

M 

8 

N 

8 

B 

9 

C 

9 

R 

9 

E 

9 

F 

9 

G 

9 

H 

9 

I 

9 

J 

9 

K 

9 

L 

9 

M 

9 

N 

9 

B 

10 

C 

10 

D 

10 

F 

10 

F 

10 

G 

10 

H 

10 

I 

10 

J 
K 

iH 

1 

10 

M 

0 

N 

0 

R 

11 

r 

11 

0 

11 

F 

11 

F 

11 

G 

11 

H 

11 

I 

11 

I 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

V 

r 

v 

D 

u 

F 

V 

F 

V 

G 

^? 

H 

]? 

I 

V? 

J 

V? 

K 

V 

1 

V 

M 

V 

N 

1.' 

R 

^'> 

r 

H 

n 

M 

F 

H 

F 

H 

G 

n 

H 

i< 

I 

H 

,/ 

n 

K 

n 

1 

ii 

M 

ii 

N 

15 

R 

14 

r 

14 

0 

14 

F 

14 

F 

14 

G 

14 

H 

14 

I 

14 

1 

14 

K 

14 

L 

14 

CFEROT 


CFERQB 


CFEST8 


CFESU8 


16 

16  CFETSB 


M  16 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 

15 
16 
17 
13 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
5'. 


.TITLE  CFETSB  -  TEMPLATE  PARSE  SUBROUTINES 
.KENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTU/RE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERi'-lS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSL  :.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  AS;UMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  8Y  DIGITAL. 

MODULE  DESCRIPTION: 

CETAQ  TEMPLATE  TEMPLATE  PAI^SE  SUBROUTINES 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-AUG-8^ 

DECNET-1 iM/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-1 1M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-1 1M-PLUS  V2.0 

5.00  22-JUL-85 

DECni.'t-11M/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


C  1 

CFETSB  -  TEMPLATE  PARSE  SUBROUT  MACRO  V05.03b  Saturday  29-Jun-85  05:15 
DATA  AREA 
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CFEUPD  -  UPDATE  THE  CETAB  FILE 
SCFUPD  -  UPDATE  THE  CETAB  FILE 


101 
1.2 
193 
19A 

195 
195 
197 
198 
199 
200 
201 
202 
203 

204  000170 

205  000170 

206  0001 7A 

207  000176 

208  000202 

209  000206 

210  000212 

211  000216 

212  000222 

213  000224 
21A  000226 

215  000236 

216  000240 

217  000242 

218  000246 

219  000250 

220  000254 

221  000260 

222  000266 

223  000270 

224  000274 

225  000300 

226  000304 

227  000310 

228  000312 

229  000316 

230  0C0320 
231 

232 
233 
234 

235  000330 

236  000332 

237  000334 

238  000336 

239  000342 

240  000344 

241  000346 

242  000352 
24  3  000356 

244  000366 

245  000370 

246  000372 

247  000400 
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.SBTTi   SCFUPD  -  UPDATE  THE  CETAB  FILE 
**♦  -  SCFUPD  -  UPDATE  THE  CETAB  FILE 
INPUT: 


NONE. 


OUTPUT: 


"■-BIT  =  SUCCESS/FAILURE 
THE  CETAB  FILE  IS  UPDATED. 


SCFUPD: 


005067  177604 
010346 

012700  OOOOOOG 

016701  OOOOOOG 

016^02  OOOOOOG 

016703  OOOOOOG 

004767  OOOOOOG 
012603 
103006 

000261 

000472 

004767  OOOOOOG        10S: 

103466 

010367  177526 

012700  OOOOOOG 

012760  OOOOOOG  000002G 

005001 

012702  000000' 

012704  OOOOOOG 

012705  000000' 
004767  OOOOOOG 
103403 

005767  177462 
001425 


20S: 


CLR 

m\i 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

BCC 

ERRORS 

SEC 

BR 

CALL 

BCS 

MOV 

i^OV 

mv 

CLR 

MOV 

MOV 

MOV 

CALL 

BCS 

TST 

BED 

ERRORS 


SERROR 

R3,-(SP) 

#SIFDB,RO 

SHIVBN.RI 

$L0V8N,R2 

$8YTE,R3 

.POINT 

(SP)*-,R3 

10S 

*ERRFIL 

SOS 

SRDATA 

70S 

R3,$LEN 

#S0FDB,R0 

*$8UFR,F.NRBD 

R1 

#UPDKTB,R2 

#S8UFI,R4 

#UPDST8,R5 

.TPARS 

20S 

SERROR 

60S 

*ERRSYN 


ERROR  INDICATOR 

SAVE  R3 

POINT  AT  INPUT  FILE  FDB 

POISTION  NEXT  READ  FROM  START  OF  FILE 


POINT  TO  START  OF  FILE 
RESTORE  R3 
IF  CC,  ALL  OKAY 
ELSE,  ERROR  OPENING  FILE 
HARD  FAILURE 
AND  RETURN 
READ  A  RECORD 
IF  CS,  END  OF  FILE 
SAVE  LENGTH  OF  RECORD 
DOINT  AT  OUTPUT  FILE  FDB 
t2(R0)  ;  ASSUME  SBUFR  IS  THE  OUTPUT  BUFFER 
TPARS  INITIALIZATION  -  EXACT  MATCH 
KEYWORD  TABLE 
ADDRESS  OF  RECORD 
STATE  TABLE 

PARSE  THE  RECORD  -  IGNORE  ERRORS 
IF  CS,  ERROR 
SYN'AX  ERROR  7 
IF  EQ,  NO 
SYNTAX  ERROR 


INSERT  ERROR  FLAG  IN  OFFENDING  LINE  AND  PRINT  IT 


010400 
105720 
001376 
114060 
020004 
001374 
112720 
112720 


000002 


000076 
000076 


^0$: 
40S: 

50S: 


000261 

000416 

016767  177404  OOOOOOC  60S: 

001720 


MOV 

TSTB 

BNE 

MOVB 

CMP 

BNE 

MOVB 

MOVB 

EPRINT 

SEC 

BR 

MOV 

BEQ 


R4,R0 

'R0>* 

40S 

-(R0),2(R0) 

R0,R4 

50S 

#'>,(R0)t- 

#'>,{RO)t 

*SBUF! 

80S 

SLEN,F.NR3n*S0F 

lOS 


DB 


COPY  ADDRESS  OF  OFFENDING  SYMBOL 

LOCATE  END  OF  STRING 

IF  NE,  MORE 

SLIDE  EVERYTHING  DOWN  2  BYTES 

HAVE  WE  REACHED  START  OF  ERROR  ? 

IF  NE,  NO 

INSERT  ERROR  FLAG 

PRINT  THE  BAD  LINE 
SHOW  FATAL  ERROR 
AND  LEAVE 

;  SET  LENGTH  OF  BUFFER 
IF  EO,  NOTHING  IN  LINE 


CFEUPD  -  UPDATE  THE  CETAB  FILE 
SCFUPD  -  UPDATE  THE  CETAB  FILE 
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,,F1LE«MD''CFEUS8 


B     3 


CCCCCCCC    F 

FFfFFFFFF 

EEEEEEEEEE 

UU 

UU 

ssssssss 

BBBBBBBB 

CCCCCCCC    F 

FFFFF^FFF 

EEEEEEEEEE 

UU 

UU 

ssssssss 

BBB88BBB 

CC           F 

Et 

UU 

Ub 

ss 

BB      BB 

CC           F 

EE 

UU 

UU 

ss 

BB      BB 

CC          F 

EE 

UU 

UU 

ss 

BB      88 

CC          F 

EE 

UU 

UU 

ss 

BB      BB 

CC          F 

FFFFFFF 

EEEFEEEE 

UU 

UU 

ssssss 

BBBBBBBB 

CC          F 

FFFFFFF 

EEESEEEE 

UU 

UU 

ssssss 

BBBBBBBB 

CC          F 

EE 

UU 

UU 

ss 

BB      BB 

CC          F 

EE 

UU 

UU 

ss 

BB      BB 

CC          F 

EE 

UU 

UU 

ss 

BB      BB 

CC           F 

EE 

UU 

UU 

ss 

BB      SB 

CCCCCCCC    F 

EEEEEEEEEE 

uuuuuuuuuu 

ssssssss 

BBBBBBBB 

CCCCCCCC    F 

EEEEEEEEEE 

uuuuuuuuuu 

ssssssss 

BBBBBBBB 

ssssssss 

T  T  i  1 T 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

C     3 

CFu^SB  -   TEMPLATE   UPDATE    SU8R0U  MACRO  V05.05b   Saturday  29-Jun-85   05:16 
Table  ot   contents 


FVTTBL   -   EVENT   LOGGING    Tf^BLES 
Macro  calls 


58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

n 

78 

79 

80 

81 

82 

83 

8A 

85 

86  000000 

87 

88  000000 
000000 
000006 

89  000012 
000012 
000020 

90  0C0024 
000034 
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.ENDM 

.MACRO  EVEMT   CLASS, EVMUM 

$$$W0=0 

$$$W1=0 

$$$W2=0 

!$$W3=0 

.IRP    ...M,  <EVNUM> 

...BIS  \...N/16,  \...N£15 

.ENDR 

.RADIX  8 

.WORD    *O<100>**D<CLASS>,$$$U0,$$$W1 ,$$$W2,I$$W3 

.RADIX   10 

.ENDM 

.S8TTL  Known  euents  table 

■  **** 

•  Local  data 

■  *  *** 


Known  events  table: 

Each  er.try  in  this  table  consists  one  word  specifying 
the  event  class  followed  by  A  words  of  event  masks.  Note 
that  the  radix  for  events  and  classes  is  DECIMAL. 


IKNEVT: 


000000 
000000 

000200 

eooooo 


001777 
000000 

000003 
000000 


000300  000007 


000000 
000000 
000000 


000052 

OOOOCO 

000000 

91  000036 

000036 

000400 

177777 

000017 

0OOOA4 

000000 

000000 

92  000050 

000050 

000500 

177777 

000007 

000056 

000000 

000000 

93  000062 

000062 

000600 

000077 

000000 

000070 

000000 

000000 

94  000074 

000074 

010000 

000007 

000000 

000102 

000000 

000000 

95  000106 

000106 

010100 

000001 

000000 

000114 

000000 

000000 

96  000120 

C00120 

010200 

000001 

000000 

000126 

000000 

000000 

.LIST   MEB 


EVENT  0,<0,1,2,3,4,5,6,7,8,9> 

.WORD  '0<100>**D<0>,$$$WO,S$$W1 ,$$$W2,$$$W3 

EVEMT  2,<0,1> 

.WORD  '0<100>»*D<2>,$$$WO,$$$W1 ,$$$W2,$$SW3 

EVENT  3,<0,1,2> 

.WORD  ''0<100>«*D<3>,$$$WO,$$$Wl  ,$$$W2,$$$W3 

EVENT  4,  <0, 1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, ■'2, 13, 14, 15, 16, 17, 18, 19> 

.WORD  *0<100>»*D<4>,$$$WO,$$$W1 ,$$$W2,$$$W3 

EVENT  5. ^", 1, 2, 3, 4, 5, 6, 7. 8. 9. 10, 11. 12, 13. 14, 15, 16,1 7, 18> 

.WORD  ' j^ !00>«*D<5>,$$$W0,$$$Wl ,$$$W2,$$$W3 

EVENT  6,<0,1,2,3,4,5> 

.WORD  *0<100>**D<6>,$$$WO,$S$Wl ,$$$W2,$$SW3 

EVENT  64,<0,1,2> 

.WORD  •0<100>*"D<64>,$$$WO,$?$W1 ,$$$W2,$$$W3 

EVENT  65,<0> 

.WORD  "0<100>*"D^65>,$$$WO,$$$Wl ,$$$W2,$$$w3 

EVENT  66,<0> 

.WORD  *0<100>**D<66>,$$$WO,$$$Wl ,$$SW?,$$$w3 


EVTTBL  -  EVENT  LOGGING  TABLES 
Known  events  tebl e 
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9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 

22 
23 
2A 
2S 
26 
27 
28 
29 
30 
31 
52 
33 
3A 
35 
36 
37 
38 
39 
AO 
^1 
^.2 
43 

45 
A6 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


PROMPT':  STRING  ASSEMBLY 
PROMPTS,  OFFSET  ASSEMSrV 


.IF  NDF  $GOFF 

.TITLE   PRMPTS 

.IFF 

.TITLE  PRMPTO 

.ENDC 

.'DENT   /V05.00/ 
.NABL   LC 

COPYRIGHT  (C)  1979,  1930,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVF  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OliiER  PERSON.  NO  TITLE  TO  AND  OWNER'  MP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR   RELIABILITY   OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT  -  PROMPTS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

0ECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLU5  V2.0 

5.00     22-JUL-85 

DECnet-llM/S   V4.2 
DECnet-11M-Plu3   V3.0 
DECnet-Micro/RSX  VLO 


ITS 


I  C     5 

DRMFiS  -  PROMPTS,   STRING  ASSEMB  MACRO  VL5.03b  Saturday  29-Jun-85   17:01 
MACROl.   and    symbols   AND    INITIALIZATION 


Page 
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PRMPTO  -  PROMPTS,  OFFSET  ASSEM8  MACRO  V05.03b  Saturday  2';-Jun-85  17:02  Page  5 
MACROS  AND  SYMBOLS  AND  INITIALIZATION 


59 
60 
61 
62 
63 
64 
65 
66 
67 
6fc 
69 
70 
71 


000001 


000001 


.SBTTL  MACROS  AND  SYMBOLS  AND  INITIALIZATION 
DECLARE  EXTERNAL  MACROS 

.MCALL   ISTATS.PRMPTS 
SIGNAL  PROMPTING  SUPPORT 

$GPRM   =  1 
MAKE  TABLES  READ  ONLY 

SRONLY   =  1 


C  6 
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PROMPTS 


PRSACT  ■ 
SBL.CAN 

80 
81 
82 
83 
8A 
85 
86 


■  PARSE  ACHON  ROUTINES  '1ACR0  V05.03b  Saturday  29-Jun-85  05:17  Page  5 
-  P'AI'.E  BLANK  PROCESSING  .<IANUAL 

.SBTTL   SBL.MAN  -  MAKE  BLANK  PROCESSING  MANUAL 

*♦*  -  SBL.MAN  -  MAKE  BLANK  PROCESSING  MANUAL 

INPUTS: 

NONE. 

OUTPUTS: 


89 
90 
91 
92 
93 
94 
95 
96 


000150 
00C150 
000156 
000156 
000164 
000172 


.PFLAG  =  MODIFIEIi 


112767  000001  000001G 


052767 
016767 
C00207 


OOCOOl  OOOOOOG 
OOOOOOG  OOOOOOG 


SBL.MNl 
SBL.MAN:': 


MOVB 

3IS 

MOV 
RETURN 


*1,.PFLAG+1 

#1,. PFLAG 
.PSTPT, START 


ALLOW  ONE  CHARACTER  ABBREVIATIONS 

DON'T  IGNORE  BLANKS 

SAVE   START   AriDRESS  OF    STRING 


C  7 
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SRl  .AiiT  -  IGNORF  Rl  ANK  PROCESSING 


□   0 

PRSACT  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  05:17  Page  17 
.PRMOA  -  PARSE  MAXIMUM  DATA 


485 
48A 
^.85 
A86 
487 
483 
A89 
A90 
491 
492 
493 

494  001322 

495  00132? 
^96  001326 

497  001330 

498  001334 

499  001340 

500  001344 

501  001350 

502  001352 

503  001356 

504  001360 

505  001362 

506  001364 

507  001366 
508 


.SBTTL   .PaMDA  -  PARSE  MAXIMUM  DATA 


005767 
001236 
016701 
010167 
162701 
020127 
101225 
012700 
006300 
001621 
020001 
001374 
000207 


OOOOOOG 

OOOOOOG 
OOOOOOG 
000005 
002000 

000010 


♦•  .PRMDA 

INPUTS 

OUTPUT 

.PRMDA: 


PARSE  MAXIMUM  DATA 

.TPARS  VARIABLES. 

$BSZ  =  PARSED  MAXIMUM  DATA 

THE  TRANSITION  IS  REJECTED  IF  THE  VALUE 

IS  NOT  A  POWER  OF  2. 


10$: 


TST 

. PNUMH 

BNE 

ILLNUM 

MOV 

.PNUMB.RI 

MOV 

RI.SBSZ 

SUB 

*5,R1 

CMP 

R1,*1024. 

BHI 

ILLNUM 

MOV 

#8.,R0 

ASL 

RO 

BEQ 

ILLNUM 

CMP 

RO.RI 

BNE 

10$ 

RETURN 


TEST  HIGH  ORDER 

IF  NE,  OUT  OF  RANGE 

GET  THE  VALUE 

STUFF  INTO  PARSED  BLOCK  SIZE  AREA 

SUBTRACT  5 

CHECK  RANGE 

IF  HI,  TOO  HIGH 

LOW  RANGE  12 

NEXT  POWER  or  2 

IF  EQ,  NOT  A  POWER  OF  2 

CHECK  FOR  POWER  OF  2 

IF  NE,  KEEP  LOOKING 


PRSAfT  -  PARSE  ACTION  ROUTINES 
PDMu;  -  PAS^F  MAVIMilM  UIMnnu 
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PRSCIR  -  PARSt"  A  CIRCUIT-ID     MACRO  \/05.03b  Saturday  29-Jun-85  13:20 
PRSCIR  -  PARSE  AN  ASCII  CIRCUIT-ID 
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U6 
1A7 
HB 
V.9  00002^ 

150  000030 

151  0U0032 

152  000036 

153  000042 
15A  OOOOAA 

155  000050 

156  00005'^ 

157  00005; 

158  000060 

159  000062 
160 

161 

162 

163  000066 

i6A  000070 

165  000072 

166  000074 
167 

168 
169 

170  000100 

171  00010A 

172  000110 

173  000r2 
174 

175 
176 

177  0C0M6 

178  000120 

179  000122 
130  000126 

181  000134 

182  000136 

183  000142 

184  000146 

185  000150 

186  000156 

187  000160 

188  000162 

189  000164 
1O0  000170 

191  000172 

192  000176 

193  000204 
194 

195 
196 

197  000206 

198  000210 

199  000212 

200  000216 
2C1  000222 
202  000224 


005777 
001416 


103156 

103153 
010504 
012700 
005024 


112104 
010100 
060004 
010466 


1127C3 

103527 
010165 


005:702 
001123 

132765 
001002 
112703 

103404 
152765 
000407 
005702 
001102 

103477 
110165 
132765 
001431 


005702 
Oj,067 
012703 

103'.04 
152765 


OOOOOOG 


000026 


Check  for  PS]  circuit 


12$: 


15$: 


OOOOOOG 

000055 
000000 


000004  000041 
000056 

000040  000041 


000002 

000004  000041 


000055 

000101  000041 


TST 

BEQ 

CALL 

CALL 

BCC 

CALL 

BCC 

MOV 

MOV 

CLR 

SOB 

.ENDC 

M0V8 
HOV 
ADD 
MOV 


SPSJPT 

15$ 

STOCIR 

SfNIPVC 

120$ 

NEWPVC 

120$ 

R5,R4 

#<L$PDV/2>,R0 

(R4)  + 

R0,12$ 

;  NDF  R$$11S  8  R$$PR0 

(R1)+,R4 
R1,R0 
R0,R4 
R4,R$R1 (SP) 


PARSE  DEVICE  NAME 


20$: 


M0V8 
CALL 
BCS 

huV 


#'-,R3 

CATS 

110$ 

R1,L$DDM(R5) 


PARSE  CONTROLLER  NUMBER 

TST  R2 

BNE  110$ 

CALL  CHKMUX 

BIT8  #LP$MUX,L$PFG(R5) 

BNE  30$ 

MOVB  *'.,R3 

30$:     CALL  CHKWLD 

BCS  40$ 

BIS6  #LP$WCN,L$PfG{R5) 

BR  50$ 

40$:     TST  R2 

BNE  110$ 

CALL  CDT8 

BlS  110$ 

Move  R1,L$CTL{R5; 

50$:    BITS  #LP$MUX,L$PFG{R5) 

BEQ  70$ 

PARSE  UNIT  NUMBER 


TST 

BNE 

MOV 

CALL 

BCS 

Bise 


R2 

110$ 
«'.,R3 

CHKWLD 
60$ 

«'lp$wun: 


,P$UNT,L$PFG{R5) 


'heck  PSl  present  ;  RJK05 

bP   if  PS  I  not  loadeci 

Score  circuit-id  in  context  area 

Look  for  PSl  circuit 

BR  if  found  one 

Check  for  new  X.25  circuit 

BR  i  f  found  one 

Clear  context  area  again 

S<=t  length  of  buffer  to  clear 


GET  LENGTH  OF  STRING 

COPY  ADDRESS  OF  STRING 

COMPUTE  THE  ADDRESS  OF  THE  STRING  END 

RETURN  END  OF  STRING  IN  SAVED  R1 


SET  UP  ALLOWED  TERMINATOR 
CONVERT  PROCESj  NAME  TO  RAD50 
IF  CS,  ILLEGAL  CHARACTER  -  ERROR 
STORE  RAD50  NAME 


END  OF  THE  STRING  ? 

IF  NE,  YES  -  ERROR  (NO  CONTROLLER) 

CHECK  IF  DDM  IS  A  MUX  DEVICE 

IS  IT  A  MUX  DEVICE  ?  ('-'  is  needed) 

IF  NE,  YES  -  CONTINUE 

ELSE,  NO  -  SET  NEW  LEGAL  TERMINATOR 

IS  CONTROLLER  WILD  ? 

IF  CS,  NO 

ELSE,  REMEMBER  WILD  CONTROLLER 

AND  CONTINUE 

IF  NE,  Wild  card  in  bad  position 

BR  IF  error 

CONVERT  CONTROLLER  NUMBER 

IF  CS,  ERROR 

else,  STORE  controller  number 

IS  THIS  A  MUX  DEVICE  ? 

IF  EQ,  NO  -  LOOK  FOR  TRIBUTARY  NUMBER 


END  OF  STRING  ? 

IF  NE,  YES  -  ERROR  (NO  UNIT  NUMBER) 

SET  UP  ALLOWED  TERMINATOR 

CHECK  IF  WILD  UNIT  tt 

IF  CC,  NO 

ELSE,  REMEMBER  WILD  UNIT  NUMBER 


PRSCIR  -  PARSE  A  ClRCUlT-ID 
PRSCIR  -  PARSF  AN  ASCII  CIRCUIT 
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A$$CH<= 

000000 

HF$[)LI«1  = 

000002 

A$$CPS= 

000000 

HFtGUY= 

000010 

A$$PRI= 

000000 

HF$H0S= 

000004 

A$$TRP= 

000000 

HFTXCiF  = 

000020 

BITO  = 

000001 

H$CUG 

000010 

B1T1   = 

000002 

HSDST 

000012 

BIT10  = 

002000 

H$D29 

000014 

Bini  = 

004L00 

H$FLG 

000000 

Bni2  = 

010COO 

HSGLEN 

000104 

B1T13  = 

020000 

H$GLT 

000044 

BiTIA  = 

040000 

HSGNAM 

000050 

BIT15  = 

100000 

HSGNML= 

000020 

BIT2  = 

000004 

H$GPT 

000046 

BIT3  = 

000010 

HSHITS 

0CC034 

BIT4  = 

000020 

H$HLEN 

030044 

BITS  = 

000040 

HSLBOA 

000070 

B1T6  = 

000100 

HSLBDN 

000072 

BIT7  = 

000200 

HSLDTE 

000002 

BITS  = 

000400 

HSLEN 

000042 

BIT9  = 

001000 

HSLOTS 

000032 

B$10 

000003 

H$NETW 

000024 

B$11 

00O004 

HSNML  = 

000006 

B$12 

000005 

HSNPT 

000022 

BSS 

000000 

H$PTB 

000020 

B$6 

G00001 

H$PVC 

000006 

B$7 

000002 

HSRDTE 

000004 

BS^SIO 

000006 

HSRNW 

000042 

CATS 

0C0564R 

H$SVC 

000036 

CDTB 

000706R 

H$TRR 

000016 

C  iSL<= 

000102 

H$XAVL 

000100 

CHKDEV 

001036R 

HSXBJA 

000074 

CHKMUX 

001004R 

HtX29C 

000040 

CHKWLD 

001372R 

I$$RAR= 

000000 

CVTBL 

0005S6R 

I$$RDN= 

000000 

r$DTE 

000012 

K$$CMT= 

177546 

CSFLG 

000015 

K$$CSR= 

177546 

CSGNAM 

000016 

K$$LDC= 

000000 

C$LCN 

OOC010 

K$$TPS= 

000074 

C$LEN 

000016 

LCSEXT 

000000 

CSLNK 

000000 

lc$:nt 

000001 

CSNAM 

000002 

LD$LP  = 

000000 

CSNML 

000002 

LF$END= 

000020 

CSPORT 

000014 

LF$MLr= 

040000 

C$$CKP= 

000000 

LF$REA= 

000001 

C$$ORE= 

000400 

LF$SEG= 

100000 

C$SRSH= 

177564 

LFSSIG-- 

000040 

0$$BUG= 

177514 

LF$SKP= 

000004 

D$$1SK= 

000000 

LF$VR2= 

000010 

D$$L11= 

000001 

LF$ZER= 

000002 

D$$YNC= 

000000 

LF.ACT= 

100000 

D$$YNM= 

000000 

LF.8R0= 

000400 

E$$XPR= 

000000 

LF.BWT= 

000007 

F$$LVL= 

000001 

LF.ENA= 

002000 

G$$TPP= 

000000 

LF.LPB= 

COnOO 

G$$TSS= 

000000 

LF.MDC= 

000100 

G$$TTK^ 

000000 

LF.MFL= 

004000 

GS$wRD= 

oooooc 

LF.MTP= 

000020 

LF.PAC= 

LF.RDr= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LP$MPT= 

LP$MUX= 

LP$rRB= 

LP$UNT= 

LP$WCN= 

LP$WDV= 

LP$ULD= 

LP$WTR= 

lP$WUN= 

L$ADJ 

LSBUF 

LiCHN 

L$COU 

L$CTB 

L$CTL 

LSDDM 

L$FLG 

LSFLX 

L$LEN 

L$LTM 

L$MSG 

LSMTYP 

LSNAM 

L$NLEN= 

L$NCD 

L$NXT 

LSOPT 

LSPAR 

L$PDV 

L$PFG 

L$PLS 

LSPRO 

L$PVC 

L$SCN 

LSSCR 

LSSLEI^ 


000200 
040000 
010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000010 
000004 
000002 
000001 
000040 
000020 
000360 
000200 
000100 
000110 
000060 
000054 
000114 
000053 
000002 
000000 
000064 
000070 
000124 
000070 
000056 
000067 
000000 
000020 
000112 
000044 
000062 
000120 
000055 
000041 
000116 
000067 
000004 
000020 
000072 
000066 


L$SLT 

000042 

L$SNM 

000046 

LSSYL 

000122 

L$TNM 

000052 

L$TPT 

000050 

L$TRB 

000040 

L$TSZ 

000070 

L$TYP 

000063 

L$UNT 

000003 

L$$ASG= 

000000 

L$$DRV= 

000000 

L$$P11= 

000001 

L$$11R= 

000000 

L.COST 

000015 

L.CTL 

000012 

L.CVA 

177776 

L.DDM 

000002 

L.DDS 

000004 

L.DLC 

000003 

L.DLM 

000006 

L.DLS 

000010 

L.FLG 

000000 

L.KRBA 

000016 

L.LEN  = 

000022 

L.MPF 

000022 

L.NMST 

000020 

L.NSTA 

000014 

L . OWNR 

000021 

L.UNT 

000013 

MBSDIS 

000001 

MBSENA 

OOOOOO 

MBSFUL 

000002 

MBSMIX 

000002 

HBSONE 

000001 

MBSRXO 

000001 

MBJTXO 

000000 

MBSZER 

000000 

MCSBAB 

006073 

MCSBID 

001765 

MCSBMC 

001767 

MCSBSC 

001766 

MCSCAC 

001442 

MCSCAP 

001440 

MCSCCL 

001445 

MCSCDC 

002045 

MCSCDP 

001441 

MCSCir 

001465 

MCSCLD 

001464 

MCSCOU 

100000 

MCSCTL 

001454 

MCSCTR 

C01452 

MCSCTS 

00i453 

MCSDOV 

002050 

MCSLBR 

001750 

MCSLBS 

001751 

MC$Lni 

001774 

MC$L  T 

001775 

MCSLDR 
MCSLDS 
MCSLLB 
HCSLLP 
MCSLLR 
MCSLOO 
MCSLRB 
MCSLRP 
MC$LRR 
MC$LSI 
MCILST 
MCSLUP 
MCSMAP 
MCSMBL 
MCSMBX 
HCSMBY 
MCSMPX 
MCSNAP 
HCSNBR 
MCSNBS 
MC$NCR 
MCSNCS 
MCSNML 
MCSNMR 
MCSNMS 
MCSNNO 
HCSNNU 
MCSNOP 
MCSNOR 
MCSNPF 
MC$NPR 
MCSNRE 
MCSNRT 
MCSNVR 
MC$P08 
MC$P11 
MCSRFL 
MCSSBU 
MCSSFL 
HCSSYC 
MCSSYL 
MCSSYR 
MCSSYS 
MCSSYZ 
MCSTBR 
MCSTBS 
MCSTDR 
MC$TIM 
MCSTYP 
MCSUBU 
MCSUFD 
MCSUMR 
MCSUMS 
MCSVAX 
MCSWID 
MCSWIH 
MCSWIL 


001762 
001763 
002021 
002115 
002007 
000001 
002020 
002114 
002006 
C02032 
002033 
006072 
010000 
001764 
004420 
001752 
004406 
001604 
001130 
001131 
001154 
001155 
001274 
001142 
001143 
001606 
001605 
001607 
000000 
001616 
00  1 630 
001200 
001166 
001642 
000000 
000001 
002046 
002051 
002044 
000012 
000036 
000050 
000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
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69 

.SBTTL 

.EXID  -  STORE 

EXECUTOR  ID  -  QUOTED 

70 

.SBTTL 

.EXIDl  -  STORE 

EXECUTOR  ID  NON  QUOTED 

71 
72 

+ 

*  *■  *   — 

.EXiD  - 

STORE  EXECUTOR 

ID  -  QUOTED 

73 
7A 
75 

■h  k*     - 

.EXID1 

-  STORE  EXECUTOR  ID  -  NON  QUOTED 

INPUT 

76 

'.PSTPT 

=  ADDRESS  OF  ID 

STRING 

77 

.PSTCN 

=  COUNT  OF 

THE 

CHARS  IN  THE  ID  STRING 

78 
79 

OUTPUT: 

80 

$ID  =  EXECUTOR  ID 

STRING 

81 
82 
83 
84 

85  000000 

THE  TRANSITION  IS 

ACCEPTED  OR  REJE  TED 

EXID:: 

86  000000 

005267 

OOOOOOG 

INC 

.PSTPT 

;  SKIP  FIRST  QUOTE 

87  000004 

162767 

000002  OOOOOOG 

SUB 

#2, .PSTCN 

;  SUBTRACT  END  QUOTES  FROM  LENGTH 

88  000012 

016701 

OOOOOOG 

MOV 

.PSTi^T.RI 

;  GET  START  OF  STRING 

89  000016 

90 

91  000022 

016702 

OOOOOOG 

MOV 

. PSTCN, R2 

;  AND  LENGTH 

005302 

$: 

DEC 

R2 

;  ANY  CHARS  LEFT  ? 

92  000024 
ox 

9'.  UU0026 

002417 

BLT 

.EXIDl 

;  IF  LT,  NO 

122127 

000042 

CMPB 

(Rl)  +  ,#<" 

'> 

;  IS  CURRENT  CHARACTER  A  QUOTE  ? 

95  000032 

001373 

BNE 

1$ 

;  IF  NE,  NO 

96  000034 

U05367 

OOOOOOG 

DEC 

.PSTCN 

;  DECREMENT  COUNT 

97  000040 

005302 

DEC 

R2 

;  SKIP  QUOTE 

98  000042 

010146 

MOV 

R1,-(SP) 

;  SAVE  Rl 

99  000044 

010246 

MOV 

R2,-(SP) 

;  AND  R2 

100  000046 

010100 

MOV 

R1,R0 

;  COPY  BUFFER  ADDRESS 

101  000050 

005201 

INC 

Rl 

;  MOVE  END  OF  STRING  OVER  SECOND  :iUOTE 

102  000052 

004767 

OOOOOOG 

CALL 

$MVASC 

103  000056 

012602 

MOV 

(SP)+,R2 

■  RESTORE  R2 

104  000060 

012601 

MOV 

(SP)+,R1 

;  AND  Rl 

105  000062 

000757 

BR 

1$ 

;  AND  CONTINUE 

106 

107  000064 

.EXIDl: 

108  000064 

042767 

000001  OOOOOOG 

'bic 

*1,.PFLAG 

;  IGNORE  BLANKS  AGAIN 

109  000072 

012700 

OOOOOOG 

MOV 

#$ID,RO 

;  GET  START  OF  ID  STRING  OUTPUT  BUFFER 

110  000076 

012701 

000040 

MOV 

#STRMX,R1 
#'  ,(R0)+ 

;  AND  LENGTH  OF  BUFFER 

111  000102 

112720 

000040 

5$: 

MOVB 

;  BLANK  OUT  THE  ID  BUFFER 

112  000106 

005301 

DEC 

Rl 

;  REPEAT  Rl  TIMES... 

113  000110 

003374 

BGT 

5$ 

114  000112 

016701 

OOOOOOG 

MOV 

. PSTPT, Rl 

;  GET  START  ADDRESS  OF  STRING 

115  000116 

016702 

OOOOOOG 

MOV 

. PSTCN, R2 

;  GET  END  OF  STRING 

116  000122 

022702 

000040 

CMP 

#STRMX,R2 

;  IS  STRING  TOO  LONG  ? 

117  000126 

103003 

BHIS 

10$ 

;  IF  HIS,  NO  -  OKAY 

118  000130 

062716 

000002 

ADD 

#2,fSP) 

;  ELSE,  REJECT  THE  TRANSITION 

119  000134 

000405 

BR 

20$ 

;  AND  LEAVE 

120  000136 

012700 

OOOOOOG 

10$: 

MOV 

#$ID,RO 

;  GET  ADDRESS  OF  OUTPUT  BUFFER 

'21  000142 

010:20 

MOV 

R2,(R0)t 

;  STORE  THE  STRING  LENGTH 

122  000144 

004767 

OOOOOOG 

CALL 

$M'.^SC 

;  MOVE  THE  TEXT  INTO  THE  OUTPUT  BUFFER 

123  000150 

000207 

20$: 

RETURN 

;  AND  LEAVE 
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PRSEXE  - 
.EXINT  - 

455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
47? 
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001136 
001136 
001144 
001146 
001152 
001154 
001160 

001162 
001170 


.SBTTL   .EXINT  -  EXECUTOR  INCOMING  TIMER 
.EXINT  -  EXECUTOR  INCOMING  TIMER 


116767 
001406 
005767 
001003 
105767 
001405 

012767 
062716 


OOOOOOG  OOOOOOG 
OOOOOOG 
000001 G 


OOOOOOG  OOOOOOG  10$: 
000002 


INPUTS: 

OUTPUT: 

EXINT: 


001174  000207 


20$: 


MOVB 
BEQ 
TST 
BNE 

TSTB 
BEQ 

MOV 
ADD 

RETURN 


TPARS  CONVENTIONS. 

$EINC   =  PARSED  EXECUTOR  INCOMING  TIMER 


.PNUMB,$EINC 

10$ 

.PNUMH 

10$ 

.PNUMB+1 

20$ 

#ERR1LN,$ERR0R 
#2,(SP) 


MOVE  IT 
IF  EQ,  ERROR 
TOO  HIGH  ? 
IF  EQ,  OK 
BVTE  VALUE? 
BR  IF  YES  -  OK 

ERROR  IN  NUMBER 

ELSE  REJECT  TRANSITION 
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60 
67 
68 
69 
70 
71 
72 
75 
74 
75 
76 
i-? 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 

90  000000 

91  000000 

92  000004 

93  000006 

94  000012 

95  000014 

96  000020 

97  000022 

98  000024 

99  000026 
100 

101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  000032 

112  000036 

113  000042 

114  000044 
115 

116 
117 

118  000050 

119  000052 

120  000054 

121  000060 

122  000066 


.SBTIL  PRSLIN  -  PARSE  AN  ASCII  LINE-ID 

«*-PRSLIN-PARSE  AN  ASCII  LINE-ID 

THIS  ROUTINE  PARSES  AN  ASCII  IMAGE  LINE-ID  STRING  INTO 

DEVICE,  CONTROLLE  AND  UNIT.  UJLD  CARDS  ARE  ALLOWED  IN  CONTROLLER 

AND  UNi:  FIELDS. 

INPUTS: 

R1  =  ADDRESS  OF  IMAGE  LINE-ID  STRING 

R4  =  ADDRESS  OF  A  7  WORD  OUTPUT  PARAMETER  BLOCK 

OUTPUTS: 

C-BIT  CLEAR: 

R1  ^  ADDRESS  OF  NEXT  BYTE  AFTER  LINE-ID 
R4  =  ADDRESS  OF  THE  7  WORD  PARAMETER  BLOCK 

C-BIT  SET: 

INVALID  LINE-ID  SYNTAX  OR  UNhElulNIZED  LINE  (ERROR  CODE  IN  RO) 

REGISTERS: 

R3,  R4,  R5  ARE  PRESERVED 


PRSLIN: 


000026 


010405 
012700 
005024 


112104 
010100 
060004 
010466  OOOOOOG 


112703  000055 

103475 

010165  000000 


005702 
001071 

132765  000004  000041 
001001 


1C$: 

CALL 

MOV 

MOV 

CLR 

SOB 

MOVB 

MOV 

ADD 

MOV 

$:aval 

R4,R5 

*<L$PDV/2>,R0 

(R4)t 

R0,10$ 

(fi1)+,R4 

R1,R0 

R0,R4 

R4,R$R1(SP) 

.IF  DF 

S$$8AS  '  R$$RTR 

DEC 

CALL 

see 

R1 

$TRLIN 

120$ 

.ENDC 

;  DF  S$$BAS  '.    R$$ 

;  PARSE 

DEVICE 

NAME 

20$: 

MOVB 
CALL 
BCS 
MOV 

*'-,R3 

CATS 

110$ 

R1,L$DDM(R5) 

;  PARSE 

CONTROLLER  NUMBER 

TST 

BNE 

CALL 

BITS 

BNE 

R2 

110$ 

CHKMUX 

#LP$MUX,L$PFG(R5) 

30$ 

SAVE  ALL  REGISTERS 

COPY  BUFFER  POINTER 

SET  LENGTH  OF  BUFFER  TO  CLEAR 

INITIALIZE  OUTPUT  AREA 

GET  LENGTH  OF  STRING 

COPY  ADDRESS  OF  STRING 

COMPUTE  THE  ADDRESS  OF  T"E  STRING  END  +  1 

RETURN  END  OF  STRING  IN  SAVED  R1 


point  to  length  byte 
translate  logical  name 
it  CC,  parsing  all  done 


SET  UP  ALLOWED  TERMINATOR 
CONVERT  PROCESS  NAME  TO  RAD50 
IF  CS,  ILLEGAL  CHARACTER  -  ERROR 
STORE  RAD50  NAME 


END  OF  THE  STRING  ? 

IF  NE,  YES  -  ERROR  (NO  CONTROLLER) 

CHECK  IF  DDM  IS  A  MUX  DEVICE 

IS  IT  A  MUX  DEVICE  ? 

IF  NE,  YES  -  CONTINUE 
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ZF.DVP=  100000 
ZF.IN1=  040000 
ZF.KMX=  00PC20 
ZF.LLC=  000004 
2F.LMC=  000100 
ZF.MAN--  C20000 

ZF.MFL=  000010 
ZF.MTM=  000400 
ZF.MUX=  000040 
ZF.PSE=  002000 
ZF.SLI=  010000 
ZF.T1M=  000200 

ZF.X3P= 
ZS.ASN= 

zs.8sr= 

Z.AVL 
Z.DAT 
Z.DSP 

OOOOOO 
100000 
140000 
000014 
000016 
OOOOOO 

FLG 
LEN 
LLN 
MAP 
NAM 
PCB 

000010 
=  000016 
000006 
000020 
000004 
000012 

.  ASS.   177776 
000772 
Errors  detected: 

000 
001 
0 

(RW,I,GBL,ABS,QVR) 
(RW,I,LCL,REL,C0N) 

*»♦  Assembler  statistics 

Work   file  reads 
Work   t  ■  Le  writes 
Size  ot  work  f i le 
Size  ot  core  pool 
Operating  system 

217 

149 

30099  Words  (  118  Pages) 

17608  Words  (  67  Pages) 

RSX-11M/PLUS 

Z.SCH 
$HEADR= 
$MUL   = 
$SAVAL= 

$$$SYS=  004374 
$$$SYX=  OOOOOO 


000007 
******   GX 
******   GX 
******   GX 
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PRSLOG  - 
CKEVEN  - 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20'. 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

218 
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CHECK  EVENT  NUMBER 

.SBTTL   CKEVEN  -  CHECK  EVENT  NUMBER 


**•  CKEVEN  -  CHECK  EVENT  NUMBER 
FUNCTION: 

CHECK  EVENT  NUMBER  RANGE  AND  SAVE  IT  IN  EVENT  MASK. 
INPUTS: 

.PNUMB  -  PARSED  NUMBER 
OUTPUTS: 

AS  SPECIFIED  FOR  LOWER  LEVEL  PROCEDURES 
REGISTERS  R3,  M.    R5  ARE  PRESERVED 


000204 

000204  016700  OOOOOOG 

000210  004767  177564 

000214  103002 

000216  062716  000002 

00022?  000207 


PROCEDURE  BODY 
CKEVEN:: 


10$: 


MO.'  .  PNUMB,  RO 

CALL  CKEVE 

BCC  10$ 

ADD  #2,(SP) 
RETURN 


GET  NUMBER 
PROCESS  II 
BR  IF  SUCCESS 
REJECT  TRANSI TION 
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./CMT   D  AMr  C 


PRS10D  -  PARSE  ACTION  ROUTINES 
MODFD  -  PARSE  DEFAULT  DATA 


B  16 
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139 

KG 

.S8TTL   .MOMXD  -  PARSE  MAXIMUM  DATA 

1A2 

»*  .MOMXD  -  PARSE  MAXIMUM  DATA 

K3 

HA 

INPUTS        .TPARS  VARIABLES. 

1A6 

OUTPUT       $8SZ  =  PARSED  MAXIMUM  DATA 

K7 
U8 

THE  TRANSITION  IS  ACCcPTED/REJECTED. 

K9 

150  000170 

MOMDA: : 

151  000170 

005767 

OOOOOOG 

TST     .PNUMH 

HIGH  ORDER  WORD 

152  0001  7A 

0011A4 

JNE     IlLNUM 

REJECT  1,'=  TOO  HIGH 

153  000176 

016700 

OOOOOOG 

10V     .PNUMB.RO 

GET  PARSED  VALUE 

154  000202 

020027 

000025 

CMP     R0,#21. 

CHECK  LOW  BOUND 

155  000205 

103537 

BLO     ILLNUM 

IF  LO,  OUT  OF  RANGE 

156  000210 

020027 

002005 

CMP     R0,#1029. 

CHECK  HIGH  BOUND 

157  0002U 

101134 

BHI     ILLNUM 

IF  HI,  OUT  OF  RANGE 

158  000216 

010067 

OOOOOOG 

MOV     R0,$8SZ 

MOVE  VALUE  TO  PARSED  AREA 

159  000222 

000207 

RETURN 

160 


PRSMOD  -  PARSE  ACTION  ROUTINES 
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DATA  AREA 

57 
58 
59 
60 

61  000000 

62  000002 

63  00000^ 
6A 
65 
6fc 
67  000006 


.SBTTL 

DATA  AREA 

GLOBAL  DATA 

ERROR::  .BLKU 
FLAGS::  .8LKW 
TEMP::   .BLKU 

1 
1 
1       ; 

LOCAL  DATA 

YTFLG:  .BLKU 

1       ; 

Page  4 


PARSE  ERROR  MESSAGE  ADDRESS 

POINTER  TO  C.STS  OF  CURRENT  TEMPLATE  FOR  FLAG  SETTIMG 

ADDRESS  OF  CURRENT  TEMPLATE 


BYTE  MODE  FLAG  FOR  SGTNUfl 


D  1 
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tGTNUM  -  GET  NUMBER  INTO  TEMPLATE  (WORD) 


CFEUPD  -  UPDATE  THE  CETAB  flLE 
tCFUPD  -  UPDATE  THE  CETAB  FILE 
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2^.8  000402 

249  000406 

250  000A10 

251  000420 

252  000422 

253  000424 

254  000426 


004767  COOOOOG 
103315 

000261 
000401 
000241 
000207 


70$: 


CALL 

SWDATA 

WRITE  THE  RECORD  TO  THE  OUTPUT  FILE 

BCC 

10$ 

READ  NEXT  RECORD 

ERRORS 

*ERROUT 

REPORT  OUTPUT  ERROR 

SEC 

SET  C-8IT 

BR 

80$ 

AND  RETURN 

CLC 

SUCCESS  :ii 

RETURN 

[)  2 
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S<IPIT  -  DON'T  URITE  OUT  THE  LINE  (ZERO  SLEN) 
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CTl^SB  -  TEMPLATE  UPDATt  SU8R0U  MACRO  V05.03b  Saturday  29-Jun-85  05:16 

Table  ot  contents 

i-   57    MACRO  CALLS  AND  DATA  AREA 

5-   76    SPTNUM  -  PUT  NUMBER  INTO  TEMPLATE  (WORD) 

5-   11  SPTNMB  -  PUT  NUMBER  INTO  TEMPLATE  (BYTE) 

5-  119    $PTR50  -  PUT  RAD50 

6-  151    SPTOPT  -  CHECK  FOR  OPTIONAL  PARAMETER 
6-  171    CHKOPT   -  CHECK  FOR  PRECEDING  OPTIONS 
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EVT^BL  -  EVENT  LOGGING  TABLES 
<nown  events  teble 


97  000132 
000132 
OOOUO 

98  OOOUA 
0001AA 
000152 

99  000156 
000156 
COO 164 

100  000170 
C00170 
000176 

101  000202 
000202 
000210 

102  0002H 
0002U 
000222 

103  0002^6 
0002^0 
00023A 

10A  000240 
0002A0 
000246 

105  000252 
000252 
000260 

106  000264 
000264 
000272 

107  000276 
000276 
000304 

108 

109  000310 

no 
111 

112 
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0-'0400 
000000 

040000 
000000 

000000 

010500 
000000 

OOOOOi 
000000 

000017 

013500 
000000 

000001 
000000 

000000 

013600 

ooocoo 

000001 
000000 

000000 

034000 
000000 

000017 
000000 

000000 

034100 
000000 

001401 
000000 

000000 

034200 
000000 

000001 
000000 

000000 

034400 
000000 

000001 
000000 

000000 

034500 
000000 

000001 
000000 

000000 

035000 
000000 

003777 
000000 

000000 

035 1 00 
000000 

M7777 
000000 

00003/' 

M7777 


000001 


EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 

EVENT 
.WORD 


.WORD 


.END 


68,<14> 
•0<100>*' 

69,<0.16, 
"O<100>*" 

93,<0> 

«0<100>*' 

94,<0> 
*0<100>«" 

224,<0,1, 

*o<ioo>»' 

225, <0, 8, 
*0<100>*' 

226, <0> 

*o<ioo>»' 

228, <0> 
•0<100>*' 

229, <0> 

*O<100>*' 

232,<0,1 

«o<ioo>* 

233,<0,1 
*0<100>» 


D<68>,$$$W0,$$$W1 ,$$$W2,$$$W3 

17,18,19> 

D<69>,$$$W0,$$$W1 ,$$$W2,$$$W3 


D<93>,$$$W0,$$$W1 ,$$$W2,$$$W3 

D<94>,$$$W0,$$$W1 ,$$$W2,$$$W3 

2,3> 

':)<224>,$$$W0,$$$W1  ,$$$W2,$$$W3 

9> 

'D<225>,$$$W0,$$$W1 ,$$$W2,$$$W3 

'D<226>,$$$W0,$$$W1 ,$$$W2,$$SW3 

■D<228>,$$$W0,$$$W1 ,$$$W2,$$$W3 

•D<229>,$$$W0,$$$W1 ,$$$W2,S$$W3 

,2,3,4,5,6,7,8,9,10> 
»D<232>,$$$W0,$$$W1 ,$$$W2,$$$W3 


,2, 3,4, 5, t., 7, 8, 9, 10, 11, 12, 13, 14, 15. 16, 17, 18, 19, 20> 
'D<233>,$$$W0,$$$W1,$$$W2,$$$W3 


;   End  of   table 


EVTTBL  -  EVENT  LOGGING  TABLES 
Symbol  table 
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MACROS  AMD  SYMBOLS  AI^D  INITIALIZATION 

59  .SBTTL  MACROS  AND  SYMBOLS  AND  INITIALIZATION 

60 

61  ;  DECLARE  EXTERNAL  MACROS 

63  '       .MCALL   ISTAT$,PRMPT$ 

6A 

65  ;  SIGNAL  PROMPTING  SUPPORT 

66 

67        000031  SGPRM   =  ' 

68 

69  ;  MAKE  TABLES  READ  ONLY 

"0 

71        000001  SRONLY  =  1 
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PROMPTS 


PRMPTG  -  PROMPTS. 
PROMPTS 

?? 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90  000000 

91 

92 

93 

9A  000000 

95 

96  000000 

97  OOCOCC 

98  000000 

99  000000 

100  000000 

101  000000 
10?  000000 

103  000000 

1 04  000000 

105  000000 

106  000000 

107  OOCOOO 

108  000000 

109  000000 

110  000000 

111  000000 
'12  000000 
113  000000 
IK  COOOOO 

115  000000 

116  000000 

117  000000 

118  000000 

119  000000 

120  000000 

121  OOOOOC 

122  000000 

123  000000 
12A  000000 

125  000000 

126  ':i00000 

127  OOCOOO 

128  OOOOOc' 

129  000000 
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.SBTTL  PROMPTS 

h 

.*•   PROMPTS 
FUNCTION: 


DEFINE  THE  PROMPTS  USED  BY  THE  COMMAND  PARSING  TABLES.   FOR  THE  OVERLAID 
NCP,  THIS  MUST  BE  ASSEMBI ED  TJICE.   ONCE  WITH  THE  SYMBOL  GOFF  UNDEFINED 
TO  DEFINE  THE  PROMPT  STRINGS,  AND  ONCE  WITH  THE  SYMBOL  GOFF  DEFINED  TO 
DEFINE  JUST  THE  PROMPT  OFFSETS. 

CONTAINS  NO  EXECUTABLE  CODE. 

INITIALIZE  TABLE  PSECTS 

I  STATS  X,Y 
DEFINE  PROMPTS 


PRMPTS 

•\"NCP>"\, 

PRMPTS 

<"Ac count:  ">, 

PRMPTS 

<"Active  base:  ">, 

PRMPTS 

<"Active  incren-.ent:  ">, 

PRMPTS 

<"Actiue  polling  ratio:  ">, 

PRMPTS 

<"Address:  ">, 

PRMPTS 

<'Alias  name:  ">, 

PRMPTS 

<"Area  identification:  ">, 

PRMPTS 

<"Area  maximum  cost:  ">, 

PRMPTS 

<"Area  maximum  hops:  ">, 

PRMPTS 

<"Assistant  option:  ">, 
<"Assistant  physical  addresa:  ' 

PRMPTS 

PRMPTS 

<"Assistant  node:  ">, 

PRMPTS 

<"BabbLe  timer  (sec):  ">, 

PRMPTS 

<"Blocking  state:  ">, 

PRMPTS 

<"8roadcast  Routing  Timer  (sec) 

PRMPTS 

<"8uffer  lize:  ">, 

PRMPTS 

<"Call  mask:  ">, 

PRMPTS 

<"Call  timer  (sec) :  ">, 

PRMPTS 

<"Call  value:  ">, 

PRMPTS 

<"Channel  number:  ">, 

PRMPTS 

<"Channel  range:  ">, 

PRMPTS 

<"Circuit  identification:  ">, 

PRMPTS 

<"Circuit  owner:  ">, 

PRMPTS 

<"Circuit  state:  ">, 

PRMPTS 

<"Circuit  type:  ">, 

PRMPTS 

<"Clear  circuit  options:  '>, 

PRMPTS 

<"Clear  component:  '>, 

PRMPTS 

<"Clear  line  options:  ">, 

PRMPTS 

c'Tlear  logging  options:  '>, 
<'Clea'-  X25-access  options:  ">, 

PRMPTS 

PRMPTS 

<"Clfcar  X25-protocol  options:  ' 

PRMPTS 

<"Clear  x25-seruer  opti'jns:  ">, 

PRMPTS 

<"Clear  X29-ser  er  options:  ">, 

PRMPTS 

<"tlear  node  op' ions:  ">, 

PSNCP, 

< 

> 

PSACC, 

< 

> 

PSBSA, 

< 

\ 

PSINA, 

< 

> 

PSACT, 

< 

> 

PSADD, 

<. 

> 

PSAID, 

< 

> 

PSARID, 

< 

> 

PSAMC, 

< 

> 

PSAMH, 

< 

> 

PSASTO, 

< 

> 

PSAST, 

< 

> 

PSASTN, 

< 

> 

PSBBT, 

< 

> 

PSBLK, 

< 

> 

PSBRT, 

< 

> 

PSBUS, 

< 

> 

PSCMK, 

< 

> 

PSCAT, 

< 

> 

PSCVL, 

< 

% 

PSCHM, 

< 

> 

PSPCH, 

< 

> 

PSCIID, 

< 

> 

PSCOWN, 

< 

> 

PSCIST, 

< 

> 

PSTYP, 

< 

> 

PSCLCI, 

< 

> 

PSCLE, 

< 

> 

PSCLLI, 

< 

^ 

PiCLLO, 

< 

> 

PSCLXA, 

< 

> 

p:clxp. 

< 

> 

PSCLSS. 

< 

> 

PSCL9S, 

< 

> 

PSCLNO, 

< 

> 

PRMPTO  -  PROMPTS, 
PROMP'S 
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PRSACI  - 
L.AUT 

98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
llA 
115 
116 
117 
lis 
119 
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-  IGNORE  BLANK  PROCESSING 


0001 7A 

0001 7^,  062716  000002 

000200 

000200  112767  000003 

000206 

000206  0-^2767  000001 

000214  000207 


.SBTTL 
.SBTTL 
. SBTTL 

h 

*»»  -  SBL.AUT 
*»*  -  $BL.A3T 
*»*  -  .8L.AU3 


SBL.AUT  -  IGNORE  BLANK  PROCESSING 

$BL.A3T  -  IGNORE  BLANKS,  ALLOW  3  LETTER  ABBREVIATIONS 

.8L.AU3  -  IGNORE  BLANKS,  ALLOW  3  LETTER  ABBREVIATIONS  AND  FAIL 

IGNORE  BLANK  PROCESSING 

IGNORE  BLANKS,  ALLOW  3  LETTER  ABBREVIATIONS 

IGNORE  BLANKS,  ALLOW  3  LETTER  ABBREVIATIONS  AND  FAIL 


INPUTS: 


NONE. 


OUTPUTS: 

.PFLAG  =  MODIFIED 


')00001G 
OOOOOOG 


.8L.AU3 
$8L.A3T 
SBL.AUT 


ADD 
MOVB 

8IC 

RETURN 


#2,(SP) 
#3,.PFLAGt1 
#1,. PFLAG 


REJECT    TRANSITION 

3  LETTER   ABBREVIATIONS 

IGNORE   BLANKS 


PRSACT    -   PARSE    AC'ON  ROUTINES 
HI  Piir  -  HPi  p  irTinNi  roiitinf 
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PRSACT  -  PARSE 

ACllOM  ROUTINES 

MACRO  V05 

.PRMW!  -  PARSE 

MAXIMUM 

WINDOW 

tlO 

511 

512 

513 

5U 

515 

516 

517 

518 

519 

520  001 37C 

521  001370 

005^67 

OOOOOOG 

522  001 37A 

001213 

523  001576 

016767 

OOOOOOG 

OOOOOOG 

52A  OOU04 

001607 

525  0OUO6 

026727 

OOOOOOG 

000177 

526  OOUIA 

101203 

527  00V.16 

000207 

528 

529 

000001 

C  8 
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.SeTTL   .PRMWI  -  PARSE  MAXIMUM  WINDOW 
»*  .PRMWI  -  PARSE  MAXIMUM  WINDOW 
INPUTS        .TPARS  VARIABLES. 
OUTPUT       $WSZ  =  PARSED  MAXIMUM  WINDOW 


PRMWI : 


Tsr 

BNE 
MOV 
BEQ 
CMP 
BHI 
RETURN 

.END 


.PiNUMH 

ILLNUM 

.PNUMB.SWSZ 

ILLNUM 

.PNUMB,*127. 

IiLNUM 


TEST  HIGH  ORDER 

IF  NE,  OUT  OF  RANGE 

MOVE  TO  PARSED  WINDOW  SIZE 

IF  EQ,  ILLEGAL  VALUE 

CHECK  HIGH  BOUND 

IF  HI,  OUT  OF  RANGE 
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PRSCIR  -  PARSE  AN  ASCII  CIRCUH-ID 


205  000252 

000416 

BR 

70$ 

20A  00025A 

005702 

60$: 

TST 

R2 

205  000236 

001054 

BNE 

110$ 

206  0002A0 

152765 

000040 

000041 

BITS 

*LP$WCN,L$PFG(R5) 

207  0002A6 

001050 

BNE 

110$ 

208  000250 

CALL 

CDTB 

209  00025A 

105445 

BCS 

110$ 

210  000256 

152765 

000001 

000041 

BISO 

*LP$UNT,LiPFG(R5) 

211  00026A 

212 

213 

2-'A 

215  000270 

110165 

000005 

MOVB 

R1,L$UNT(R5) 

;  PARSE 

TRIBUTARY  NUMBER 

005702 

i'OS: 

TST 

R2 

216  000272 

^01030 

BNE 

100$ 

217 

218 

.IF  DF 

R$$11S 

219 

220 

TST 

ENTTVP 

221 
222 
225 

BMI 

110$ 

.ENDC 

;  DF  R$$ns 

22A 

225  0C027A 

005005 

CLR 

R5 

226  000276 

CALL 

CHKWLD 

227  000502 

103404 

BCS 

80$ 

228  00050A 

152765 

000202 

000041 

BISB 

#LP$WTRILP$TR8,L$PFG(R5); 

229  000312 

000416 

BR 

90$                  ; 

230  000514 

005702 

80$: 

TST 

R2 

251  000316 

001024 

BNE 

110$ 

252  000520 

132765 

000140 

000041 

BITS 

#lp$wcn:lp$wun,l$pfg(R5) 

235  000326 

001020 

BNE 

no$ 

234  000550 

CALL 

CDTB 

255  000534 

105415 

BCS 

no$ 

256  000556 

152765 

000002 

000041 

BIS8 

#lP$TRB,L$PFG(R5) 

237  000544 

110165 

000040 

MOVB 

R\L$TRB(R5)           ; 

253  000550 

005702 

90$: 

TST 

R2 

259  000552 

240 

241 

242 

243  0005';4 

001406 

BEQ 

110$ 

■  CHECK 

THAT  LINE  EXIST,  AND  SYNTAX  IS  CO 

100$: 

CALL 

CHKDEV 

244  000560 

105007 

BCC 

120$ 

24  5  000362 

010066 

OOOOOOG 

105$: 

MOV 

RO,R$RO(SP) 

246  000366 

2L7 

248  000370 

000404 

BR 

120$                ; 

110$: 

249  000370 

012^66 

177767 

OOOOOOG 

MOV 

«ME.IID,R$RO(SP) 

250  000576 

251 

252  000400 

000261 

SEC 

■■ 

120$: 

RETURN 

; 

AND  LOOK  FOR  TRIB  « 

IF  NE,  Wild  card  in  bad  position 

BR  IF  error 

PREVIOUS  WILD  CONTROLLER  #  ? 

IF  NE,  YES  -  ERROR  (REST  MUST  BE  WILD) 

CONVERT  LINE  NUMBER 

IF  CS,  ILLEGAL  CHARACTER  -  ERROR 

REMEMBER  UNIT  It   FOUND 

STORE  RESULT  IN  PARAMETER  BLOCK 


END  OF  THE  STRING  ? 

IF  NE,  YES  -  CHECK  SYNTAX 


che:k  entity  type 

ERRuR  IF  LIi\E  AND  NOT  END 


Else,  CLEAR  LEGAL  TERMINATOR 
CHECK  IF  WILD  TRIB  # 
IF  CS,  NOT  WILD 
ELSE  REMEMBER  WILD  TRIB  * 
AND  LOOK  FOR  END  OF  STRING 
If  ne,  wild  card  in  bad  position 
BR  IF  YES 

;  ANY  PREVIOUS  WILD  FIELDS  ? 
IF  NE,  YES-ERROR  (REST  MUST  BE  WILD) 
CONVERT  TRIBUTARY  ADDRESS 
IF  CS,  ILLEGAL  CHARACTER  -  ERROR 
REMEMBER  TRIB  *  FOUND 
STORE  RESULT  IN  PARAMETER  BLOCK 
END  OF  THE  STRING  ? 
IF  EO,  NO  -  ERROR,  SHOULD  BE  THE  END 


ELSE,  CHECK  DEVICE  SYNTAX 
IF  NO  ERROR,  JUST  RETURN 
PLACE  ERROR  IN  SAVED  RO 
AND  RETURN 


INVALID  LINE-ID  IN  SAVED  RO 
MARK  ERROR 

RETURN  TO  CALLER 
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PQ^rtR    -    PAR'^F    AN    ASCII     CIRflHT-ID 


PRSCIR  -  OARSE 
Symbol  table 
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MC$W08 

MC$W16 

MC$U32 

MCtXBR 

MCSXBS 

MCSXCJ 

HCSXCR 

MCSXCS 

MCtXOR 

HCSXDS 

MCSXFR 

MCSXFS 

MCSXLJ 

MCSXLR 

Mr$XMA 

MCSXMC 

MCtXMS 

MCSXN'k 

MC1'=C 

MCi/,'<R 

MCSXRS 

MCJ020 

MD$CI 

MDSCNA 

MD$COU 

MD$DA 

MD$DL 

mSDlV 

MDSDMC 

MDSDIF 

MDSDMP 

MDSOMR 

MDSDMV 

MDSDN 

MDSDP 

MDSDPV 

MDSDQ 

MDSDTE 

MDSDU 

MDSDUP 

MDSDV 

MDSDZ 

:1D$FUL 

MD$HAL 

MDSHEL 

I»1D$KCP 

MDtKDP 

miKDZ 

m$KL 

MDSKMX 

MDSKMV 

MDSPCl 
mSONA 
MDSUNA 
MDSWIT 
MD.ABO 


020000 
OAOOOO 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
00230A 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 

oooou 

C00G46 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
00002'. 
000002 
000012 
000026 
000030 
000000 
000001 
C00002 
000013 
000034 
000036 
000040 
000054 
00005,; 
OC0050 
C00011 
000005 
000001 
000002 
000017 


MD.ACC 

MD.AOB 

MD.BOB 

MD.DIA 

MD.nOB 

MD.DJM 

MD.FAI 

MD.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

MD.NOB 

MD.MGN 

MD.PER 

MD.fiES 

MD.ROB 

MD.RSH 

MD.SDU 

MD.SL9 

MD.SNA 

MD.TLO 

MD.UNA 

MD.UNR 

MD.UOB 

MD.VOL 

ME  SAL  I 

ME$AL2 

MESARE 

MESCIR 

MESEXA 

MESEXE 

MEILIN 

MESLOG 

MESMOD 

MESNOD 

MESNON 

ME $06 J 

ME$0B2 

MESPRO 

MESSVS 

ME.BLO 

ME. CON 

ME.CST 

ME.DIS 

ME. DON 

ME.FCO 

ME.FIO 

ME. FOP 

ME. FOR 

ME. FUN 

ME.GRO 

ME . HAP 

ME.ilD 

ME.LCO 

ME.LPR 

ME.MPR 

ME.MVE 


000010 

ME. OPE 

177747 

MOSINF 

000160 

MPSCLN 

002126 

000016 

ME.PLO 

177751 

MOSINS 

000002 

MPSCLT 

002211 

000011 

ME.PMI 

177743 

MOSLIN 

000001 

MPSCMB 

002142 

000007 

ME . PNA 

177752 

MOSLOG 

000001 

MPSCMK 

000537 

000015 

ME.PRI 

177775 

MOSMIR 

000031 

MPSCMX 

002153 

000002 

ME.PTY 

177772 

MOSNAM 

000001 

MPSCND 

000310 

000014 

ME.PVA 

177760 

MOSNIC 

000023 

MPSCNU 

001753 

000001 

ME. RES 

177761 

MOSNOD 

000000 

MPSCOB 

000311 

000006 

ME.ROO 

177754 

MOSOFF 

000001 

MPSCON 

002126 

000001 

ME.SIZ 

177774 

MOSON 

000000 

MPSCOS 

001604 

000020 

ME. SYS 

177746 

MOSOPT 

000001 

MPSCPF 

000230 

000012 

ME.UCO 

177770 

MOSPER 

000200 

MPSCPL 

000232 

177777 

MFSACT 

177776 

MOSPRO 

000002 

MPSCPT 

000226 

000000 

MFSADD 

000000 

MOSPRS 

000001 

MPSCPU 

000161 

000004 

MfSADJ 

177774 

MOSREA 

000200 

MPSCSZ 

001755 

000005 

MFSALL 

177775 

MOSSET 

000000 

MPSCUS 

002127 

000013 

MFSBYE 

000300 

MOSSTA 

000020 

MPSCVA 

000540 

000005 

MFSCHA 

000023 

MOSSUM 

000000 

MPSOAL 

002570 

000003 

MFSDUM 

000020 

MOSTSK 

000000 

MP$DCO= 

001464 

000000 

MFSEVT 

000001 

MOSVOL 

000000 

MPSDDT 

002177 

000004 

MFSFUP 

000264 

MOSZER 

000000 

MPSDEL 

001131 

000002 

MFSKNO 

V7777 

MPSACB 

000012 

MPSDES 

000156 

000003 

MFSLOA 

000017 

MPSACC 

000514 

MPSDEV 

002114 

00000" 

MFSLOO 

177775 

MPSACT 

004526 

MPSDFA 

001320 

000006 

MFSREA 

000024 

MPSADD 

000766 

MP$DHO= 

001465 

000010 

MFSSJG 

177773 

MPSADJ 

001440 

MPSDIA 

000173 

000003 

MF$SPF 

000302 

MPSADP 

006325 

MPSDLB 

002571 

000005 

MFSSYS 

000026 

HPSADS 

004406 

MPSDLG 

004521 

000003 

MFSTES 

000022 

MPSALB 

000036 

MP$DLI= 

001466 

000000 

MFSTRA 

000301 

MPSAMC 

001640 

MPSDLT 

002200 

000200 

MF$TR] 

000021 

MPSAMH 

001641 

MPSDRO 

001441 

000001 

MFSZER 

000025 

MPSANS 

004420 

MPSDST 

000454 

000002 

MLSALL 

100000 

MPSASB 

000024 

MPSDTE 

002140 

000004 

MLlCLS 

000000 

MPSASC 

004432 

MP$DTY=: 

001452 

000000 

MLSCON 

000001 

MPSAUS 

000512 

MPSDUA 

000207 

]77777 

MLSEXT 

000001 

MPSBBT 

002165 

MPSDUC 

000210 

000007 

MLSFIL 

000002 

MPSBDF 

002164 

MPSDUM 

000202 

000004 

ML$F]R 

000000 

MPSSFQ 

002121 

MPSDUP 

002127 

000005 

MLSINT 

000000 

MPS8LK 

0C1616 

MPSDVC 

002114 

000006 

MLSKNO 

140000 

MPSBLO 

001452 

MPSDWE 

001321 

\771hi* 

MLSMON 

000003 

MPSBMX 

002176 

MPSELT 

000157 

]777'il 

MLSSYS 

000002 

MPSBNP 

006330 

HPSETY 

001605 

177765 

ML STOP 

000001 

MPSBRT 

001620 

MPSEVE 

000311 

177755 

MNSUNL 

000377 

HPSBSA 

002176 

MPSFNC 

001752 

177600 

MOSACC 

000200 

MPSBSD 

002203 

MPSGDT 

002222 

177762 

MOSADD 

000002 

MPSBSI 

002200 

MPSGNM 

002223 

177756 

MOSALA 

000004 

MPSBSP 

006331 

MPSGRO 

002115 

177763 

MOSALI 

000000 

MPSBUF 

000170 

MPSGRP 

000541 

^7777b 

MOSCHA 

000040 

MPSBUP 

006324 

MPSGTY 

002224 

\77777 

MOSCIR 

000003 

MPSBUS 

001643 

I'iPSHAD 

001757 

}777l,'i 

MOSCLE 

000100 

MPSCAC 

001750 

MPSHBT 

0021 ''2 

177750 

MOSCOU 

000C60 

MPSCAS 

001762 

MPSHDD 

000 i 62 

177767 

MOSDAl 

000000 

MPSCAF 

002210 

MPSHTM 

001612 

177766 

MOSDEF 

000000 

MPSCCS 

004406 

MPSHWA 

002210 

177757 

MOSDPR 

000000 

MPSCHN 

002141 

MPSIAT 

001322 

177773 

MOSFNT 

000017 

MPICIR 

000144 

MPSIDE 

000144 

177771 

MOSEVE 

000100 

MPSCLK 

002131 

MPSIDP 

006327 
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.EXL^J<  -  SET  MAXIMUM  NUMBER  OF  LOGICAL  LINKS 


125 
126 
127 
128 
129 

;3o 

131 
132 
133 
13A 
135 
156 
137 
138 
139 
KO 
U1 
K2 
H3 


.SBTTL  .EXLNK  -  SET  MAXIMUM  NUMBER  OF  LOGICAL  LINKS 

«*»  -  .EXLNK  -  SET  MAXIMUM  NUMBER  OF  LOGICAL  LINKS 

INPUT: 

.PNUMB  =  LOGICAL  LINKS 

OUTPUT: 

SLINKS  =  THE  MAXIMUM  NUMBER  OF  LOGICAL  I  INKS 


000152 
000152 
000160 
000162 
000166 
000170 
00017A 
000202 


016767 
001A03 
105767 
0OKO5 
062716 
012767 
000207 


OOOOOOG  OOOOOOG 

000001 G 

000002 

OOOOOOG  OOOOOOG 


.EXLNK: 


5$: 

10$: 


MOV 

.PNUMB, SLINKS 

BEG 

5$ 

TSTB 

. PNUMB +1 

BEQ 

lOS 

ADD 

*2,(SP) 

MOV 

*ERRILN,SERROR 

RETURN 

STORE  THE  LOGICAL  LINK  COUNT 
IF  EO,  VALUE  ERROR 
IS  IT  A  BVTE  VALUE  ? 
IF  EQ,  VES  ..  OKAY 
ELSE  REJECT  TRANSITION 
INVALID  NUMBER 
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PRSEXE  - 
.EXOUT  - 

A75 
A76 
1^17 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
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001176 
001176 
001204 
001206 
001212 
001214 
001220 

001222 
001230 


.S8TTL 
.EXOUT 


116767 
001406 
005767 
001003 
105767 
001405 

012767 
062716 


OOOOOOG  OOOOCOG 
OOOOOOG 
000001 G 


OOOOOOG  OOOOOOG  10$: 
000002 


INPUTS: 

OUTPUT: 

'.EXOUT: 


.EXOUT  -  EXECUTOR  OUTGOING  TIMER 
-  EXECUTOR  OUTGOING  TIMER 
TPARS  CONVENTIONS. 
$EOUT   =  DARSED  EXECUTOR  OUTGOING  TIMER 


001234  000207 


20$: 


MOVB 

BEO 

TST 

BNE 

TST8 

BEQ 

MOV 
ADD 

RETURN 


.PNUM8,$E0UT 

10$ 

.PNUMH 

10$ 

.PNUMBtl 

20$ 

*ERRILN,$E^ROR 
*2,(SP) 


MOVE  II 
IF  EQ,  ERROR 
TOO  HIGH  ? 
IF  EQ,  OK 
BYTE  VALUE? 
BR  IF  VE 5  -  OK 

ERROR  IN  NUMBER 

ELSE  REJECT  TRANSITION 


0  12 


PRSEXE  -  PARSE  EXECUTOR  ACTION  MACRO  V05.03b  Saturday  29-Jun-85  05:18  Page  20 


CVCCiirnD    DCTDAhKMtT     FArTfie 


PRSLIN 
PRSLIN 


PARSE    A  LlNE-lD 

PARSE    AN   ASCII    LINE-ID 


MACRO  V05.03b   Saturday  29-Jun-85   15:23     Page   7-1 


C  13 

15:23 


125  000070 
12A  000072 

125  000076 

126  000100 

127  000106 

128  000110 

129  000112 

150  OOOIU 

151  000120 

152  000122 

155  000126 
154  0001 3A 
155 

156 
157 

158  000136 

159  OOOKO 
HO  000U2 
HI  OOOUA 
K2  000150 
H5  000152 
U4  000160 
K5  000162 
U6  0001 6A 
M.7  000166 
H8  0001 7A 
H9  000176 

150  000202 

151  00020A 

152  000212 
15: 

15A 
155 

156  000216 

157  000220 

158  000222 

159  000226 

160  000230 
16"  00023A 

^(■2 

163  000236 

16A  00024A 

165 

166  000246 


005003 

105404 
152765 
0C0407 
005702 
001051 

105446 
110165 
152765 
001430 


005702 
001036 
005003 

103404 
152765 
000416 
005702 
001024 
152765 
001020 

103415 
152765 
110165 


005702 
001406 

103007 
010066 
000404 

012766 
000261 


lLR  R3 

30$:    CALL  CHKWLD 

BCS  40$ 

000040  000041         BIS8  #LP$WCN,L$PFG(R5) 

BR  50$ 

40$:    TST  R2 

BNE  110$ 

CALL  CDT8 

BCS  110$ 

M0V8  R1,L$CTL(R5) 

BITB  #LP$MUX,L$PFG(R5) 

BEQ  70$ 


000002 

000004     000041     50$: 


000101      000041 


000040     000041 


000001  000041 
000003 


PARSE  UNIT  NUMBER 

TST  R2 

BNE  110$ 

CLR  R3 

CALL  CHKWLD 

BCS  60$ 

BISB  *LP$UUNILP$UNT,L$PFG(R5) 

ER  70$ 

60$:    TST  R2 

BNE  110$ 

BITB  *LP$WCN,L$PFG(R5) 

BNE  110$ 

CALL  CDTB 

BCS  liC$ 

BIS8  #LP$UNT,L$PFG(R5) 

MOVB  R1,L$UNT(R5) 


ELSE,   NO  -   SET  NEW  LEGAL    TERMINATOR 

IS   CONTROLLER  WILD    ? 

IF  CS,  NO 

ELSE,  REMEMBER  WILD  CONTROLLER 

AND  CONTINUE 

FATAL  ERROR? 

BR  IF  YES 

CONVERT  CONTROLLER  NUMBER 

IF  CS,  ERROR 

STORE  RESULT  IN  PARAMETER  BLOCK 

IS  THIS  A  MUX  DEVICE  ? 

IF  EQ,  NO  -  LOOK  FOR  END  OF  LINE-ID 


END  OF  STRING  ? 

IF  NE,  YES  -  ERROR  (NO  UNIT) 

SET  UP  ALLOWED  TERMINATOR         ; 

CHECK  IF  WILD  UNIT  # 

IF  CC,  NO 

ELSE,  REMEMBER  WILD  UNIT  NUMBER 

AND  LOOK  FOR  END  OF  LINE-ID 

FATAL  ERROR? 

BR  IF  YES 

PREVIOUS  WILD  CONTROLLER  #  ? 

IF  NE,  YES-ERROR  (REST  MUST  BE  WILD) 

CONVERT  LINE  NUMBER 

IF  CS,  ILLEGAL  CHARACTER  -  ERROR 

REMEMBER  UNIT  It   FOUND 

Si'ORE  RESULT  IN  PARAMETER  BLOCK 


01 


CHECK  THAT  LINE  EXIST,  AND  SYNTAX  IS  CORRECT 


/'0$: 

100$: 


OOOOOOG 


177767  OOOOOOG  110$: 
120$: 


TST 

BED 

CALL 

BCC 

MOV 

BR 

MOV 
SEC 

RETURN 


R2 

110$ 

CHKDEV 

120$ 

RO,R$RO(SP) 

120$ 

#Mf .  nD,R$R0(SP) 


END  OF  THE  STRING  ? 

IF  EO,  NO  -  ERROR,  SHOULD  BE  END 

ELSE,  CHECK  DEVICE  SYNTAX 

IF  NO  ERROR,  JUST  RETURN 

PLACE  ERROR  IN  SAVED  RO 

AND  RETURN 

INVALID  LINE-ID  IN  SAVED  RO 
MARK  ERROR 

RETURN  TO  CALLER 
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PRSLIN  CREATED   B*     MACRO     ON  P^-JUM-SS   AT    15:25 

SYMBOL    CROSS  PEFERlNCE 


c  u 

PAGE    1 

CREf        0^.00 


SYMBOL   VALUE 


BITO 

BITl 

81T10 

B1T11 

B1T12 

BIT15 

BITU 

BIT15 

BIT2 

BIT5 

BITA 

BITS 

BIT6 

B1T7 

b;:8 

BIT9 

B$10 

B$11 

B$12 

B$5 

B$6 

BS7 

B$7S10 

CAT? 

CDTS 

CHKDEV 

CHKMUX 

CH<WLD 

CVTBL 

I$$AS 


=  000001 
=  000002 
=  002000 
-  OOAOOO 
=  010000 
=  020000 
=  0^0000 
=  100000 
=  000004 
=  000010 
=  000020 
=  OOOOAO 
=  000100 
=  000200 
=  OOOAOO 
=  001000 
000005 
OOOOOA 
000005 
000000 
000001 
000002 
000006 
000256  R 
OOOAOO  R 
000550  R 
000A76  R 
000750  R 
000250  R 

::     ****** 


LF$END 

--   000020 

LFSMLT 

=  OAOOOO 

LFSREA 

=  000001 

LFSSEG 

=  100000 

LFSSIG 

:  OOOOAO 

LFSSKP 

=  OOOOOA 

LF$VR2 

=  000010 

LFSZER 

=  000002 

LF.ACT 

=  100000 

LF.BRO 

=  OOOAOO 

LF.8WT 

=  000007 

LF.ENA 

=  002000 

LF.LPB 

=  001000 

LF.MDC 

=  000100 

LF.MFL 

=  OOAOOO 

LF.MTP 

=  000020 

LF.PAC 

=   000200 

LF.RDY 

=  OAOOOO 

LF.REA 

=  010000 

LF.SER 

-  OOOOAO 

LF.TIM 

=  000010 

LF.UNL 

=  020000 

REFERENCES 

#6-65 
#6-65 
#6-63 
#6-65 
#6-65 
#6-63 
#6-63 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#6-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-63 

7-112 

7-150 

7-158 

7-120 

7-12A 
#8-195 

5-59 
#6-63 
#6-63 
#6-63 
#6-63 
#6-63 
#6-65 
#6-65 
#6-63 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 


#8-199 

7-1A9 

#11-3A0 

#10-509 

7-1 A 1 

8-202 


#9-2CA 


#15-AA8 
8-220 


PRSLIN 
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220 
221 
222 
225 
221. 
225 
226 
227 
228 
229 
230 
231 
232 
233 
25'. 
235 
236 
257 
258 
259 
240 
2';i 
2A2 
243 
2A4  000224 

245  000224 

246  000230 

247  000234 

248  000256 

249  000242 

250  000244 

251  000250 

252  000252 
255  000256 

254  000260 

255  000262 

256  000266 


.SBTTL   CKEVER  -  CHECK  EVENT  RANGE 

**•  CKEVER  -  CHECK  EVENT  RANGE 

FUNCTION: 

CHECK  VALIDITY  OF  AN  EVENT  RANGE  AND  SET  SITS  IN  EVENT  MASK. 

INPUTS: 

SEVBEG  -  1ST  NJMBER  IN  RANGE 

.PNUMB  -  LOW  OrtDER  WORD  OF  2ND  NUMBER  IN  RANGE 

.PNUMH  -  HIGH  ORDER  WORD  OF  2ND  NUMBER  IN  RANGE 

OUTPUTS: 

AS  SPECIFIED  FOR  LOWER  LEVEI  PROCEDURES 

REGISTERS  R5,  R4 ,  R5  ARE  PRESERVED 

PROCEDURE  BODY 


016700  OOOOOOG 

005767  OOOOOOG 

001012 

026700  OOOOOOG 

005407 

020067  OOOOOOG 

005006 

004767  177522 

005200 

105571 

062716  000002 

000207 


CKEVER: 


10$: 


20$: 
30$: 


MOV  $EV6EG,R0  ;GET  1ST  NUMBER 

TST  .PNUMH  .-CHECK  HIGH  ORDER  WORD 

BNE  20$  ;BR  IF  HIGH  ORDER  WORD  <>  C 

CMP  . PNUMB, RO  .-COMPARE  2ND  NUMBER  TO  1ST  NUMBER 

BLE  20$  ,-BR  IF  1ST  NUMBER  >  2N0  NUMBER 

CMP  RO,. PNUMB  ,-COMPARE  CURRENT  NUMBER  TO  2Nr  NUMBER 

BGT  50$  ; FALSE  IF  CURRENT  NUMBER  >  2rD  NUMBER 

CALL  CKEVE  .-PROCESS  NUMBER 

INC  RO  .-INCREMENT  CURRENT  NUMBER 

see  10$  ,^.";  'F  MORE  TO  PROCESS 

ADD  *2,(SP)        .-REJECT  TRANSITION 

RETURN 
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162 

.SSTiL 

.MODFW  -  PARSE  DE 

FAULT  WINDOW 

163 

+ 

165 
166 

*•  .MODFW  - 

PARSf  DEFAULT  WINDOW 

INPUTS 

.TPAPS  VARIABLES. 

16'^ 
168 

OUTPUT 

$DFW  =  PARSED  MAXIMUM  DATA 

169 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 

170 

- 

1^1  0('0224 

MODFW:: 

1.V  0;02?A 

005767 

OOOOOOG 

TST 

.PNUMH 

HIGH  ORDER  WORD 

173  0C">'30 

001126 

8NE 

ILLNUM 

REJECT  IF  TOO  HIGH 

17<;  000232 

02672^ 

OOOOOOG 

000177 

CMP 

.PNUMB,*127. 

CHECK  HIGH  BOUND 

175  0002A0 

003122 

BGT 

ILLNUM 

BR  IF   ILLEGAL  NUMBER 

176  0002A2 

116767 

OOOOOOG 

OOOOOOG 

Move 

.PNUMB,$DFW 

MOVE  VALUE  TO  PARSED  AREA 

177  00C250 

001516 

BED 

ILLNUM 

BR  IF  ZERO 

178  000252 

17'> 

000207 

RETURN 

D  16 
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69 
70 
71 
72 
73 

75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 

91  000010 

92  000010 

93  OOOOU 
94 

95  000016 

96  000016 

97  000022 

98  000026 

99  000030 

100  000034 

101  000036 

102  000042 

103  000044 

104  000050 

105  000054 

106  000056 

107  000062 

108  000064 

109  00C070 
110 

111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


.SBTTL 
.SBTTL 


*»  $(?iNUM 
*♦  SGTNMB 

INPUTS: 


OUTPUT: 


REGISTERS: 


SGTNUM  -  GET  NUMBER  INTO  TEMPLATE  (WORD) 
SGTNMB  -  GET  NUMBER  INTO  TEMPLATE  (BYTE) 

GET  NUMBER  INTO  TEMPLATE  (WORD) 
GET  NUMBER  INTO  TEMPLATE  (BYTE) 

.TEMP  =  TEMPLATE  ADDRESS 

R2  =  OFFSET  IN  TEMPLATE 

R1  =  HIGH  LIMIT  FOR  RANGE  CHECK 

RO  =  LOW  LIMIT  FOR  RANGE  CHECK. 

.TPARS  VARIABLES. 

IF  VALUE  IN  RANGE  IT  IS  LOADED  INTO  THE  TEMPLATE, 
OTHERWISE  THE  TRANSITION  IS  REJECTED. 

R2  =  ADDRESS  OF  TARGET  FIELD 


CALLING  SEQUENCE:   ENTER  VIA  CALLR  FROM  WITHIN  A  ACTION  ROUTINE. 


.ENABL  LS8 


010667 
000402 


005r67 
005767 
001064 
026700 
103461 
026701 
101056 
066702 
005767 
001003 
016712 
000402 
116712 
000207 


177772 

177764 
OOOOOOG 

OOOOOOG 

OOOOOOG 

177734 
177732 

OOOOOOG 

OOOOOOG 


SGTNMB:: 


MOV 
BR 


SGTNUM:: 


10S: 


20$: 
30$: 


CLR 

TST 

BNE 

CMP 

BLO 

CMP 

BHl 

ADD 

TST 

BNE 

MOV 

BR 

MOVB 

RETURN 


SP.BYTFLG 
10$ 


HYTFLG 

. PNUMH 

REJECT 

.PNUMB.RO 

REJECT 

.PNUMB.RI 

REJECT 

.TEMP,R2 

BYTFLG 

20$ 

.PNUMB,(R2) 

30$ 

.PNUMB,(R2) 


;  SET  UP  BYTE  MODE 
;  JOIN  COMMON  CODE 


SET  UP  WORD  MODE 

32  BIT  VALUE  ? 

IF  NE,  YES  -  REJECT  TRANSITION 

CHECK  LOW  BOUND 

IF  LO,  OUT  OF  RANGE 

CHECK  HIGH  BOUND 

IF  HI,  OUT  OF  RANGE 

POINT  TO  TARGET  FIELD 

IS  IT  BYTE  MODE  ? 


IF  NE,  YES 
STUFF  WORD 
EXIT 
STUFF  BYTE 


INTO  TEMPLATE 
INTO  TEMPLATE 


.DSABL   LSB 

.SBTTL  $GTR50  -  GET  RAD50 
»♦  $GTR50  -  GET  RAD50 


INPUTS: 


OUTPUT: 


.TEMP  =  TEMPLATE  ADDRESS 
R2  =  OFFSET  IN  TEMPLATE 
R1  =  SIZE  OF  FIELD  IN  WORDS. 
.TPARS  VARIABLES. 

IF  THE  LENGTH  OF  THE  MATCHED  STRING  EXCEEDS  THE 

FIELD  SIZE  THE  TRANSITION  IS  REJECTED, 

OTHERWISE  FIELD  IS  LOADED  WITH  THE  MATCHED  STRING  IN  RAD50 

FORMAT. 


E  1 
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SKIPIT  -  DON'T  WRITE  OUT  THE  LINE  (ZERO  $LEN) 


256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 

268  000430 

269  000430  005067  177346 

270  000434  000207 


.SBTTL  SKIPIT  -  DON'T  WRITE  OUT  THE  LINE  (ZERO  $LEN) 

♦**  -  SKIPIT  -  DON'T  WRITE  OUT  THE  LINE 

INPUT: 

$LEN  =  THE  LENGTH  OF  THE  LINE  READ  IN 

OUTPUT: 

$LEN  =  ZERO  (FORCES  THE  LINE  NOT  TO  BE  WRITTEN  OUT 


SKI°IT: 


CLR     $LEN 
RETURN 


;  DON'T  WANT  TO  WRITE  OUT  THIS  LINE 


E  2 
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SMOVIT  -  MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 
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1 
2 
3 

L 

5 
6 

7 

8 
9 

10 
11 
12 
15 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  CFEUS8  -  TEMPLATE  UPDATE  SUBROUTINES 
.!DENT  /V05.00/ 
.ENA3L  LC 

COPYRIGHT  (C)  1931,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHE'<WISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWRE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


C.'G'TAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITV 
SOFT.,'ARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CETAB  TEMPLATE  TEMPLATE  UPDATE  SUBROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  1  -AUG-81 

DtCNET-IIM/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

OECNEF-IIM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.C 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-11M/S  V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Muro/RSX   VLO 


OF   ITS 


CFEUSB  -  TEMPLATE  UPDATE  SU8R0U  MACRO  V05.03b  Saturday  29-Jun-85 

MACRO  CALLS  AND  DATA  AREA 


05:16 
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EVTTBL  -  EVE^JT  LOGbING  TABLES 
Symbol  table 
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S<NEVT  OOOOOORG 
$$$B0  =  000001 
$$$B1  =  00000? 
$$$E10=  002000 
$$$B11=  004000 

.  ABS.  000000 
000312 
£•  irs  detected: 


000 
001 
0 


$$tB12=  010000 
$$$B13=  020000 
$$$BK=  OAOOOO 
$$$815=  100000 
$$$B2  =  000004 

(RU,1,GBL,A8S,0VR) 
(RW,:,LCL,REL,C0N) 


$$$83  =  000010 
$$$B4  =  000020 
$$$85  =  000040 
$$$S6  =  000100 


$$$B7  =  000200 
$$$88  =  000400 
$$$89  =  001000 
$$$W0  =  177777 


$$$W1  =  0C0037 
$$$W2  =  000000 
$$$W3  =  000000 
...N  =  000000 


Assembler  statistics 


Work  tile  reads:  C 

Work  f i le  writes:  0 

Size  of  work  file:  8330  Words   (  33  Pages) 

Size  of  core  pool-  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 
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PRMPTS  -  PROMPTS, 
PROMPTS 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

^i, 

85 

86 

87 

88 

89 

90  000000 

91 

92 

93 

94  000000 

95 

96  000000 

97  000000 

98  000000 

99  000000 

100  000000 

101  000000 

102  000000 

103  000000 
10A  000000 

1 05  000000 

106  000000 

107  000000 

108  000000 

109  000000 
-10  000000 

111  000000 

112  000000 

113  000000 
lU  000000 

115  OOOOOO 

116  OOOOOO 
M7  OOOOOO 

118  OOOCOO 

119  OOOOOO 

120  OOOOOO 

121  OOOOOO 

122  OOOOOO 

123  OOOOOO 
^24  OOOOOO 

125  OOOOOO 

126  OOOOOO 

127  OOOUUO 

128  OOOOOO 

129  OOOOOO 


0  5 

ACRo  vo; 

.03b  Saturday 

.SBTTL 

+ 

•»*  PROMPTS 
FUNCTION: 

?9-Jun-85  17:01  Page  5 
PROMPTS 

DEFINE  THE 

BROMPTS  USED  BY  THE  COMMAND  PARSING 

TABLES.   FOR 

THE  OVERLAID 

NCP,  THIS  MUST  BE  ASSEMBLED  TWICE.   ONCE  WITH 

THE  SYMBOL  GOFF  UNDEFINED               1 

TO  DEFINE  THE  PROMPT  STRINGS,  AND  ONCE  WITH  THE  SVMBOL  GOFF 

DEFINED  TO 

DEFINE  JUST 

THE  PROMPT  OFFSETS. 

CONTAINS  NO 

EXECUTABLE  CODE. 

INITIALIZE  TABLE  PSECl;. 

ISTATS 

x,y 

DEFINE  PROMPTS 

PRMPTS 

"\"NCP>"\, 

PSNCP, 

<:> 

PRMPTS 

<"Account:  ">, 

PSACC, 

<:> 

PRMPTS 

<"Active  base:  ">, 

PSBSA, 

<:> 

PRMPTS 

<"Active  increment:  ">, 

PSINA, 

<:> 

PRMPTS 

<"Active  poLling  ratio:  ">, 

PSACT, 

<:> 

PRMPTS 

<"Address:  ">, 

PSADD, 

<:> 

PRMPTS 

<"Alias  name:  ">, 

PSAID, 

<;> 

PRMPTS 

<"Area  identification:  ">, 

PSARID, 

<:> 

PRMPTS 

<"Area  maximum  cost:  ">, 

PSAMC, 

<:> 

PRMPTS 

<"Area  maximum  hops:  ">, 

PSAMH, 

<:> 

PRMPTS 

<"Assistant  option:  ">, 
<"Assistant  physical  address:  >, 

PSASTO, 

<:> 

PRMPTS 

PSAST, 

<:> 

PRMPTS 

<"Assistant  node:  ">, 

PSASTN, 

<:> 

PRMPTS 

<'BabbLe  timer  (sec):  ">, 

PSBBT , 

<:> 

PRMPTS 

<'Blocking  state:  ">, 

PSBLK, 

<:> 

PRMPTS 

<'Broadcast  Routing  Timer  (sec): 

•>,    PSBRT, 

<:> 

PRMPTS 

<'Buffer  size:  ">, 

PSBUS , 

<:> 

PRMPTS 

<"CaU  mask:  ">, 

PSCMK, 

<:> 

PRMPTS 

<"CaU  limer  (sec):  ">, 

PSCAT, 

<:> 

PRMPTS 

<"CaU  value:  ">, 

PSCVL, 

<:> 

PRMPTS 

<"Channel  number:  ">, 

PSCHN, 

<:> 

PRMPTS 

<"Channel  range:  ">, 

PSPCh, 

<:> 

PRMPTS 

<"Circuit  identification:  ">, 

PSCIID, 

<:> 

PRMPTS 

<"Circuit  owner:  ">, 

PSCOWN, 

<:> 

PRMPTS 

<"Circuit  state;  ">, 

PSCIST, 

<:> 

PRMPTS 

<"Circuit  type:  ">, 

PSTYP, 

<:> 

PRMPTS 

<"Ciear  circuit  options:  ">, 

PSCLCI, 

<:> 

PRMPTS 

<"Clear  coxoonent;  ">,_^ 

PSCLE, 

<:> 

PRMPTS 

<"C'rar  lirio  options:  ">, 

PSCLLI, 

<:> 

PRMPTS 

<"*(,  .'  ''"'cginq  op^^nns:  ">, 

P*C'.LO, 

<:> 

PRMPTS 

<"Cie:>.   .-access  options:  ">,^ 

PSCLXA, 

<:> 

PRMPTS 

<"Clear  -iS-protocol  options:  '>, 

PSCLXP, 

<:> 

PRMPTS 

<"Clear  X25--server  options:  "> . 

PSCL5S, 

<:> 

PRMPTS 

<"C'''ar  X29-servpr  options:  ">, 

P$CL9S, 

<:> 

PRMPT$ 

■''  .  '-.^r  node  options:  ">, 

PSCLNU, 

<:> 

PRMPTS  -  PROMPTS, 
PROhPTS 
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PRMPTO  - 

PROMPTS 

PROMPTS 

130 

000000 

131 

000000 

132 

000000 

133 

000000 

13^ 

000000 

135 

000000 

136 

000000 

137 

000000 

138 

000000 

139 

000000 

UO 

000000 

1A1 

000000 

H2 

000000 

K3 

000000 

UA 

000000 

U5 

000000 

U6 

000000 

147 

000000 

K8 

000000 

K9 

000000 

150 

000000 

151 

000000 

152 

000000 

153 

OOOUOO 

15A 

000000 

155 

000000 

156 

OOOOOG 

157 

000000 

158 

000000 

159 

000000 

160 

000000 

161 

000000 

162 

000000 

163 

000000 

164 

000000 

165 

000000 

166 

000000 

167 

000000 

168 

000000 

169 

000000 

170 

000000 

171 

000000 

172 

000000 

173 

000000 

174 

000000 

175 

OOOOOG 

176 

ocoooo 

177 

000000 

178 

ocoooo 

179 

OOOOGO 

180 

000000 

181 

000000 

182 

oorcoo 

183 

000000 

184 

000000 

185 

000000 

186 

OOOOOG 
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PRMPlI 
PRMPTS 
PPMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMP'S 
PRMPTS 
PRMP'S 
PRMPTS 


<"Clear  object  options:  ">, 
<"Clear  timer  (sec):  ">, 
<"Clear  trace  options:  '>, 
<"Clocl<  mode:  ">, 
<"Command:  ">, 
<"Cofiiponent  type:  ">, 
<"Control.ler  mode:  ">, 
<"Copies:  ">, 
<"Cost;  ">, 

<"Counter  timer  (sec):  ">, 
<"CPU  type:  ">, 
<"CSR  address:  ">, 
<"Dead  polling  ratio:  ">, 
<"Deacl  threshold:  ">, 
<"Dead  timer  (msec):  ">, 
<"Default  data  (bytes):  ">, 
<"Default  winoow  (bytes):  '> 
<"Delay  factor:  ">, 
<"Delay  timer  (msec):  ">, 
<"Delay  weight:  ">, 
<"Destination  id:">, 
<"Destination  node:  ">, 
<"Device  spec:  ">, 
<"Diagnostic  file:  ">, 
<"DTE  address:  ">, 
<"DTE  number:  ">^ 
<"DLinip  address:  '>, 
<"Dump  count:  ">, 
<"DLmp  'ile:  ">,, 
<"Dump  option:  '>, 
<"Duplex:  ">, 
<"~ying  base:  ">, 
<"i)ying  increment:  '[>, 
<"Dying  threshold:  ">, 
<"Event  identification:  ">, 
<"File  name:  ">, 
<"Group  name:  ">, 
<"Group  number:  '>, 
<"Hell-'  timer  (sec) :  ">, 
<"Hara.,  3re  address:  ">, 
<"Hardware  option:  ">, 
<"Hexadecimal  password;  ">, 
<"Holdback  timer  (msec):  ">, 
'""ost  node  identification: 
enti fication:  ">, 
active  base:  ">, 
actiw'e  increment:  ">, 
active  threshoM:  ">, 
<"jnacti\/ity  timer  (:ec):  "> 
'."Incoming  timer  (sec':  ">, 
<"Length  of  test  data  ">, 

'Line  identi  f  uat  ion:  ">, 

'Line  owner:  ">.,, 

'Line  protocol:  ">. 

'Line  state:  "> 


'Load  image  input  file: 
'Load  cotions:  ">, 


PSCLOB, 

<:> 

PSCLT, 

<:> 

PSCLTR, 

<:> 

PSCLK, 

<:> 

PSCOM, 

<:> 

PSPEN, 

<:> 

PSCON, 

<:> 

PSCOP, 

<:> 

PSCOS, 

<:> 

PSCTH, 

<:> 

PSCPU, 

<:> 

PSCSR, 

<-:> 

PSDEA, 

<:> 

PSDDTH, 

<:> 

PSDDT, 

<:> 

PSBDF, 

<:> 

PSUDF , 

<:> 

PSDFA, 

<■:> 

PSDLT, 

<:> 

PSDUE, 

<:> 

P$[,ST, 

<:> 

PSDES, 

<•;> 

PSDEV, 

<:> 

PSDIA, 

<:> 

PSDTE, 

<:> 

P'"iNUM, 

<:> 

PSDUA, 

<:> 

PSDUC, 

<:> 

PSDUM, 

<:> 

PSDUMO, 

<r> 

PSDUP, 

<:> 

PSBSD, 

<:> 

PSIND, 

<:> 

PSDYTH, 

<:> 

PSEVE, 

<:> 

PSFNAM, 

<:> 

PSGRP, 

<:> 

PSGNM, 

<:> 

PSHTM, 

<:> 

PSHAD, 

<:> 

PSHAD, 

<:> 

PSHPAS, 

<:> 

"SHBT, 

<:> 

PSHOS, 

<:> 

nSlDE, 

<:> 

PSBSI, 

<:> 

PSINI, 

^:> 

PSINTH, 

<:> 

-$:at. 

<:> 

PSITI, 

<:> 

pt-'^-ii. 

<:> 

PSLNID, 

<:> 

PSLOWN, 

<:> 

PSPRO, 

<:> 

PSLIST, 

<:> 

PSLOA, 

<:> 

PSLDOP, 

<:> 

PRMPTO  -  PROMPTS,  OFFSET  ASSEMB  MACRO  V05.03b  Saturday  29-Jun-85  17:02 

PROMPT'; 


Page  6-2 


PRSACT  - 
.HLPAC  - 

121 
122 
123 
12^ 
125 
126 
Xil 
128 
129 
130 
131 
132 
133 
13A 
135 
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PARSt  ACTION  ROUTINES  MACRO  VO5.03b  Saturday  29-Jun-S5  05:17  Page  7 
HELP  ACTION  ROUTINE 

.SBTTL   .HirAC  -  HELP  ACTION  ROUTINE 

♦•*  -  .HLPAC  -  HELP  ACTION  ROUTINE 

INPUTS 


R4  =  ADDRESS  OF  LINE  AFTER  "HELP" 

OUTPUTS: 

SCMDPT  =  ADDRESS  Of  LINE  AFTER  "HELP 


00C216 

000216  010'.67  OOOOCOG 

000222  000207 


.HLPAC 


MOV     R^,$CMDPT 
RETURN 


PRSACT 

MOM  AM 


PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  05:17 
MnnF  W4MF  irrintj  tjniiTtMF 
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PRSACT   -   PARSE    ftCTION   ROUTINES 
Symbol   table 
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CM.DEf= 

«*♦♦»•  cx 

ERRNAM 

OOOOOOR 

$BS2  = 

****** 

GX 

cm.l:s= 

******   GX 

ERmbo= 

«**»**  GX 

ICAT5  = 

****** 

GX 

CO.EXE= 

******  GX 

EX$ERR= 

000002 

$CMAND= 

****** 

GX 

CS.REM= 

******  GX 

FNDNAM 

001254R 

$CMDPT= 

****** 

GX 

C.ADD 

000010 

ILLNUM 

001024R 

$COMP  = 

****** 

GX 

C.NAM 

OOOOOA 

NOONAM 

000374R 

$ERROR= 

****** 

GX 

C.STS  = 

******  GX 

START  = 

******   GX 

$NODAD= 

****** 

GX 

FRRADD 

OOO0A1R 

SBL.AU 

000206RG 

$NODNA= 

****** 

GX 

ERREXE 

000105R 

$BL.A3 

000200RG 

$NrADD= 

****** 

GX 

ERRILC= 

******  GX 

SBL.MA 

O00156.'?G 

$NTNAM= 

****** 

GX 

ERRILN= 

******  GX 

SBL.MN 

0001 50RG 

$RTM  = 

****** 

GX 

.  ABS. 

0C0u1? 
001420 

000 
001 

(RU,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 

Er'-ors 

detPcted: 

0 

$TMLbT= 

$WSZ  = 

.BL.A  ; 

.EXADD 

.Emf,". 

.EXRTM 

.HLPAC 

.NONAM 

.PFLAG^ 

.PNUMB= 

.PNUMH= 


******  GX 

******  GX 

000174RG 

00076'IRG 

OOOJilRG 

001040RG 

000216RG 

000224RG 

******  GX 

******  GX 

******  GX 


.PRMDA 

.PRMWI 

.PSTCN= 

.PSTPT= 

.RNADD 

.RNAD2 

.RNAD3 

.RNHNA 

.RNINI 

.RNNAM 


C01322RG 

001370RG 

******  GX 

******  GX 

00061 2RG 

000'i60RG 

000650RC 

001172RG 

000452RG 

001052RG 


•*♦  Assembler  statistics 


Work  file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  211  Words   (  1  Pages) 

Size  of  core  pool:  1A440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


Elapsed  time:  00:00:12.17 

SY:  PRSACT.  y2,n  32, 13A]PRSACT/CR/-SP=S'' 
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FRSCIR  - 
PfJSClR  - 

254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27/; 
275 
276 
277 
278 
279 
280 
281 
282 
283 
28A 
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.ir  NDF  R$$11S 

.SBTTL  STOCIR  -  Store  circui't-id  in  context  area 


'**  STOCIR 
INPUTS 


Store  circuit-i'd  in  context  area 


R1  -  Pointer  to  counted  id-string 
R5  -  Address  of  context  area 

OUTPUTS 

String  copied  to  L$NAM(R5)  and  padded  with  spaces 
Registers  preserved 


000A02 
000A02 

000A10  010502 

000412  062702  000000 

000416  012700  000020 

000A22  112722  000040 
000426 

000432  010502 

000434  062702  000000 

000440  112100 

000442  112122 
000444 

000450 
000456 


STOCIR:: 


SAVRG   <R0,R1,R2> 


10$: 


20$: 


MOV 

ADD 

MOV 

M0V8 

S08 

MOV 
ADD 

Move 
Move 

SOB 


R5,R2 

#L$NAM,R2 

#L$NLEN,RO 

*SPACE,(R2)+ 

R0,10$ 

R5,R2 

#L$NAM,R2 

(R1)+,R0 

(R1)+,(R2)+ 

R0,20$ 


RESRG   <R2,R1,R0> 
RETURN 


;  Copy  context  area  pointer 
;  Point  to  circuit  name  field 
;  Max  length  of  name 


Get  actual  length  of  string 
Copy  circuit  name 


PRSCIR  -  PARSE  A  CIRCUIT-ID 
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Symbol 

table 

MPSIHO 

000215 

MPSNAP 

006326 

MPSSCA 

000310 

MSSATR 

255911 

HTSROU 

000000 

MPSINA 

002177 

MPSNCT 

000240 

Mi^iiCO 

000144 

MSSAUT 

000000 

M7$R04 

000004 

HPSIND 

00220A 

MPSNET 

002114 

MPSSCT 

002176 

MSSCLE 

000003 

MTSSEC 

000000 

MPS  NI 

002201 

MPSNLI 

000765 

MPSSDU 

000203 

HSSDED 

000004 

MTSSGD 

000020 

MPS  TI 

000776 

MPSNNA 

000764 

MPSSDV 

000160 

MSSDJE 

55555? 

MTSSYS 

000002 

MPSLAA 

000231 

HPSNOD 

000500 

MPSSEH 

004401 

MSSDUH 

000004 

MTSTER 

000001 

MPSLAN 

00023^ 

MPSNRA 

006334 

MPSSEf' 

000144 

MSSFAI 

000013 

HTSTRI 

59§5§? 

HPSLAR 

000202 

MPSNRB 

000214 

MPSSEI 

000000 

MSSGLO 

000000 

MTSTYP 

007777 

MPSLA3 

000012 

MPSNSA 

001617 

MPSSGZ 

001644 

MSSHOL 

55595? 

HISUSD 

000000 

MPSLBS 

000203 

MPSNTI 

002141 

HPSSID 

000176 

MSSINA 

000002 

MT$X25 

000003 

MPSLCO 

000226 

MPSNUM 

001642 

MPSSIN 

000310 

MSSLOA 

000003 

MUSINC 

995951 

MPSLCT 

000156 

MPSNVE 

001274 

MPSSLJ 

000156 

MSSLOO 

00555? 

MUSOUT 

000002 

MPSLHL 

vj0023: 

MPSNXN= 

001476 

MPSSLO 

000171 

MSSOFF 

000001 

HUSPER 

000000 

MPSLLE 

000227 

MPSOAC 

000632 

MPSSMX 

002202 

MSSON 

000000 

MVSUl 

000000 

MPSLLO 

004432 

MPSOAN 

000620 

MPSSND 

000500 

MSSPRO 

000006 

MVSIV 

999591 

MPSLMB 

002152 

MPSOCO 

000776 

MPSSNP 

00633? 

HSSREA 

000004 

MXSACT 

0000.^0 

MPSLMX 

002200 

MPSOHO 

000214 

MPSSNU 

000542 

MSSREF 

000001 

MXSCIR 

000020 

MPSLNA 

000U1 

MPSONA 

000764 

MPSSOB 

000524 

MSSRES 

000003 

MXSCLN 

000020 

MPSLNO 

000233 

HPSONR 

0021 14 

MPSSPA 

000157 

HSSRST 

505551 

MXSCNM 

000006 

MP$LOA 

000170 

MPSOQL 

001453 

MPSSPR 

000536 

MSSRSX 

000002 

MXSCON 

000006 

MPSLOG 

0045U 

MPSOTI 

000777 

HPSSPS 

000513 

MSSRT 

000005 

HXSDAC 

000020 

MPSLOO 

000620 

MPSOTY 

001022 

MPSSTA 

000000 

MSSSER 

99999? 

MXSDTE 

000020 

MPSLTM 

001613 

HPSOUS 

000777 

MPSSTJ 

002140 

MSSSHU 

000002 

MXSFIL 

000034 

MPSLTY 

004533 

MPSOVE 

001010 

MPSSTT 

002201 

HSSSRV 

000007 

MXSLGC 

000777 

MPSLWI 

000230 

MPSOUN 

004374 

MPSSTY 

000175 

MSSSTA 

000000 

MXSLIN 

000020 

MPSMAC 

004420 

MPSPAR 

000036 

MPSSUB 

000001 

MSSSYN 

000012 

MXSLON 

OOOOC'6 

MPSMAD 

001630 

MPSPAS 

000513 

HPSSUR 

000156 

HSSTER 

000001 

MXSNMS 

000454 

MPSMAP 

006323 

MPSPCH 

002152 

MPSSUS 

000512 

MSSTOP 

000003 

MXSNOD 

OOOOOl) 

MPSHAR 

001635 

MPSFCO 

000024 

MPSSVfi 

000163 

HSSTRI 

000005 

MXS08J 

000006 

MPSMAV 

006321 

MPSPCT 

000U4 

MPSSWI 

002260 

MSSUNR 

999995 

MXSOWN 

000040 

MPSMBN 

00)636 

N.^SPDT 

002114 

MPSSYP 

002424 

MSSVMS 

000004 

MXSPAR 

000036 

MPSMBR 

001637 

MPSPHA 

000170 

MPSTFL 

000156 

MS. DON 

177600 

MXSPAS 

000010 

MPSMBU 

001642 

MPSPHY 

000012 

MPSTHI 

002206 

MS.MCR 

000002 

MXSRAC 

000047 

MPSMCB 

000156 

MPSPLI 

000025 

MP$TH2 

002205 

MS. PAR 

000003 

MXSRID 

000047 

MPSMCO 

001632 

MPSPLN 

002140 

MP$rH3 

002202 

MS. sue 

500591 

MXSRPS 

000047 

MPSMDE 

004421 

MPSPLO 

000012 

MPSTLN 

000202 

MTSAR4 

000003 

MXSSID 

000040 

MPSMHO 

nO'633 

MPSPMC 

004374 

MPSTLO 

000172 

MTSASC 

000100 

MXSSNK 

000377 

MPSMLB 

000202 

MPSPNT 

002126 

MPSTPA 

004375 

MTSBJL 

95559] 

MXSTYP 

000077 

MPSMLK 

001306 

MPSPRI 

004411 

MPSTRI 

002164 

MTSBYS 

00001 

MXSUID 

000020 

MPSMLN 

001631 

MPSPRO 

002130 

MPSTST 

000144 

MTSCI 

000007 

MS$CRB= 

000124 

MPSMLP 

006333 

MPSPSS 

001763 

MPSTYP 

002130 

MTSCLE 

9999^? 

M$$CRX= 

000000 

MPSMRB 

002171 

MPSPST 

001 762 

MPSUCS 

004407 

MTSCOD 

000200 

MSSFC3= 

000000 

HPSMRO 

001605 

MPJRET 

001631 

MPSUSR 

001750 

MTSrON 

000001 

M$SMGE= 

000000 

MPSMRP 

006322 

MPSRfA 

001323 

MPSVEC 

004410 

HTSDMC 

000004 

H$$NET= 

000000 

MPSMRT 

00215^ 

MPSRMX 

002201 

MPSVER 

004406 

MFSETH 

000006 

MS$OVR= 

000000 

MPSMRV 

006320 

MPSRPA 

004374 

MPSWDF 

002165 

MTSHEX 

000040 

NEWPVC 

000460R 

MPSMSB 

000170 

IPSRPR 

001606 

MPSWMX 

002177 

MTSLPB 

000005 

NM.CIN 

003400 

MPSMVE 

000145 

ilPSRRT 

012213 

MPSXMT 

002166  - 

MTSMAX 

000037 

NM.I.JI 

002400 

MPSMVI 

001634 

MPSRST 

002212 

MPSXPF 

000242 

MTSMUL 

000100 

NM.OPR 

003000 

MPSMV" 

001751 

MPSRSV 

001754 

MPSXPL 

000244 

MTSNLE 

000017 

NM.VR2 

002401 

MP$.*ll 

002154 

MPSRSZ 

001756 

MPSXPT 

000240 

MTSNON 

000001 

NM.VR3 

002402 

MPiM; 

002172 

MPSRri 

001616 

MPSXXX 

\mv 

MTSNR4 

000005 

N$SACC= 

000001 

MPSM; 

000466 

MPSRTM 

0016r 

MP$5ST 

004406 

MTSNTY 

000060 

N$SBUF= 

000001 

mp$m; 

001630 

MPSRVE 

001604 

MSiACT 

000001 

MTSOCT 

000060 

N$SLDV= 

959991 

MPSM' 

002143 

MPSRVT 

000156 

MSSrtDU 

000010 

MTSPHA 

000002 

N$$MCP= 

000001 

MP$N 

006335 

MPSSAC 

000514 

MSSALO 

000007 

MTSPOI 

000000 

NSSMLL= 

000001 

MP$f' 

001130 

MPSSAD 

000543 

MSSASE 

000006 

MT$QP2 

000010 

N$$MOV= 

000010 

PRSCIR   -  PARSE    A   CIRCUIT-ID 
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.EXHOP  -  SET  MAXIMUM  NUMBER  OF  HOPS  IN  NETWORK 


U6 
U7 
U8 
K9 
150 
151 
152 
153 
154 
155 
156 
157 
158 

159  00020A 

160  000204 

161  000212 

162  0002U 

163  000222 

164  000224 

165  000230 

166  000236 


.SBTTL   .EXHOP  -  SET  MAXIMUM  NUMBER  OF  HOPS  IN  NETWORK 

'**•  -  .EXHOP  -  SET  MAXIMUM  NUMBER  OF  HOPS  IN  NETWORK 

INPUTS: 

.PNUilB  =  THE  MAXIMUM  NUMBER  OF  HOPS  IN  NETWORK 

OUTPUTS: 

$MAXH  =  THE  MAXIMUM  NUMBER  OF  HOPS  IN  NETWORK 
THE  TRANSITION  IS  ACCEPTED/REJECTED. 


016767 
001404 
026727 
101405 
062716 
012767 
000207 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000002 

OOOOOOG  nOOOOOG 


.EXHOP:: 


10$: 


20$: 


MOV 

.PNUMB,$MAXH 

BEQ 

10$ 

CMP 

.PNUMB,#MAXHOP 

BIOS 

20$ 

ADD 

#2,(SP) 

MOV 

#ERRILN,$ERROR 

RETURN 


STORE  THE  MAX.  NUMBER  OF  HOPS  IN  NETWRK 

IF  EQ,  ILLEGAL  VALUE 

IS  THE  VALUE  IN  RANGE  ? 

IF  LOS,  YES  ..  OKAY 

ELSE,  REJECT  TRANSITION 

INVALID  NUMBER 
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PRSEXE    - 

PARSE 

iXECUTOI 

.EXRET   - 

EXECUTOR   RETR/ 

',9b 

497 

498 

499 

500 

501 

502 

50B 

504 

001256 

505 

001236 

116767 

506 

001244 

001406 

507 

001246 

005767 

508 

001252 

001003 

■iog 

001254 

105767 

510 

001260 

001405 

511 

512 

001262 

012767 

513 

001270 

062716 

514 

515 

001274 

000207 

516 

000001 
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.SBTTL 
.EXRET 


OOOOOOG  OOOOOOG 
OOOOOOG 
000001 G 


OOOOOOG  OOOOOOG  10$: 
C00002 


INPUTS: 

OUTPUT: 

EXRET:: 


.EXRET  -  EXECUTOR  RETRANSMIT  FACTOR 
-  EXECUTOR  RETRANSMIT  FACTOR 
TPARS  CONVENTIONS. 
$ERET   =  PARSED  EXECUTOR  RETRANSMIT  FACTOR 


20$: 


MOVB 

BEQ 

TST 

BNE 

TSTB 

BEQ 

MOV 
ADD 

RETURN 
.END 


.PNUMB,$ERET 

10$ 

.PNUMH 

10$ 

.PNUMBtl 

20$ 

#ERRILN,$ERROR 
#2,(SP) 


MOVE  IT 
IF  EQ,  ERROR 
TOO  HIGH  ? 
IF  EQ,  OK 
BYTE  VA!  JE? 
BR  IF  YES  -  OK 

ERROP  IN  NUMBER 

ELSE  REJECT  TRANSITION 
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"RSLIN   -   PARSE    A  LINE-ID 
CATS  -   CONVERT   ASCII    TO  RAD50 


168 

1W 

VO 

m 

M-? 

U1 

UA 

U5 

U6 

Ml 

UH 

U9 

1«0 

1H1 

ia? 

181 

184 

18S 

18ft 

18^ 

188 

189 

190 

191 

19? 

191 

194 

19S 

000250 

003100 

^'i<. 

000252 

000050 

1"^ 

000254 

000001 

198 

199 

000256 

010546 

?00 

000260 

005046 

?01 

000262 

005001 

■?w 

000264 

012702 

?01 

000270 

112005 

;^04 

000272 

020400 

?os 

000274 

103434 

?()A 

000276 

122705 

?n^ 

000302 

103425 

?n8 

000304 

122705 

?09 

000310 

101022 

?10 

000312 

162705 

?ii 

000316 

010046 

?v 

000320 

012200 

?ii 

000322 

010146 

?u 

000324 

010501 

?1S 

000326 

?1A 

000332 

0101C5 

?v 

000334 

012601 

^18 

000336 

012600 

?19 

000340 

060501 

?;^o 

000342 

020227 

??i 

000346 

103750 

77? 

000350 

112005 

77', 

000352 

020400 

27U 

000354 

101404 
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.SBTTL  CAT5  -  CONVERT  ASCII  TO  RAD50 

»«-CAT5-C0NVERT  ASCII  TO  RAD50 

INPUTS: 

RO  =  ADDRESS  OF  FIRST  BYTE  IN  STRING 

R3  =  LEGAL  TERMINATING  CHARACTER 

R4  =  ADDRESS  OF  THE  END  OF  THE  STRING 


OUTPUTS: 


C-BIT  CLEAR: 

RO  =  ADDRESS  OF  NEXT  BVTE  IN  STRING 

R1  =  CONVERTED  RESULT 

R2  =  COMPLETION  CODE  (0  =  MORE  IN  THE  STRING) 

(NOT  0  =  NO  MORE  IN  THE  STRING) 

C-BIT  SET: 

ILLEGAL  CHARACTER  IN  THE  STRING 


000250' 


000132 
000101 
000100 


000256' 


;    REG 

STERS  MODIFIED: 

NONE 

CVTFll 

.WORD 

50»50 

.WORD 

50 

.WORD 

1 

CATS: 

MOV 

R5,-(SP) 

CLR 

-CP) 

CLR 

R1 

MOV 

#CVT8L,R2 

10$: 

HOVB 

(R0)+,R5 

CMP 

R4,fi0 

BLO 

30$ 

CMPB 

#'Z,R5 

BLO 

20$ 

CMPB 

#'A,R5 

BHI 

20$ 

SUB 

#100, R5 

MOV 

RO,-(SP) 

MOV 

(R2)+,R0 

MOV 

R1,-(SP) 

MOV 

R5,R1 

CALL 

$MUL 

MOV 

R1,R5 

MOV 

(SP)+,R1 

MOV 

(SP)+,RO 

ADD 

R5,R1 

CMP 

R2,#CVTBLt6 

BLO 

10§ 

M0V8 

(R0)+,R5 

CMP 

R4,R0 

BLOS 

30i 

SAVE  REGISTERS 

ESTABLISH  EXIT  CONDITION  FLAG 

CLEAR  ACCUMULATION 

SET  ADDRESS  OF  SCALING  TABLE 

GET  A  CHARACTER 

REACHED  THE  END  OF  THE  STRING  ? 

IF  LO,  YES  -  END  OF  THE  STRING 

IS  IT  ALPHABETIC  ?  (BELOW  2) 

IF  LO,  NO  -  ERROR 

IS  IT  BELOW  A  ? 

IF  HI,  YES  -  ERROR 

SCALE  TO  RAD50 

SAVE  RO 

GET  SCALE  FACTOR 

SAVE  R1 

COPY  CHARACTER 

MULTIPLY  IT  OUT 

COPY  RESULT 

RESTORE  ACCUMULATION 

RESTORE  STRING  POINTER 

ACCUMULATE  THE  RESULT 

CONVERTED  ENOUGH  ? 

IF  LO,  NO  -  KEEP  GOING 

OTHERWISE  GET  TERMINATING  CHARACTER 

REACHED  THE  END  OF  THE  STRING  ? 

IF  LC,  YES 


;01 
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PAGE  2 

CREF   0^.00 


SYMBOL 

VALUE 

REFERENCES 

LF.X2P 

=  000000 

#5-60 

LN.CLO 

=  000000 

#5-60 

LN.DUM 

=  000005 

#5-60 

LN.LOA 

=  000004 

#5-60 

LN.LOO 

=  000003 

#5-60 

LN.OAU 

=  000003 

#5-60 

LN.OFF 

=  000001 

#5-60 

LN.ON 

=  000000 

#5-60 

LN.OOP 

=  OOOOOA 

#5-60 

LN.OPE 

=  000001 

#5-60 

LN.REi 

=  000002 

#5-60 

LN.SER 

=  000002 

#5-60 

LN.STA 

=  000017 

#5-60 

LN.SUB 

=  000360 

#5-60 

LN.IRI 

=  000006 

#5-60 

LPSMPT 

=  000010 

#6-63 

LPSMUX 

=  OOOOOA 

#6-63 

7-121 

7-133 

10-315 

LPSTRB 

=  000002 

#6-63 

LPSUNT 

=  000001 

#6-63 

7-143 

7-151 

.P$UCN 

=  OOOOAO 

#6-63 

6-63 

7-126 

7-147 

LPSWDV 

=  000020 

#6-63 

6-63 

LPSWLD 

=  000360 

#6-63 

LPSWTR 

=  000200 

#6-63 

6-63 

LPSWUN 

=  000100 

#6-63 

6-63 

7-143 

11-375 

L$ADJ 

000110 

#5-63 

L$BUF 

000060 

#5-63 

LSCHN 

000054 

#5-63 

LSCOU 

0001 K 

#5-63 

L$CTB 

000053 

#5-63 

L$CTL 

0000C2 

#5-63 

*7-132 

11-373 

LSODM 

000000 

#5-63 

•7-114 

12-409 

LSFLG 

000064 

#5-63 

LSFLX 

000070 

#5-63 

LSLEN 

000124 

#5-63 

LSLTM 

000070 

#5-63 

l$m:g 

000056 

#5-63 

LSMTYP 

000067 

#5-63 

L$NAM 

000000 

#5-63 

LSNLEN 

=  000020 

#5-63 

5-63 

5-63 

LSNOD 

000112 

#5-63 

LSNXT 

00004", 

#5-63 

LSOPT 

000062 

#5-63 

L$PAR 

000120 

#5-63 

LSPDV 

000055 

*5-63 

7-93 

LSPFG 

000041 

#5-63 
11-375 

7-121 

♦7-126 

7-133 

L$PLB 

000116 

#5-63 

L$PRO 

000067 

#5-63 

LSPVC 

000004 

#5-63 

LSSCN 

000020 

#5-63 

L$SCR 

000072 

#5-63 

LtSLEN 

000066 

#5-63 

11-371 


*7-143 


7-147 


»7-151 


*10-315 


11-371 


PRSLIN 
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PRSLOG  - 
CKEVER  - 

258 
259 
260 
261 
§62 
263 
26A 
265 
26f 
26/ 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 


6  IS 
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CHECK  EVENT  RANGE 


000270 

000270  005302 

000272  002402 

000274  110021 

000276  000774 

C00300  000207 
000001 


*♦*  SPRAY  -  SPRAY  A  BYTE 

FUNCTION: 

SPRAYS  A  SINGLE  BYTE  VALUE  THROUGHOUT  THE  SPECIFIED  AREA. 

INPUTS: 

RO  -  BYTE  VALUE  TO  SPRAY 

Rl  -  ADDRESS  TO  BEGIN  SPRAYING 

R2  -  NUMBER  Of  BYTES  TO  SPRAY 

OUTPUTS: 

Rl  -  ADDRESS  OF  NEXT  BYTE  AFTER  SPRAYED  AREA 

REGISTERS  R3,  R4,  R5  ARE  PRESERVED 


PROCEDURE  BODY 

§PRAY:: 
10$:    DEC 
BLT 

Move 

BR 


R2 
20$ 

RO,(Rl)t 
lOi 


CHECK  COUNT 

BR  IF  COUNT  <  0 

MOVE  A  BYTE  TO  DESTINATION 


20$: 


RETURN 
.END 
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PRSMOD  - 
MOMCL  - 

181 
182 
183 
18-; 
185 
186 
187 
188 
189 
190 
191 
192 
195 
194 
195 
196 
197 


PARSE  ACTION  ROUTINES 
PARSE  MAXIMUM  CLEARS 


D  16 

MACRO  V05.03b  Saturday  29-Jun-85  05:19 


Page  10 


000254 

000254  005767  OOOOOOG 

000260  001112 

000262  105767  000001G 

000266  001107 

000270  116767  OOOOOOG  OOOOOOG 

000276  000207 


.S8TTL   .MOMCL  -  PARSE  MAXIMUM  CLEARS 

♦*  .MOMCL  -  PARSE  MAXIMUM  CLEARS 

INPUTS       .TPAfiS  VARIABLES. 

OUTPUT       $MXC  =  PARSED  MAXIMUM  CLEARS 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.MOMa.- 


TST 

BNE 

TST8 

BNE 

MOVB 

RETURN 


.PNUMH 

ILLNUM 

.PNUMB+I 

ILLNUM 

.PNUMB.SMXC 


HIGH  ORDER  WORD 

REJECT  IF  TOO  HIGH 

TEST  HIGH  BYTE 

BR  IF  ILLEGAL  NUMBER 

MOVE  VALUE  TO  PARcED  AREA 
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CfETSB  -  TEMPLATE  PARSE 

„UBROUT  MACRO  V05 

.03b  Saturday 

29-Jun-85  05:15  Page  5-1 

$GTR50  -  GET  RAD50 

126 
127 
128 
129 

REGISTERS: 

USES  R0-R2. 

CALLING  SEQUENCE:   ENTER  VIA  CALLR  FROM  WITHIN  A  ACTION  ROUTINE.                       | 

130 

131 

- 

132 

133  000072 

$GTR50: 

13A  000072 

010100 

MOV 

RI.RO 

COPY  FIELD  SIZE  IN  WORDS 

135  000074 

006300 

ASL 

RO 

X  2 

136  000076 

060100 

ADD 

RI.RO 

X  3  =  SIZE  IN  CHARS 

137  000100 

026^00 

OOOOOOG 

CMP 

.PSTCN.RO 

CHECK  SIZE 

138  0001 OA 

101035 

BHI 

REJECT 

IF  HI,  REJECT  TRANSITION 

139  000106 

010346 

MOV 

R3,-(SP) 

FREE  UP  A  REGISTER 

1A0  000110 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

POINT  TO  INPUT  STRING 

141  0001U 

010003 

MOV 

R0,R3 

COPY  POINTER 

142  000116 

066703 

OOOOOOG 

ADD 

.PSTCN,R3 

POINT  TO  CHARACTER  AFTER  LAST 

14?  000122 

010346 

MOV 

R3,-(SP) 
(R3),-(SP) 

SAVE  ITS  ADDRESS 

144  000124 

111346 

Move 

SAVE  IT 

145  000126 

112713 

000077 

MOVB 

#'?,(R3) 

INSERT  N0N-RAD50  TERMINATOR 

146  000132 

066702 

177646 

ADD 

.TEMP,R2 

POINT  TCI  FIELD 

147  000136 

010203 

MOV 

R2,R3 

COPY  FIELD  POINTER 

148  000140 

149 

150  000144 

016746 

OOOOOOG 

MOV 

.PSTCN,-(SP) 

PUSH  CHARACTER  COUNT 

005022 

0$: 

CLR 

(R2)  + 

CLEAR  A  '.'ORD 

151  000146 

005301 

DEC 

Rl 

COUNTDOWN 

152  000150 

003375 

BGT 

10$ 

UNTIL  ENTIRE  FIELD  CLEARED 

153 

154  000152 

010601 

?0$: 

MOV 

SP.RI 

ALLOW  PERIODS 

155  000154 

004767 

OOOOOOG 

CALL 

.CAT5 

■  GET  RAD50  WORD  (A'.LOW  "*") 

156  000160 

010123 

MOV 

R1,(R3)*- 

STUFF  IT  INTO  TEM'^LATE, 

157  000162 

162716 

000003 

SUB 

#3.(SP) 
20i 

•  TEST  FOR  END  OF  STRING 

158  000166 

159 

160  000170 

003371 

BGT 

IF  GT,  MORE  IN  STRING 

005726 

50$: 

TST 

(SP)  + 

•  POP  COUNT 

161  000172 

112636 

MOVB 

(SP)  +  ,5l(SP)t 

RESTORE  TERMINATOR 

162  0C0174 

012603 

MOV 

(SP>,R3 

RESTORE  SCRATCH  REGISTER 

163  000176 

164 

165  000200 

000207 

RETURN 

062716 

000002 

REJECT 

ADD 

#2,(SP) 

•  REJECT  TRANSITION 

166  000204 

000207 

RETURN 

167 
168 
169 

.SBTTL 

SCLERR  -  CLEAR  PARSE  ERROR                                          | 

170 

■  + 

171 

;  **  SCLERR  - 

'LEAR  PARSE  ERROR 

172 

173 

;  INPUTS: 

NONE.     .  . 

174 

175 

;  OUTPUT: 

PARSE  ERROR  CLEARED.                                                | 

176 

177 

■  - 

178 

179  000206 

SCLERR 

180  000206 

005067 

177566 

'CLR 

.ERROR 

;  CLEAR  PARSE  ERROR 

181  000212 

000207 

RETURN 

182 

CFETSB  -   TEMPLATE   PARSE   SUBROUT  MACRO  V05.03b   Saturday  29-Jun-85 
tflFRR   -   riFAR  PARSE    ERROR 


1 

";15 
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CfEUPD  - 

SMovn  - 

272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
282 
283 
28^ 
285 
286 


E  2 

UPDATE  THE  CETAB  flLE  MACRO  V05.03b  Saturday  29-Jun-85  05:15  Page  8 
MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WlTHl'UT  EDITS 

.SBTTL  SMOVIT  -  MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 
%*♦  -  SMOVIT  -  MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 
INPUT: 


$BUFI  =  INPUT  LINE 
OUTPUT: 


$0FDB+F.NRBD+2 


OUTPUT  BUFFER  ADDRESS 


000^36  012767  OOOOOOG  OOOOOOC      "mOV     #$8UFI  ,$0FDB+F  .NRB[/+2  ;  POINT  FDB  AT  OUTPUT  BUFFER 
0OOA4A  000207  RETURN  ;  RETURN  TO  CALLER 


F  2 


CFEUPD 
SMQ'JIT 


UPDATE  THE  CETAB  FILE  MACRO  V05.03b  Saturday  29-Jun-85  05:15  Page  9 
MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 


CFEUSB  -  TEMPLATE  UPDATE  SU8R0U  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  CALLS  AND  DATA  AREA 


55:16 
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57 
58 
59 
60 
61 
62 
63 
64 
65 

66  000000 

67  000002 

68  000004 

69  000006 

70  000010 
71 

72 
73 
74  000130 


.SBTTL  MACRO  CALLS  AND  DATA  AREA 
MACRO  CALLS 

.MCALL   CALLR 


;  GLOBAL  DATA 

; ERROR 
.FLAGS 
.TEMP: 
.COMMA 
.3UFF: 

:  .BLKW 
:  .BLKW 

.BLKW 
:  .BLKW 

.6LKB 

1 
1 

80 

■  LOCAL  DATA 

BYTFLG 

.BLKW 

1 

PARSE  ERROR  MESSAGE  ADDRESS 
POINTER  TO  C.STS  OF  CURRENT 
ADDRESS  OF  CURRENT  TEMPLATE 
COMMA  COUNT  FOR  SPTOPT 
ALTERNATE  OM  OUTPUT  BUFFER 


BYTE  MODE  FLAG  FOP  SPTNUH 


TEMPLATE  FOR  FLAG  SETTING 


F  3 

CFEUSB  -  TEMPLATE  UPDATE  S'JSROU  MACRO  V05.03b  Saturday  29-Jun-85  05:16  Page  5 
tPTNUM  -  PUT  NUMBER  INTO  TEMPLATE  (WORD) 


EVTTBL 


SEATED  BY 


SY*1B0L  CROSS  REFERENCE 

SYMBOL  VALUE 

S<NEVT    000000  RG 
itBO   =  000001 


$$$B1 


000002 


$S$B10 

=  002000 

$$$B 1 1 

=  OOAOOO 

$$SB12 

=  010000 

$$$B13 

=  020000 

$$$BK 

=  OAOOOO 

$$$B15 

=  100000 

$$$B2 

=  OOOOOA 

$$$B3 

=  000010 

$$$B4 

=  000020 

$$$B5 

=  000040 

$$$B6 

=  0C0100 

$$$B7 

=  000200 

$$$B8 

=  000400 

S$$B9 

=  001000 

$$$U0 

=  177777 

$$$u1   ^  000037 


MACRO     ON  29-JUN-85 

AT  05:16 

PAGE   1 

4 

CREF       04. 

00 

REFERENCES 

tr-it 

3-88 

3-89 

3-90 

3-91 

3-91 

3-92 

3-92 

3-93 

3-94 

3-95 

3-96 

3-98 

3-98 

3-99 

3-ino 

3-101 

3-102 

3-103 

3-104 

3-105 

3-106 

3-107 

3-107 

#3-54 

3-88 

3-89 

3-90 

3-91 

3-91 

3-92 

3-92 

3-93 

3-94 

3-98 

3-101 

3-106 

3-107 

3-107 

#3-54 

3-91 

3-92 

3-106 

3-107 

#3-54 

3-91 

3-92 

3-107 

#3-54 

3-91 

3-92 

3-107 

#3-54 

3-91 

3-92 

3-107 

#3-54 

3-91 

3-92 

3-97 

3-107 

#3-54 

3-91 

3-92 

3-107 

#3-54 

3-88 

3-90 

3-91 

3-91 

3-92 

3-92 

3-93 

3-94 

3-98 

3-101 

3-106 

3-107 

3-107 

#3-54 

3-88 

3-91 

3-91 

3-92 

3-93 

3-98 

3-101 

3-106 

3-107 

3-107 

#3-54 

3-88 

3-91 

3-92 

3-93 

3-106 

3-107 

3-107 

#3-54 

3-88 

3-91 

3-92 

3-93 

3-106 

3-107 

#3-54 

3-88 

3-91 

3-92 

3-106 

3-107 

#3-54 

3-88 

3-91 

3-92 

3-106 

3-107 

#3-54 

3-88 

3-91 

3-92 

3-102 

3-106 

3-107 

#3-54 

3-88 

3-91 

3-92 

3-102 

3-106 

3-107 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-88 

3-88 

#3-89 

3-89 

#3-89 

3-89 

#3-89 

3-89 

#3-90 

3-90 

#3-90 

3-90 

#3-90 

3-90 

#3-90 

3-90 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-9? 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

3-92 

#3-92 

#3-93 

3-93 

#3-93 

3-93 

#3-93 

3-93 

#3-93 

3-93 

#3-93 

3-93 

#3-93 

3-93 

#3-93 

3-93 

#3-94 

3-94 

#3-94 

3-94 

#3-94 

3-94 

#3-94 

3-94 

#3-95 

3-95 

#3-95 

3-95 

#3-96 

3-96 

#3-96 

3-96 

#3-97 

3-97 

#3-97 

3-97 

#3-98 

3-98 

#3-98 

3-98 

#3-99 

3-99 

#3-99 

3-99 

#3-100 

3-100 

#3-100 

3-100 

#3-101 

3-101 

#3-101 

3-101 

#3-101 

3-101 

#3-101 

3-101 

#3-101 

3-101 

#3-102 

3-102 

#3--!02 

3-102 

#3-102 

3-102 

#3-102 

3-102 

#3-103 

3-103 

#3-103 

3-103 

#3-104 

3-104 

#3-104 

3-104 

#3-105 

3-105 

#3-105 

3-105 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-106 

3-106 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

^-W-, 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-88 

3-88 

#3-89 

3-89 

#3-90 

3-90 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-91 

3-91 

#3-92 

3-92 

#3-92 

3-92 

#5-92 

3-92 

#3-92 

3-92 

#3-93 

3-93 

#3-94 

EVTTBL 
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F  A 


PR'ilPTS  -   PROMPTS, 
PROMPTS 

130  000000 

131  000000 

132  000000 

133  000000 
13^  000000 

135  000000 

136  000000 

137  000000 

138  000000 

139  000000 
UO  000000 
HI  000000 
K2  000000 
H3  000000 

144  000000 

145  000000 

146  000000 

147  000000 

148  000000 

149  000000 

150  000000 

151  000000 

152  000000 

153  000000 

154  000000 

155  000000 

156  000000 

157  000000 

158  000000 

159  000000 

160  000000 
16^  000000 

162  000000 

163  000000 

164  000000 

165  000000 

166  000000 

167  000000 

168  000000 

169  000000 

170  000000 

171  000000 

172  000000 

173  000000 

174  000000 

175  000000 

176  OOOOGO 

177  000000 

178  000000 

179  000000 

180  000000 

181  000000 

182  000000 

183  000000 

184  000000 

185  000000 

186  000000 
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PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRr"^TS 
PRMPiS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PR-'IPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 


'Clear  object  options:  >, 

PSCLOB, 

■^;> 

'Clear  timer  (sec) :  >, 
'Clear  trace  options:  '>, 
'Clock  mode:  '  >, 

PSCLT, 

<:> 

PSCLTR, 

<:> 

PSCLK, 

<:> 

'Command:  ">, 

PSCOM, 

<:> 

'Component  type:  ">, 

PSPEN, 

<:> 

'Controller  mode:  ">, 

PSCON, 

<:> 

'Copies:  ">, 

PSCOP, 

<;> 

'Cost;  ">, 

PSCOS, 

<;> 

'Counter  timer  (sec):  ">, 

PSCTM, 

<:> 

'CPU  type:  ">, 

PSCPU, 

<:> 

'CSR  address:  ">, 

PSCSR, 

<:> 

'Dead  polling  ratio:  >, 

PSDEA, 

<:> 

'Dead  threshold:  ">, 

PSDDTH, 

<:> 

'Dead  timer  (msec) :  ">, 

PSDDT, 

<:> 

'Default  data  (bytes) :  ">, 

PSBDF, 

<:> 

'Default  window  (bytes):  ">, 

PSWDF, 

<:> 

'Delay  factor;  ">, 

PSDFA, 

<:> 

'Delay  timer  (msec):  ">, 

PSDLT, 

<:> 

'Delay  weight:  ">, 

PSDWE, 

<:> 

'Destination  id;  >,^ 

PSDST, 

<:> 

'Destination  node:  ">, 

PSDES, 

<:> 

'Deuice  spec;  ">, 

PSDEV, 

<;> 

'Diagnostic  file:  ">, 

PSDIA, 

<:> 

'DTE  address:  ">, 

PSDTE, 

<:> 

'DTE  number:  ">. 
'Dump  address:  '>, 
'Dump  count:  ">, 
'Dump  file;  ">. 
'Dump  option:  '>, 

PSNUM, 

<:> 

PSDUA, 

<:> 

PSDUC, 

<:> 

PSDUM, 

<:> 

PSDUMO, 

<:> 

'Duplex:  ">, 
'Dying  base:  ">, 
'Dying  increment:  ">, 
'Dying  threshold:  ">, 

PSDUP, 

<:> 

PSBSD, 

<:> 

PSIND, 

<:> 

PSDYTH, 

<:> 

'Event  identification:  ">, 

PSEVE, 

<:> 

'file  name:  ">, 

PSFNAM, 

<:> 

'Group  name:  ">, 
'Group  number:  '>, 
'Hello  timer  (sec);  ">, 

PSGRP, 

<:> 

PSGNM, 

<;> 

PSHTM, 

<;> 

'Hardware  address;  ">, 

PSHAD, 

<:> 

'Hardware  option;  ">, 

PSHAO, 

<;> 

'Hexadecimal  password;  ">, 

PSHPAS, 

<:> 

'Holdback  ^imer  (msec):  ">, 

PSHBT, 

<:> 

'Host  node  identification:  ">, 

PSHOS, 

<:> 

'Identification;  ">, 

PSIDE, 

<:> 

'  nactiue  base:  ">, 

PSBSI, 

<:> 

'  nactive  increment:  ">, 

PSINI, 

<:> 

'Inactive  threshold:  ">, 

PSINTH, 

<:> 

'Inactivity  timer  (sec):  ">, 
'Incoming  timer  (sec);  ">, 

PSIAT, 
PSITI, 

<;> 
<:> 

'Length  of  test  data:  ]'>, 
'Line  identification;  ">, 

PSLEN, 

<;> 

PSLNID, 

<:> 

'Line  owner:  ">, 

PSLOWN, 

<:> 

'Line  protocol:  ">, 
'Line  state;  ">, 

PSPRO, 
PSLIST, 

<;> 
<:> 

'Load  image  input  file;  ">, 

PSLOA, 

<:> 

'Load  options:  ">, 

PSLDOP, 

<:> 

f  5 

PRMPTb  -  OROMP'S,  STRING  ASSEMB  MACRO  V05.03b  Saturday  29-Jun-85  17:01 
PROMPT"; 
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PRMPTO  -  PROMPTS, 
PROMPTS 

187  000000 

188  000000 

189  000000 

190  000000 

191  000000 

192  000000 

193  000000 

194  000000 

195  000000 

196  000000 

197  000000 

198  r 30000 

199  000000 

200  000000 

201  000000 

202  000000 

203  000000 

204  000000 

205  000000 

206  000000 

207  000000 

208  000000 

209  000000 

210  000000 

211  000000 

212  000000 

213  000000 
2K  000000 

215  000000 

216  000000 

217  000000 

218  000000 

219  000000 

220  000000 

221  000000 

222  000000 

223  000000 

224  000000 

225  000000 

226  000000 

227  000000 

228  000000 

229  000000 

230  000000 

231  000000 

232  000000 

233  000000 

234  000000 

235  000000 

236  000000 

237  000000 

238  000000 

239  000000 

240  000000 

241  000000 

242  000000 

243  000000 
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PRMPTS 
PRMPT$ 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PPMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 


Location  in  memory:  ">, 
'Logging  sink  type:  ">, 
'Logging  state:  '>, 
'Loop  component:  ">, 
loop  help  type:  ">, 
'Maximum  address:  ">, 
'Maximum  Area  Number:  ">^ 
"Maximum  block  (bytes):  '>, 
■Maximum  Broadcast  Routers:  ">, 
'Maximum  Broadcast  NonRouters: 
'Maximum  bu'f  '•s:  ">, 
'Maximum  cirt  ts:  ">, 
'Maximum  clears:  ">, 
"Maximum  controllers:  ">, 
^Maximum  cost:  ">, 
■Maximum  data  (bytes):  ">, 
■Maximum  hops:  ">, 
'Maximum  lines:  ">, 
Maximum  links:  ">, 
■Maximum  recall  count:  ">.^, 
'Maximum  receive  buffers:  ">, 
■Maximum  resets:  ">. 
'Moximum  restarts:  '>, 
'Mjximum  retransmits:  ">, 
Maximum  Routers:  ">, 
Maximum  transmit  count:  ">, 
Maximum  visits:  ■■>, 
Maximum  window  (blks):  ■■>, 
Module  identification:  ">. 
Multipoint  ratio  type:  '■>, 
'Network  name:  "'>, 
'Node  identification:  ">, 
"Node  name:  ■■>, 
■Executor  state:  ">, 
'Executor  Node  Type:  ">, 
■Number  of  test  messages:  ■■>, 
■Object  identification:  ■'>, 
'Object  name:  ">. 
'Object  number:  '>, 
■Object  user:  ■'>, 
'Object  verification:  '>, 
■Originating  Queue  Limit:  ■'>, 
'Outgoing  timer  (sec):  ">, 
■Output  Tile/device:  ■■>, 
■■Partition  name:  '■>, 
''Password:  ">, 
'■physical  address:  ■■> 
'■physical  option:  ■■> 
'Polling  state:  ">, 
■Priority:  ■■>, 
■■Process  name:  ">, 
'■Router  Priority:  ■'>, 
'Recall  timer  tsec):  ">, 
■Receive  buffers:  ">. 
■Reset  timer  (sec):  '>, 
■Restart  timer  (sec):  ■>, 
■Retransmit  factor:  ■■>, 


PSLOC, 

<:> 

PSLGID, 

<:> 

PSLOST, 

<:> 

PSLOO, 

<:> 

PSLHE, 

<:> 

PSMAJ, 

<:> 

PSAREA, 

<:> 

PSLMB, 

<:> 

PSMBR, 

<:> 

PSMBN, 

<:> 

PSMBU, 

<:> 

PSMLN, 

<:> 

PSLMX, 

<:> 

PSHXCO, 

<:> 

PSMCO, 

<:> 

PSCMB, 

<:> 

PSMHO, 

<:> 

PSMXLI, 

<:> 

PSMLK, 

<:> 

PSMXR, 

<:> 

PSMRO, 

<:> 

PSRMX, 

<:> 

PSSMX, 

<:> 

PSMRT, 

<:> 

PSMXRT 

<:> 

PSMXB, 

<:> 

PSMVI, 

<:> 

PSMXW, 

<:> 

PSMOID, 

<:> 

PSMUL , 

<:> 

PSNET, 

<:> 

PSNID, 

<:> 

PSNAM, 

<:> 

PSNOST, 

<:> 

PSETY, 

<:> 

PSCOU, 

<:> 

PSOBJ , 

<:> 

PSOBNA, 

<:> 

PSOID, 

<:> 

PSOBUS, 

<:> 

PSOBVE , 

<:> 

PSOQL, 

<:> 

PSOTI, 

<:> 

PSTO, 

<:> 

PSPAR, 

<:> 

PSPAS, 

<:> 

PSPHA, 

<:> 

PSPHO, 

<:> 

PSPST, 

<:> 

PSPRI, 

<:> 

PSP  D, 

<:> 

PSR  PR 

<:> 

PSRET, 

<:> 

PSBFQ, 

<:> 

PSRST, 

<:> 

PSRRT, 

<:> 

PSRFA, 

<:> 

F 
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13V 
138 
159 
UO 
141 
U2 
K3 
144 
145 
146 
147 
148 
149 
150 
151 

152  000224 

153  000224 

154  000230 

155  000232 

156  000240 

157  000242 

158  000250 

159  000252 

160  000260 

161  000262 

162  000270 

163  000272 
000300 
000302 

166  000310 

167  000312 

168  000316 

169  000320 

170  OC0326 

171  000330 

172  000336 

173  000542 


164 
165 


004767 
105450 
026767 
001014 
026767 
001004 
026767 
001430 
012767 
000422 
026767 
001004 
026767 
001407 
004767 
105411 
026067 
001405 
012767 
062716 
000207 


.SBTTL 
***  -  .NONAM 
INPUT: 


.NONAM  -  NODE  NAME  ACTION  ROUTINE 
NODE  NAME  ACTION  ROUTINE 


.PSTPT  =  Al/DRESS  Of  NODE  NAME 
.PSTCN  ^  COUNT  OF  CHARS  IN  NODE  NAME 

OUTPUT: 

SNODNA  =  RAD50  NODE  NAME  (2  WORDS) 

RO.Rl  =  DESTROYED 

THE  TRANSITION  IS  ACCEPTED  OR  REJECTED 


.NONAM: 
000144 

OOOOOOG  OOOOOOG 

OOOOOOG  0000006 

000002G  00C0O2G 

000105'  OOOOOOG  5$: 

OOOOOOG  OOOOOOG  5$: 

000002G  000002G 

000756        10$: 

000010  OOOOOOG 


000000'  OOOOOOG  20$ 

000002        25$ 

30$ 


CALL 

BCS 

CMP 

BNE 

CMP 

BNE 

CMP 

BEQ 

MOV 

BR 

CMP 

BNE 

CMP 

BEQ 

CALL 

BCS 

CMP 

BEQ 

MOV 

ADD 

RETURN 


NODNAM 

10$ 

$NODAD,$NTADD 

5$ 

$NODNA,$NTNAM 

^*  t, 

$N0DNA+2,$NTNAM+2 

50$ 

#ERREXE,$ERROR 

25$ 

$NODNA,$NTNAM 

10$ 

$N0DNA+2,$NTNAM+2 

20$ 

FNDNAM 

30$ 

C.ADD(R0),$NODA0 

50$ 

#ERRNAM,$ERROR 

#2,(SP) 


CONVERT  NODE  NAME 
IF  CS,  ERROR 

IS  THIS  THE  EXECUTOR  NODE? 
BR  IF  NO 

IS  THIS  THE  EXECUTOR  NODE  NAME? 
BR  IF  NO  ERROR 
;  REALLY? 
BR  IF  YES  ..  OKAY 

ELSE,  ILLEGAL  TO  CHANGE  EXECUTOR  NAME 
BR  TO  INDICATE  ERROR 
IS  THIS  THE  EXECUTOR  NODE  NAME  ? 
IF  NE,  NO  ..  OKAY 
;  REALLY  ? 
IF  EQ,  YES  ..  ERROR 

TRY  TO  FIND  NO'   'JAME  IN  REMOTE  BLOCKS 
IF  CS,  CAN'T  .    AY 
;  ELSE,  IS  THIS   .t  SAME  NODE  ? 
IF  EQ,  YES  ..  OKAY 
ELSE,  NAME  ALREADY  IN  USE 
REJECT  TRANSITION 


F  7 
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CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

CM.DEF 

=   ****** 

GX 

11-330 

CM. LIS 

~    ****** 

GX 

n-328 

14-410 

CO. EXE 

=   ****** 

GX 

11-332 

14-412 

CS.REM 

r     ****** 

GX 

12-358 

16-473 

C.ADD 

000010 

#4-76 

8-169 

12-360 

14-419 

15-450 

C.NAM 

000004 

#4-75 

16-475 

16-477 

C.STS 

=  ****** 

GX 

12-358 

16-473 

ERRADD 

000041 

R 

#4-64 

12-362 

ERREXE 

000105 

R 

#4-65 

8-161 

11-334 

14-421 

ERRILC 

=  ****** 

GX 

14-401 

ERRILN 

=  ****** 

GX 

11-285 

11-336 

12-365 

ERRNAM 

000000 

R 

#4-63 

8-171 

9-195 

ERRNOD 

=    ****** 

GX 

14-423 

EXSERR 

=  000002 

#4-62 

4-63 

4-64 

4-65 

FNONAM 

001254 

R 

8-167 

9-193 

14-414 

15-448 

#16-468 

ILLNUM 

001024 

R 

#12-364 

13-383 

17-496 

17-501 

17-504 

18-522 

18-524 

18-526 

NODNAM 

000374 

R 

8-153 

9-191 

#10-213 

14-403 

15-439 

START 

r    ****** 

GX 

•  5-95 

SBL.AU 

000206 

RG 

#6-117 

$BL.A3 

000200 

RG 

#6-115 

SBL.MA 

000156 

RG 

#5-93 

SBL.MN 

000150 

RG 

#5-91 

$BSZ 

-   ****♦♦ 

GX 

♦17-498 

$CAT5 

-   ****** 

GX 

10-217 

10-221 

SCMAND 

=   ****** 

GX 

11-328 

11-330 

14-410 

tCMOPT 

-   ****** 

GX 

♦7-134 

SCOMP 

=   ****** 

GX 

♦11-332 

•14-412 

SERROR 

=   ****** 

GX 

♦8-161 
•14-421 

•8-171 
•14-423 

•9-195 

•11-285 

•11-334 

•11-336 

•12-362 

♦12-365 

14-401 

SNODAD 

=   ****** 

GX 

8-155 
11-326 

8-169 
12-360 

•11-241 
•14-419 

11-264 
•15-445 

♦11-276 
•15-450 

•n-282 

•11-312 

11-319 

♦11-325 

SNODNA 

r     ****** 

GX 

8-157 
15-441 

8-159 
15-443 

8-163 
16-475 

8-165 
16-477 

•10-214 

•10-218 

•10-222 

14-406 

14-408 

SNTADD 

=     ****** 

GX 

8-155 

11-257 

11-282 

11--309 

11-321 

11-325 

11-326 

15-445 

SNTNAM 

=     ****** 

GX 

8-157 

8-159 

8-163 

8-165 

14-406 

14-408 

15-441 

15-443 

SRTM 

-     ****** 

GX 

•13-382 

STMLST 

-     ****** 

GX 

12-355 

16-469 

$WSZ 

-     ****** 

GX 

•18-523 

.BL.AU 

0001 7A 

RG 

#6-113 

.EXADD 

00076A 

RG 

#12-354 

.£."NAM 

0003AA 

RG 

#9-190 

.EXRTM 

001040 

RG 

#13-379 

.HLPAC 

000216 

RG 

#7-133 

.NONAM 

00022A 

RG 

#8-152 

.PFLAG 

-   ****** 

GX 

•  5-92 

•  5-94 

•6-116 

•6-118 

. PNUMB 

-   ****** 

GX 

n-261 

11-307 

13-382 

17-497 

18-525 

18-525 

.PNUMH 

~   ****** 

GX 

11-259 

11-305 

17-495 

18-521 

.PRMDA 

001322 

RG 

#17-494 

.PRMWI 

001370 

RG 

#18-520 

.PSTCN 

-      ****** 

GX 

10-223 

.PSTPr 

z       ****** 

GX 

5-95 

10-215 

.RNADD 

000612 

RG 

#11-304 

PRSACT 
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286 

287 

288 

289 

290 

291 

292 

293 

29^ 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3K 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 
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.SBTTL  NEWPVC  -  Check  circuit  syntax  for  new  X.25  PVC 

*•*  NEWPVC  -  Check  circuit  syntax  for  new  X.25  PVC 

FUNCTION 

If  the  circuit  name  has  'X25-'  as  a  prefix,  then 

indicate  in  the  context  area  that  a  new  circuit  has  been  requested. 

INPUTS 

R1  -  Address  of  circuit  name  as  counted  string 
R5  -  Address  of  context  area 

OUTPUTS 

Carry  set  if  not  a  possible  new  circuit 

Otherwise: 

L$TPT(R5)  set  to  -1  (indicates  X.25  circuit,  and 
presents  NXTCIR  trying  to  find  it  in  the  PVC  list) 
[$SLT(R5)  set  to  0  (indicates  not  yet  extant) 
L$NAM(R5)  set  to  circuit  id 

RO  destroyed. 


000460 

000460 

000464  017700  OOOOOOG 

000470  001426 

000472  032760  000010  000000 

000500  001422 

000502  112100 

000504  020027  000004 

000510  101416 

000512  012700  000004 

000516  012702  000000' 

000522  122122 

000524  001010 
000526 

000532  012765  177777  000050 

000540  005065  000042 

000544  005727 

000546  000261 
000550 
000554 


NEWPVC: 


10$: 


20$: 


<R1,R2> 

aPSIPT,RO 

20$ 

#HF$GWY,H$FLG(RO) 

20$ 

(R1)+,RC 

RO,#XPREFL 

20i 

#XPREFL,RO 

#XPREF,R2 

(R1)+,(R2)t 

20$ 

R0,10$ 

#-1,L$TPT(R5) 
L$SLT(R5) 

(PC)  + 

<R2,R1> 


SAVRG 

MOV 

BED 

BIT 

BEQ 

Move 

CMP 

BLOS 

MOV 

MOV 

CMPB 

BNE 

SOB 

MOV 
CLR 

TST 
SEC 
RESRG 
RETURN 


.ENDC  ;  NDF  R$$11S 


Save  work  registers 

Check  we  have  PSI  ;  RJK05 

Branch  if  not 

Check  we  are  a  gateway 

Branch  if  not 

Get  length  of  circuit-id 

Long  enough  to  include  prefix? 

Branch  if  not 

Point  to  PVC  prefix  string 
See  if  prefix  present 
Branch  if  not 


Flag  circuit  as  X.25  circuit 

Avoid  confusion  with  existing  circs. 

Clear  carry  (success)  and  skip 

Restore  work  registers 


PRSCIR  -  PARSE    A   CIRCUIT-ID 
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N$$NCT= 

000001 

SFSANM 

000001 

S$$YSZ= 

007600 

2F.DVP= 

100000 

Z.DAT 

000016 

N$$PE1= 

000001 

SrSDNM 

000002 

S.C05T 

000001 

ZF.INI= 

040000 

Z.DSP 

000000 

PDVAD 

001334R 

Sf .ACT= 

000200 

S.FLG 

000000 

ZF.KHX= 

000020 

Z.FLG 

000010 

PDVID  = 

»»»«♦«  GX 

SF.ENA= 

000100 

S.LEN 

000004 

ZF.LLC= 

225991 

Z.LEN  = 

000016 

PDVTA  = 

.««**»  GX 

SF.LP8= 

000004 

S.NMST 

000002 

ZF.LMC= 

000100 

Z.LLN 

000006 

PRSCIR 

OOOOOARG 

SF.«FL= 

000040 

3 . OWNR 

000003 

ZF.MAN= 

020000 

Z.MAP 

000020 

PSIPT  = 

«.»».*  GX 

SF.PAC= 

000020 

T$$KMo= 

000000 

ZF.MFL= 

592912 

Z.NAM 

000004 

P$$PA5= 

000000 

SF.REA= 

000010 

T$$M1N= 

000000 

ZF.MTM= 

000400 

Z.PCB 

000012 

P$$WRD= 

000000 

SF.SER= 

000001 

V$$CTR= 

001000 

ZF.HUX= 

000040 

Z.SCH 

000007 

Q$$OPT= 

000010 

SF.SVC= 

000002 

XPf)EF 

OOOOOOR 

Zf.PSE= 

90?999 

$FNP\/C  = 

****** 

GX 

R$RO  = 

♦♦*»*»  GX 

SF.UNL= 

000040 

XPREFL= 

000004 

ZF.SLI= 

010000 

$HEADR= 

****** 

GX 

R$R1   = 

******  GX 

SLTMA  = 

****** 

GX 

X$$DBT= 

000000 

ZF.TIM= 

000200 

$MUL  = 

****** 

GX 

R$$DER= 

000000 

SLTNM  = 

****** 

GX 

ZF.COU= 

001000 

ZF.X3P= 

000000 

$SAVAL= 

****** 

GX 

R$$K11= 

000001 

SPACE  = 

000040 

ZF.DDM= 

000001 

ZS.ASN= 

199999 

$$$R  = 

000010 

R$$SN[)= 

000000 

STOCIR 

000402RG 

ZF.D1A= 

004000 

ZS.BSY= 

140000 

$$$SYS= 

004374 

R$$11M= 

000000 

S$$WRG= 

000000 

ZF.DLC= 

000002 

Z.AVL 

000014 

$$$SYX= 

000000 

.  ABS. 

177776    000 
O0U3A    001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

Errors 

detected:   0 

*♦*  Assembler   statistics 


Work      file     reads:  224 

Work     f i le  writes:  158 

Size  of   work    file:  31874  Words      (   125   Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system.  RSX-HM/PLUS 
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168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 

181  000240 

182  000240 

183  000246 

184  000250 

185  000256 

186  000260 

187  000264 

188  000272 


016767 
001404 
026727 
101405 
062716 
012767 
000207 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000002 

OOOOOOG  OOOOOOG 


.S8TTL   .EXCOS  -  SET  MAXIMUM  LINE  COST  IN  NETWORK 

'♦**  -  .EXCOS  -  SET  MAXIMUM  LINE  COST  IN  NFTWOkK 

INPUTS: 

.PNUMB  =  THE  MAXIMUM  LINE  COST  IN  NETWOHK 

OUTPUTS: 

$MAXC  =  THE  MAXIMUM  LINE  COST  IN  NETWORK 
THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.EXCOS: 


10$: 


20$: 


MOV 

.PNUMB,$MAXC 

STORE  THE  MAX.  LINE  COST 

BEQ 

10$ 

IF  EO,  ILLEGAL  VALUE 

CMP 

.PNUMB,#MAXCST 

IS  THE  VALUE  IN  RANGE  ? 

BLOS 

20$ 

IF  LOS,  YES  ..  OKAY 

ADD 

#2,(SP) 

ELSE,  REJECT  TRANSITION 

MOV 

#ERRILN,$ERROR 

INVALID  NUMBER 

RETURN 

F  11 
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CS.ROU= 

*♦  t *** 

r,X 

SEAHOP^ 

*•»»**  GX 

$L1NKS= 

»*»***  GX 

.EAMAX 

000624RG 

C.ADD  = 

OOOOOA 

$EAMAX= 

♦***♦»  GX 

SMAXC  = 

•♦*»♦♦  GX 

.EXBEA 

001002RG 

C.STS  = 

****** 

GX 

SEBEA  = 

*♦*«»»  GX 

SMAXH  = 

*•»♦♦*  GX 

.EXBRT 

000750RG 

ERR1LN= 

****** 

r,x 

SEBRT  : 

«»**♦•  GX 

$MVASC= 

•**»*♦  GX 

.EXCOS 

000240RG 

ERRPNA= 

****** 

r,x 

$E  NA  = 

******  GX 

SNCOU  = 

******  GX 

.EXHOP 

000204RG 

MAXCST= 

****** 

r,x 

$E  NC  = 

**.♦*»  GX 

$NN   = 

««*«**  GX 

.EXHOS 

000476RG 

MAXHOP= 

****** 

GX 

SEOUT  = 

•♦**»»  GX 

$N0DAD= 

******  GX 

.EXH01 

000466RG 

MAXNN  = 

****** 

GX 

$ERET  = 

******  GX 

$NTADD= 

******  GX 

.EXID 

OOOOOORG 

NF.LV2= 

GX 

$ERRaR= 

*♦*♦**  GX 

$OPRND= 

******  GX 

.EX1D1 

OOOOa'iRG 

OE.NN  = 

****** 

GX 

SESEG  = 

***.♦.  GX 

$TMLST= 

******  GX 

.EXINA 

001076RG 

STRMX  = 

0000^0 

$ESUB  = 

******  GX 

.EACOS 

0006A4RG 

.EXINT 

001136RG 

$CNF1G= 

****** 

GX 

SHOST  = 

*«**««  ev 

.EAHOP 

000666RG 

.EXLNK 

000152RG 

$EACOS= 

****** 

GX 

SID   = 

******  GX 

.  ABS. 

000000 
001276 

000 
001 

(RW,1,GBI,ABS,0VR) 
(RW,I,LCL,REL,C0N) 

Errors 

detected: 

U 

.EXNC 

.EXNN 

.EXOUT 

.EXRET 

.EX$B2 

.EXSEG 

.EXSUB 

.PFLAG= 

.PNUMB= 

.PNUMH= 

.PSTCN= 

.PSTPT^ 


000360RG 
000274RG 
001176RG 
001236RG 
000552RG 
001014RG 
0005-4 'iRG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


*«•  '\ssernbler  statistics 


Work  tile  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  122  Words   (  1  Pages) 

Size  of  core  pool:  K4A0  Words  (  55  Pages) 

Operating  system:  RSX-llM/PLUS 


Elaosed  fime:  00:00:12.00 
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225 

226  000356 

227  000360 

228  000362 

229  00036'^ 
230 

231  000366 

232 

233  000370 

23A  000372 

235  000374 

236  000376 


120305 
00H03 
000261 
000^02 

010616 

000241 
012602 
012605 


20$: 


30$; 

40$: 
50$: 


CMPB 

BEQ 

SEC 

BR      50$ 


R3.R5 
40i 


MOV 

CLC 
MOV 
MOV 
RETURN 


SP,(SP) 


(SP)*,R2 
(SP;+,R5 


IS  THE  CHARACTER  A  LEGAL  TERMINATOR 
IF  EQ,  VES  -  RETURN  SUCCESS  CODE 
OTHERWISE  INDICATE  AN  ERROR 


MARK  THE  END  OF  THE  STRING 

INDICATE  SUCCESSFUL  CONVERSION 
RESTORE  REGISTERS 
SET  EX'T  CONDITION  CODES 
RETURN  TO  CALLER 


PRSLIN  -  PARSE    A  LINE-ID 


F  13 
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E  U 

PRSLIN 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT 

13:23 

PAGE 

5 

SYMBOL 

CROSS  REFERENCE 

CREF 

04.00 

SYMBOL 

VALUE 

REFERENCES 

LtSLT 

000042 

#5-63 

L$SNM 

0O0OA6 

#5-63 

LiSYL 

000122 

#5-63 

LtTNM 

000052 

#5-63 

LtTPT 

000050 

#5-63 

LSTRB 

000040 

#5-63 

LITSZ 

000070 

#5-63 

L$TYP 

000063 

#5-63 

LSUNT 

000003 

#5-63 

.7-152 

11-377 

L.COST 

000015 

#5-60 

L.CTL 

000012 

#5-60 

11-373 

L.CVA 

177776 

#5-60 

L.DDM 

000002 

#5-60 

11-369 

L.DDS 

000004 

#5-60 

L.DLC 

000003 

#5-60 

L.DLM 

000006 

#5-60 

L.DLS 

000010 

#5-60 

L.FLG 

000000 

#5-60 

L.KR8A 

000016 

#5-60 

L.LEN 

=  000022 

#5-60 

L.MPF 

000022 

#5-60 

L.NMST 

000020 

#5-60 

L.NSTA 

000014 

#5-60 

L.OWNR 

000021 

#5-60 

L.UNT 

000013 

#5-60 

11-377 

ME.  I  ID 

177767 

7-163 

11-383 

ME.UCO 

177770 

11-386 

N$$VCT 

PDVAD 

PDVID 

PDVTA 

PRSLIN 

R$R0 

R$R1 

R$$RTR 

R$$11D 

R$$11M 

R$$11S 

SF.ACT 

SF.ENA 

SF.LP8 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTMA 

SLTNM 

S$$BAS 

S.COST 

S.FLG 


GX 
GX 


000662 

r  ****** 
=  ****** 

000000  RG 
=  .*♦♦**  GX 
=  .«»***  GX 
=  ****** 

-  ****** 
=  000000 

-  ****** 

=  000200 
=  000^00 
=  000004 
=  000040 
=  000020 
=  000010 
=  000001 
=  000002 
=  000040 

-  ****** 
~   ****** 

r  ****** 

000001 
000000 


GX 
GX 


11-387 
10-311 
12-410 
12-413 

#7-90 

*7-160 

♦  7-99 
7-101 
5-59 
5-59 
5-59 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 
11-367 
n-366 
7-101 

#5-60 

#5-60 


11-361 

*7-l63 
11-341 


#12-40 


11-341 


PRSLIN 
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F  K 


6  15 

05:1? 


SPRAY 

000270RG 

$EVBEG= 

*••••*  GX 

.PNUMS=  »*•**•  GX 

$CLAJS= 

••«»•«  GX 

$EVENT= 

»»♦»**  GX 

.PNUMH=  *•«•»*  GX 

.  ABS.  000000 

000 

000302 

001 

Errors  detected: 

0 

PRSLOG  -  PARSE  LOGGING  ACTION  R  MACRO  V05.03b  Saturday  29-Jun-85  05:19  Page  10-1 
Symbol  table 

Ck;E\/E  OOOOOOR  CKEVEN  Q0020ARG 
CKEVEB  OOOOe^iRG  CKEVER  000224RG 
CKEVEC  0001URG 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

»♦•  Assembler  statistics 

Work      tile     reads:  0 

Work      f i le  writes:  0 

Size  ot   work    file:  ^^•^  Words      (    1    Pages) 

Size  ot   core  pool :  HAAO  Words      (    55   Pages) 

Operating     system;  RSX-11M/PLUS 

SY:^RSL0&!v2![132,134DPRSLOG/CR/-SP=SV:[1,nRSXMCM.SML/ML,C130,110]NETLI8/ML,[132,10]PRSLO6 


r  15 

PRSLOG     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:19     PAGE  1 


PRSMOD  -  PARSE  ACTION  ROUTINES 
MOMRE  -  PARSE  MAXIMUM  RESETS 


199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
21A 
215 


MACRO  V05.05b  Saturday  29-Jun 


-85  05:1' 


9  Page  11 


000300 

000300  005767  OOOOOOG 

00030A  001100 

000306  105767  000001G 

000512  001075 

0003K  116767  OOOOOOG  OOOOOOG 

000322  000207 


.SBTTL   .MOMRE  -  PARSE  MAXIMUM  RESETS 

••  .MOMRE  -  PARSE  MAXIMUM  RESETS 

INPUTS       .TPARS  VARIABLES. 

OUTPUT       $MRE  =  PARSED  MAXIMUM  RESETS 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.MOMRE; 


TST 

BNE 

TSTB 

BNE 

MOVS 

RETURN 


.PNUMH 

ILINUM 

.PNUMB^I 

ILLNUM 

.PNUMB.SMRE 


HIGH  ORDER  WORD 

REJECT  If  TOO  HIGH 

TEST  HIGH  BVTE 

BR  IF   ILLEGAL  NUMBER 

MOVE  VALUE  TO  PARSED  AREA 


F  16 


PRSMOD  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  05:19  Page  12 


F      1 

CFETSB  -   TEMPLATE   PARSE   SUBROUT  MACRO  V05.03b   Saturday  2<5-Jun-85    -    :15     Page   3-2 
SCLERR   -    CLEAR   PARSE    ERROR 

183  000001  .END 


CFETSB  -  TEMPLATE  PARSE  SUBROUT  MACRO  V05.03b  Saturday  29-Jun-85  05:15  Page  5-3 
Symbol  table 


F  2 


tMOVn  -  MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 


Page  9 


288 
289 
290 
291 
292 
293 
29^ 
29-; 
296 
297 
?98 
299 
300 
301 
302 
303 
30^ 
305 
306 
307 


♦♦♦  -  SMOVST  -  MOVE  FIRST  FIELD  OF  INPUT  BUFFER  INTO  OUTPUT  BUFFER 

INPUT: 

R-;   =  REST   OF    LINE   AFTER   FIRST   FIELD 

OUTPUT: 

$OBUF  =  CURRENT  POSITION  IN  OUTPUT  BUFFER 


0004^6 

000446  012700  oooorjG 

000452  012701  OOOOOOG 

000456  010402 

000460  160102 

000462  005202 

000464  004767  OOOOOOG 

000470  010067  177310 

00047/,  000207 


SMOVST: 


MOV 

#$BUFR,RO 

MOV 

#$BUFI,R1 

MOV 

R4,R2 

SUB 

R1,R2 

INC 

R2 

CALL 

SMVASC 

MOV 

R0,$OSUF 

RETURN 


POINT  RO  AT  OUTPUT  BUFFER 

POINT  R1  AT  INPUT  BUFFER 

copy  ADDRESS  OF  REST  OF  INPUT  LINE 

CALCULATE  LENGTH  OF  FIRST  +  1 

MOVE  INPUT  STRING  TO  OUTPUT  BUFFER 
SAVE  CURRENT  POSITION  IN  OUTPUT  BUFFER 
RETURN  TO  CALLER 


6  2 

CFEUPD  -  UPDATE  THE  CETAB  FILE  MACRO  V05.03b  Saturday  29-Jun-85  05:15 
$MOV!T  -  MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 
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CFEUSB  - 
SPTNUM  - 

76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


F  3 

TEMPLATE  UPDATE  SUBROU  MACRO  V05.03b  Saturday  29-Jun-85  05:16  Page  5 
PUT  NUMBER  INTO  TEMPLATE  (WORD) 


89 
90 
91 
92 
93 
9i  000132 

95  000132 

96  000136 
97 

98  OOOKO 

99  000140 

100  000K4 

101  000150 

102  000154 

103  000156 

104  000160 

105  000164 

106  000170 

107  000174 

108  000176 

109  000200 

110  000204 

111  000206 

112  000210 

113  000214 

114  000216 

115  000222 
116 

117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
•28 
129 
130 
131 
132 


**  SPTNUM 
*♦  SPTNMB 

INPUTS: 


OUTPUT: 
REGISTERS: 


.SBTTL  SPTNUM  -  PUT  NUMBER  INTO  TEMPLATE  (WORD) 
.SSTTL  SPTNMB  -  PUT  NUMBER  INTO  TEMPLATE  (BYTE) 

PUT  NUMBER  INTO  TEMPLATE  (WORD) 
PUT  NUMBER  INTO  TEMPLATE  (BYTE) 

.TEMP  =  TEMPLATE  ADDRESS 
R2  =  OFFSET  IN  TEMPLATE 
R1  =   0  FOR  DECIflAL  OUTPUT 
<>0  FOR  OCTAL  OUTPUT 

VALUE  LOADED  INTO  OUTPUT  BUFFER. 

R0-R2  ARE  CORRUPTED. 


.ENABL  LS8 


010667 
000402 


005067 
004767 
012746 
005701 
001402 
012716 
066702 
005767 
001404 
111201 
042701 
000401 
011201 
016700 
004736 
010067 
000207 


177772 


177764 
000144 
OOOOOOG 


OOOOOOG 

177614 

177734 


177400 

OOOOOOG 
OOOOOOG 


SPiNMB: 


SPTNUM: 


10$: 


20$: 


30$: 
40$: 


MOV 
BR 


CLR 

CALL 

MOV 

TST 

BEQ 

MOV 

ADD 

TST 

BEQ 

MOVB 

BIC 

BR 

MOV 

MOV 

CALL 

MOV 

RETURN 


SP.BYTFLG 


BYTFLG 

CHKOPT 

#$CNVD,-(SP) 

R1 

20S 

#$CNVO,(SP) 

.TEMP,R2 

BYTFLG 

30$ 

(R2),R1 

#*C377,R1 

40$ 

(R2),R1 

SOBUF.RO 

a(SP)*- 

RO,$OBUF 


SET  UP  BYTE  MODE 
JOIN  COMMON  CODE 


SET  UP  WORD  MODE 

OUTPUT  COMMAS  FOR  ANY  MISSING  PARAMS 

ASSUME  DECIMAL  CONVERSION 

CHECK  RADIX 

IF  EO,  DECIMAL 

ELSE  POINT  TO  OCTAL  ROUTINE 

POINT  TO  SOURCE  FIELD 

CHECK  FOR  BYTE  FIELD 

IF  EQ,  WORD 

GET  BYTE 

NO  SIGN  EXTEND 

JOIN  COMMON  CODE 

GET  WORD 

POINT  TO  OUTPUT  BUFFER 

DO  THE  CONVERSION 

UPDATE  BUFFER  POINTER 


.DSABL  LS8 

.SBTTL   $PTR50  -  PUT  RAD50 
*♦  $PTR50  -  PUT  RAD50 
INPUTS: 


OUTPUT: 
REGISTERS: 


.TEMP  =  TEMPLATE  ADDRESS 

R2  =  OFFSET  IN  TEMPLATE 

R1  =  SUE  OF  FIELD  IN  WORDS. 

THE  RAD50  FIELD  IS  OUTPUT. 

USES  R0-R2. 


G  3 

CFEUSB  -  TEMPLATE  UPDATE  SUBROU  MACRO  V05.03b  Saturday  29-Jun-85  05:16 
SPTR50  -  PUT  RAD50 


Page  5-1 


F  li 


EVT^BL     CREATED  BY 
SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


$$$W2   =  000000 


t$$w3   =  000000 


=  000000 


ACRO     ON 

29-JUN-85 

AT  05:16 

PAGE   2 
CREF       04 

00 

REFERENCES 

3-94 

#3-95 

3-95 

#3-96 

3-96 

#3-97 

3-97 

#3-98 

3-98 

#3-98 

3-98 

#3-98 

3-98 

#3-98 

3-98 

#3-98 

3-98 

#3-99 

3-99 

#3-100 

3-100 

#3-101 

3-101 

#3-102 

3-102 

#3-103 

3-103 

#3-104 

3-104 

#3-105 

3-105 

#3-106 

3-106 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-107 

3-107 

#3-88 

3-88 

#3-89 

3-89 

#3-90 

3-90 

#3-91 

3-91 

#3-92 

3-92 

#3-93 

3-93 

#3-94 

3-94 

#3-95 

3-95 

#3-96 

3-96 

#3-97 

3-97 

#3-98 

3-98 

#3-99 

3-99 

#3-100 

3-100 

#3-101 

3-101 

#3-102 

3-102 

#3-103 

3-103 

#3-104 

3-104 

#3-105 

3-105 

#3-106 

3-106 

#3-107 

3-107 

#3-88 

3-88 

#3-89 

3-89 

#3-90 

3-90 

#3-91 

3-91 

#3-92 

3-92 

#3-93 

3-93 

#3-94 

3-94 

#3-95 

3-95 

#3-96 

3-96 

#3-97 

3-97 

#3-98 

3-98 

#3-99 

3-99 

#3-100 

3-100 

#3-101 

3-101 

#3-102 

3-102 

#3-103 

3-103 

#3-104 

3-104 

#3-105 

3-105 

#3-106 

3-106 

#3-107 

3-107 

#3-50 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

3-54 

3-54 

#3-54 

EVTTBL  CREATED  BY     CiACRO     ON  29-JUN-85  AT   05:16  PAGE   3 
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PRMPTb  -  PROMPTS, 
PROMPTS 

187  COOOOO 

188  000000 

189  000000 

190  000000 

191  000000 

192  OGOOOO 

193  000000 
19A  000000 

195  000000 

196  000000 

197  000000 

198  000000 

199  000000 

200  000000 

201  000000 

202  000000 

203  000000 

204  000000 

205  000000 

206  000000 

207  000000 

208  000000 

209  000000 

210  000000 

211  000000 

212  000000 

213  000000 

214  000000 

215  000000 

216  000000 


2U 
218 

000000 
000000 

219 

000000 

220 

000000 

221 

000000 

222 

000000 

223 

000000 

224 

000000 

225 

000000 

226 

000000 

227 

000000 

228 

000000 

229 

000000 

230 

000000 

231 

000000 

232 

000000 

233 

000000 

234 

000000 

235 

000000 

236 

000000 

237 

000000 

238 

000000 

239 

000000 

240 

000000 

241 

000000 

242 

000000 

243 

000000 

F  5 

STRING  ASSEMB  MACRO  VO5.03b  Saturday  29-Jun-85  17:01  Page  5-2 

PRMPT$  <"Location  in  memory:  ">, 

PRMPTS  <"Logging  sink  type:  ">, 

PRMPTS  <"Logging  state:  '>, 

PRMPTS  <"Loop  component:  ">, 

PRMPTS  <"Loop  help  type:  ">, 

PRMPTS  <"Maximum  address:  ">, 

PRMPTS  <"Maximum  Area  Number:  ">, 

PRMPTS  <"Maxi'mum  block  (bytes):  >, 

PRMPTS  <"Maximum  Broadcast  Routers:  ">, 

PRMPTS  <'Waximum  Broadcast  NonRouters:  ">, 

PRMPTS  <"Maximum  buffers:  ">, 

PRMPTS  <"Maximum  circuits:  ">, 

PRMPTS  <"Maximum  clears:  ">, 

PRMPTS  <"Maximum  controllers:  "> , 

PRMPTS  <"Maximum  cost:  ">, 

PRMPTS  <'>laximuni  data   (bytes):   ">, 

PRMPTS  <"Maximum  hops:  ">, 

PRMPTS  <"Maximuii  lines:  ">, 

PRMPTS  <"Maximuiii  links:  ">, 

PRMPTS  '•"Maximum  recall  count:  ">, 

PRMPTS  <"Maximum  receive  buffers:  ">, 

PRMPTS  <"Maximum  resets:  ">, 

PRMPTS  <"Maximum  restarts:  '>, 

PRMPTS  <"Maximum  retransmits:  ">, 

PRMPTS  <"Maximum  Routers:  ">, 

PRMPTS  <"Maximum  transmit  count:  ">, 

PRMPTS  <"Maximum  visits:  ">, 

PRMPTS  <'l*laximum  window  (blks):  ">, 

PRMPTS  <"Module  identification:  ">, 

PRMPTS  <"Multipoint  ratio  type:  ">, 

PRMPTS  <"Network  name:  ">, 

PRMPTS  <"Node  identification:  ">, 

PRMPTS  <"Node  name:  ">, 

PRMPTS  <"Executor  state:  ">, 

PRMPTS  <"Executor  Node  Type:  ">, 

PRMPTS  <"Number  of  test  messages:  ">, 

PRMPTS  <"Obiect  identification:  ">, 

PRMPTS  <"Ob]ect  name:  ">, 

PRMPTS  <"Ob]ect  number:  >, 

PRMPTS  <"Ob]ect  user:  ">, 

PRMPTS  <"Object  verification:  ">, 

PRMPTS  <"Onginating  (Jueue  Limit:  ">, 

PRMPTS  <"Outgoing  timer  (sec):  ">, 

PRMPTS  <"Output  file/device:  ">, 

PRMPTS  <"Partition  name:  ">, 

PRMPTS  <"Password:  ">, 

PRMPTS  <"Physical  address:  "> 

PRMPTS  <"Physical  option:  "> 

PRMPTS  <"Polling  state:  ">, 

PRMPTS  <"Priority;  ">, 

PRMPTS  <"Proces3  name:  ">, 

PRMPTS  <"fiouter  Priority:  ">, 

PRMPTS  <"RecaU  timer  (sec):  ">, 

PRMPTS  <"Receive  buffers:  ">, 

PRMPTS  <"Reset  timer  (sec):  >. 

PRMPTS  <"Restart  timer  (sec):  '>, 

PRMPTS  <"Retransmit  factor:  ">, 


PSLOC 

PSLGID 

PSLOST 

PSLOO 

PSLHE 

PSMAD 

PSAREA 

PSLMB 

PSMBR 

PSMBN 

PSMBU 

PSHLN 

PSLMX 

PSMXCO 

PSMCO 

PSCMB 

PSMHO 

PSMXL 

PSMLK 

PSMXR 

PSMRB 

PSRMX 

PSSMX 

PSMRT 

PSMXRT 

PSMXB 

PSMVI 

PSHXW 

PSMOI 

PSMUL 

PSNET 

PSNID 

PSNAM 

PSNOS 

PSETY 

PSCOU 

PSOBJ 

PSOBNA 

PSOID. 

PSOBUS , 

PSOBVE 

PSOQL 

PSOTI 

PSTO, 

PSPAR 

PSPAS 

PSPHA 

PSPHO 

PSPST 

PSPRI 

PSPID 

PSRTPR 

PSRET 

PSBFQ 

PSRST 

PSRRT 

PSRFA 


PRMPTS  -  PROMPTS, 
PROMPTS 
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PRMPTO  -  PROMPTS, 
PROMPTS 

24A  000000 
2^5  000000 
2A6  000000 
2^7  OOOoOO 
2A8  000000 

249  000000 

250  000000 

251  000000 

252  000000 

253  000000 

254  000000 

255  000000 

256  000000 

257  000000 

258  000000 

259  000000 

260  000000 

261  000000 

262  000000 

263  000000 

264  000000 

265  000000 

266  000000 

267  000000 

268  000000 

269  000000 

270  000000 

271  000000 

272  000000 
27'5   000000 

274  000000 

275  000000 

276  000000 

277  000000 

278  000000 

279  000000 

280  000000 

281  000000 

282  000000 

283  000000 

284  ooooon 

285  000000 

286  000000 

287  000000 

288  000000 

289  000000 

290  000000 

291  000000 

292  000000 

293  000000 

294  000000 
295 
296 
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000001 


PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 

.END 


'Retransmit  timer  (msec): 
'Routing  timer  (sec):  ">, 
'Scheduling  timer  (msec): 
'Scope:  ">, 

'Secondary  dumper  file:  > 
'Secondary  loader  file:  "> 
'Secondary  loader  input  fi 
'Segment  buffer  size:  ">, 
'Service  option:  ">, 
'Service  circuit  id:  ">, 
'Service  device:  ">, 
'Service  Node  Version:  ">, 
'Service  state:  ">, 
'Service  timer  (msec):  ">, 
'Set  a'  ias  options:  ">, 
'Set  circuit  options:  '>, 
'Set  component:  ">, 
'Set  line  options:  ">, 
'Set  logging  options:  "> 


W. 


'Set  X25-access  options:  " 
'Set  X25-protocol  options: 
'Set  X25-server  options:  " 
'Set  X29-server  options:  " 
'Set  node  options:  ">, 
'Set  object  options:  '>, 
'Set  process  options:  ">, 
'Set  trace  options:  ">, 
'Show  component:  ">, 
'Sink  name:  ">, 
'Sink  node  identification: 
'Software  id:  "> , 
'Software  type:  '>, 
'State:  ">, 

'Stream  timer  (msec):  ">, 
'Subaddresses:  ">, 
'Software  option:  ">, 
'Terminal  identification: 
'Tertiary  loader  input  file 
'Text  password:  ">, 
'Trace  file:  ">, 
'Trace  state:  ">, 
'Transmit  timer  (msec): 
'Tributary  address:  ">, 
'Trigger  options:  ">, 
'CUG  Type:  ">, 
'Tvpe  of  test  data:  ">, 
'Usage  type:  ">, 
'User  identification: 
'Vector:  ">, 

'Verification  state:  "> 
'Zero  component:  ">, 


">, 

PSRTR, 

<:> 

PSRTI, 

<:> 

">, 

PSSCT, 

<:> 

PSSCO, 

<:> 

PSSDU. 

<:> 

PSSLO, 

<:> 

[e:  ">, 

PSSEC, 

<:> 

PSSGZ, 

<:> 

PSSERO, 

<:> 

PSSLI, 

<:> 

PSSDV, 

<:> 

PSSNV, 

<:> 

PSSER, 

<:> 

PSSTI, 

<:> 

PSSEAL, 

<:> 

PSSECI, 

<:> 

PSSET, 

<:> 

PSSELI, 

<:> 

PSSELO, 

<:> 

>, 

PSSEXA, 

<:> 

'>, 

PSSEXP, 

<:> 

>, 

P$SE5S, 

<:> 

>, 

PSSE9S, 

<:> 

PSSENO, 

<:> 

PSSEOB, 

<:> 

PSSEPR, 

<:> 

PSSETR, 

<:> 

PSSHO, 

<:> 

PSSNAM, 

<:> 

">, 

PSSIN, 

<:> 

PSSID, 

<:> 

PSSTY, 

<:> 

PtSTA, 

<:> 

PSSTT, 

<:> 

PSSUB, 

<:> 

PSSUO, 

<:> 

">, 

PSTER, 

<:> 

e:  ">, 

PSTLO, 

<:> 

PSTPAS, 

<:> 

PSTFIL, 

<:> 

PSTSTA, 

<:> 

PSXMT, 

<:> 

PSTRIB, 

<:> 

PSTRIG, 

<:> 

PSGTY, 

<:> 

PSWU, 

<:> 

PSCUS, 

<;> 

PSUSE, 

<:> 

PSVEC, 

<:> 

PSVEST, 

<:> 

PSZER, 

<:> 
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175 
176 
177 
178 
179 
180 
181 
182 
185 
18A 
185 
186 
187 
188 
189 
190 
191 
192 
193 
19^ 
195 
196 
197 


.SBTTL   .EXNAM  -  EXECUTOR  NODE  NAME  ACTION  ROUTINE 
♦**  -  .EXNAM  -  EXECUTOR  NODE  NAME  ACTION  ROUTINE 
INPUT: 


.PSTPT  =  ADDRESS  OF  NODE  NAME 
.PSTCN  =  COUNT  OF  CHARS  IN  NODE  NAME 


OUTPUT: 


SNODNA  =  RAD50  NODE  NAME  (2  WORDS) 

R0,R1  =  DESTROYED 

THE  TRANSITION  IS  ACCEPTED  OR  REJECTED 


000544 

000544  004767     000024 

000550  105406 

000552  004767     000676 

000556  105405 

000560  012767     000000'  OOOOOOG 

000566  062716     000002 

000572  000207 


.EXNAM:: 


10$: 
20$: 


CALL 

NODNAM 

BCS 

10$ 

CALL 

FNDNAM 

BCS 

C\Jt> 

MOV 

*ERRNAM,$ERROR 

ADD 

#2,(SP) 

CONVERT  NODE  NAME 

IF  fS   FRROR 

ELSE/tRV  TO  FIND  NODE  NAME  IN  REMOTES 

IF  CS,  CAN'T  ..  OKAY 

ELSE,  NAME  ALREADY  IN  USE 

REJECT  TRANSITION 


RETURN 
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PRSACT  CREATED  BY  MACRO     ON  29-JUN-85   AT  05:17  PAGE   2 

SYMBOL   CROSS  REFERENCE  CREF       0^.00 

SYMBOL      VALUE  REFERENCES 

.RNAD2         000460  R6  #11-256 

.RNAD3         000650  RG  #11-318 

.RNHNA         001172  RG  #15-';38 

.RNINI  000452  RG  #11-240 

.RNNAM  001052  RG  #14-400 
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33A 
335 
356 
337 
338 
339 
3^.0 
3A1 
342 
3A3 
344 
345 
346 
347 
348 
349 
350 
35i 
352 
353 
354 
355 
356 
357 
358 
359 
360 
36T  000556 

362  000560 

363  000562 
364 

365  000564 

366  000566 

367  000570 

368  000572 

369  000576 

370  000600 

371  000602 

372  000604 

373  000610 

374  000612 

375  000616 

376  000620 

377  000624 

378  000626 

379  000630 

380  000632 

381  000634 

382  000640 

383  000642 

384  000644 

385  000646 

386  000650 

387  000654 

388  000656 

389  000660 

390  000662 
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.SBTTL  CAT5  -  CONVERT  ASCI]  TO  RAD50 

♦*-CAT5-C0NVERT  ASCII  TO  RAD50 

INPUTS: 

RO  =  ADDRESS  OF  FIRST  BYTE  IN  STRING 

R3  =  LEGAL  TERMINATING  CHARACTER 

R4  =  ADDRESS  OF  THE  END  OF  THE  STRING  +  1 


OUTP'JTS: 


C-&IT  CLEAR: 

RO  =  ADDRESS  OF  NEXT  BYTE  IN  STRING 

R1  =  CONVERTED  RESULT 

R2  =  COMPLETION  CODE  (0  =  MORE  IN  THE  STRING) 

(NOT  0  =  NO  MORE  IN  THE  STRING) 

C-8IT  SET: 

ILLEGAL  CHARACTER  IN  THE  STRING 


003100 
000050 
000001 

010546 

005046 

005001 

012702  000556' 

112005 

020400 

103434 

122705  000132 

103425 

122705  000101 

101022 

162705  000100 

010046 

012200 

010146 

010501 

010105 

012601 

012600 

060501 

020227  000564' 

103750 

112005 

020400 

101404 


REGISTERS  MODIFIED: 

NONE 

TBL:   .WORD 

50*50 

.WORD 

50 

.UORD 

1 

T5:   MOV 

R5,-(SP) 

SAVE  REGISTERS 

CLR 

-(SP) 

ESTABLISH  EXIT  CONDITION  FLAG 

CLR 

Rl 

CLEAR  ACCUMULATION 

MOV 

#CVT8L,R2 

SET  ADDRESS  OF  SCALING  TABLE 

$:    Move 

(R0)+,R5 

GET  A  CHARACTER 

CMP 

R4,R0 

REACHED  THE  END  OF  THE  STRING  ? 

BLO 

30i 

IF  lO,  yes  -  END  OF  THE  STRING 

m?B 

#'Z,R5 

IS  IT  ALPHABETIC  ?  (BELOW  Z) 

BLO 

20$ 

IF  LO,  NO  -  ERROR 

CMPB 

#'A,R5 

IS  IT  BELOW  A  ? 

8HI 

20$ 

IF  HI,  YES  -  ERROR 

SUB 

#100, R5 

SCALE  TO  RAD50 

MOV 

RO.-(SP) 

SAVE  RO 

MOV 

(R2)+,R0 

GET  SCALE  FACTOR 

MOV 

R1,-(SP) 

SAVE  Rl 

MOV 

R5,R1 

COPY  CHARACTER 

CALL 

$MUI 

MULTIPLY  IT  OUT 

MOV 

R1,R5 

COPY  RESULT 

MOV 

(SP)+,R1 

RESTORE  ACCUMULATION 

MOV 

(SP)+,R0 

RESTORE  STRING  POINTER 

ADD 

R5,R1 

ACCUMULATE  THE  RESULT 

CMP 

R2,#CVTBLt6 

CONVERTED  ENOUGH  ? 

BLO 

lOi 

IF  LO,  NO  -  KEEP  GOING 

M0V8 

(R0)+,R5 

OTHERWISE  GET  TERMINATING  CHARACTER 

CMP 

R4.R0 

REACHED  THE  END  OF  THE  STRING  ? 

BLOS 

30i 

IF  LO,  YES.  (if  eg,  premature  end) 

;04 


PRSCIR 


mkiMcm 
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SYMBOL  CROSS  REFERENCE 
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PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

8   TO 

=   000001 

Kb-lt, 

B   Tl 

=  000002 

#6-74 

BITIO 

=  002000 

#6-74 

BIT11 

=  OOAOOO 

#6-74 

BIT12 

=  010000 

#6-74 

BIT13 

=  020000 

#6-74 

BITK 

=  OAOOOO 

#6-74 

BIT15 

=  100000 

#6-74 

BIT2 

-  OOOOOA 

lt6-?'< 

B1T3 

=  000010 

#6-74 

BITA 

=  000020 

#6-74 

BIT5 

=  000040 

#6-74 

B1T6 

=  000100 

tlb-7'* 

BIT7 

=  000200 

»b-7'< 

B1T8 

=  000400 

#6-74 

- 

BIT9 

=  001000 

#6-74 

B$10 

000003 

#5-74 

B$11 

000004 

#5-74 

6$12 

000005 

#5-74 

B$5 

000000 

#5-74 

BS6 

000001 

#5-74 

B$7 

000002 

#5-74 

B$7S10 

000006 

#5-7^ 

CAT5 

000564  R 

8-171 

#11-,  .5 

CDTB 

000706  R 

8-189 

8-208 

8-234           #12-430 

CHKDEV 

001036  R 

8-243 

#14-506 

CHKMUX 

001004   R 

8-179 

#13-475 

CHICULD 

001372  R 

8-183 

8-200 

8-226           #16-663 

CVTBL 

000556  R 

#11-361 

11-368 

n-386 

hFSGWY 

=  000010 

10-312 

HSFLG 

300000 

10-312 

ISSAS 

=      ♦****♦ 

5-64 

LF$END 

=  000020 

#6-74 

LFSMLT 

=  040000 

#6-74 

LitREA 

=  000001 

#6-74 

LFSSEG 

=  100000 

#6-74 

LFSSIG 

=  000040 

#6-74 

LF$SKP 

=  000004 

#6-74 

LF$VR2 

=  000010 

#6-74 

LFSZER 

=  000002 

#6-74 

LF.ACT 

=  100000 

#5-65 

LF.BRO 

=  000400 

#5-65 

LF.BWT 

■^  000007 

#5-65 

LF.ENA 

=  002000 

#5-65 

LF.LPB 

=  001000 

#5-65 

LF. MDC 

=  000100 

#5-65 

LF.MFL 

=  004000 

#5-65 

LF.MTP 

=  000020 

#5-65 

14-573 

14-593 

LF.PAC 

=  000200 

#5-65 

LF.RDY 

=  040000 

#5-65 

LF.REA 

=  010000 

#5-65 

LF.SER 

=  000040 

#5-65 

PRSCIR 
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190 

.SSTTL 

.EXNN  -  SET  lAXIM 

UM  NODE  NUMBER  IN  NETWORK 

191 
192 
193 

+ 

.EXNN  - 

SET  MAXIMUM  NODE 

NUMBER  IN  NETWORK 

194 
195 
196 
197 

INPUTS: 

.PNUMB 

=  THE  MAXIMUM  NODE 

NUMBER  IN  NETWORK 

OUTPUTS: 

198 

$NN  =  THE  MAXIMUM  NODE  NUMBER  IN  NETWORK 

199 
200 
201 
202 
203  000274 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 

EXNN:: 

204  000274 

012700 

OOOOOOG 

MOV 

#$TMLST,RO 

SCAN  NODE  LIST  FOR  ROUTING  TEMPLATE 

:05  000300 

011000 

$: 

MOV 

(RO),RO 

NEXT  TEMPLATE 

206  000302 

001414 

BEQ 

#CS.ROU,C.STS(R05 

IF  EQ,  NO  ROUTING  TEMPLATE 

207  000304 

122760 

OOOOOOG 

OOOOOOG 

CMPB 

;  IS  THIS  IT  ? 

208  000312 

001372 

w 

1$ 

IF  NE,  NOPE 

209  000314 

005760 

000004 

4(R0)         ; 

GOT  IT  -TEST  FOR  END  NODE 

210  000320 

001405 

BtO 

5$ 

IF  EQ,  END  NODE 

211  000322 

016767 

OOOOOOG 

OOOOOOG 

MOV 

. PNUMB, $NN 

STORE  THE  MAX.  NODE  NUMBER 

212  000330 

001405 

BEQ 

10$ 

IF  EQ,  ILLEGAL  VALUE 

213 

CMP 

. PNUMB, *MAXNN 

IS  THE  VALUE  IN  RANGE  ? 

214 

BHI 

10$ 

IF  HI,  OUT  OF  RANGE 

215  000332 

216 

217  000334 

000411 

BR 

20$ 

ELSE  OKAY 

012767 

OOOOOOG 

OOOOOOG 

5$: 

MOV 

#EfiRPNA,$ERROR  ; 

PARAMETER  NOT  APPLICABLE 

218  000342 

219 

220  000344 

000403 

BR 

15$ 

JOIN  COMMON  CODE 

012767 

OOOOOOG 

OOOOOOG 

10$: 

MOV 

*ERfiILN,$ERROR  ; 

INVALID  NUMBER 

221  000352 

222 

223  000356 

062716 

000002 

15$: 

ADD 

#2,(SP) 

ELSE,  REJECT  TRANSITION 

000207 

20$: 

RETURN 
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CUT    mmmdcd    nc    K\r\r\c    rniiMTCDc: 


PRSEXE  CREATED  BY      MACRO     ON  29-JUN-85   AT   05:18 

SYMBOL    CR03S   REFERENC. 


SYMBOL  VALUE 


CS.ROU 
C.ADD 
C.STS 
ERRILN 

ERRPNA 

MAXCST 

MAXHOP 

MAXNN 

NF.LV2 

OE.NN 

STRMX 

SCNFIG 

SEACOS 

SEAHOP 

SEAMAX 

$EBEA 

$EBRT 

SEINA 

$EINC 

$EOUT 

SERET 

SERROR 

SESEG 

SESUB 

SHOST 

SID 

SLINKS 

SMAXC 

SMAXH 

SMVASC 

SNCOU 

SNN 

SNODAD 

SNTADD 

SCPRND 

STMLST 

.EACOS 

.EAHOP 

.EAMAX 

.EXBEA 

.EXBRT 

.EXCOS 

.EXHOP 

.EXHOS 

.EXH01 

.EXID 

.EXIDl 

.EXINA 

.EXINT 

.EXLNK 


=  00000^ 

=:  tt-nm      GX 

=  »««*»»  GX 


****** 
****** 
****** 
****** 
****** 
****** 
0000^0 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
**  ^*** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
00061^  RG 
000666  RG 
000624  RG 
001002  RG 
000750  RG 
000240  RG 
000204  RG 
000^76  RG 
000466  RG 
000000  RG 
000064  RG 
001076  RG 
001136  RG 
000152  RG 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

9-207 
#4-67 

9-207 

6-143 

16-428 

9-217 

8-184 

7-162 

10-252 

13-361 

10-243 
#4-66 

13-561 
*13-347 
»13-354 
«1 3-340 
♦15-402 
*14-383 
*17-442 
♦18-463 
♦19-484 
♦20-505 
♦6-143 
♦14-388 
♦16-423 

12-306 
♦11-272 

5-109 
♦6-138 
♦8-182 
♦7-160 

5-102 
♦10-239 
♦9-211 

11-272 

11-280 

10-243 

9-204 
#13-346 
#13-353 
#13-339 
#15-401 
#14-382 
#8-181 
#7-159 
#11-275 
#11-271 
#5-85 

5-92 
#17-441 
#18-462 
#6-137 


10-248 

10-250 

10-248 

7-165 

17-449 

13-363 

13-349 

13-356 


5-110 


♦7-165 
♦15-409 

12-310 
11-277 
5-120 


5-122 

10-242 
11-276 
11-285 

10-245 


#5-107 
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8-187 
18-470 


5-116 


9-220 
19-491 


10-256 
20-512 


12-319 


13-366 


14-388 


15-409 


♦8-187 
♦16-428 

♦12-311 
♦11-278 


♦11-277 


♦9-217 
♦17-449 


11-282 


♦9-220 
♦18-470 


♦11-285 


♦10-256 
♦19-491 


♦12-319 
♦20-512 


♦13-363         ♦13-366 


PRSEXE 
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PRSLIN  -  PAf.iE  A  LINB-ID 

CDTB  -  CONVERT  DECIMAL  TCI  5INARY 

238 
239 
2^0 
2^1 
2^2 
2^3 
2 '.A 
245 
2A6 
2U7 
2A8 
2A9 
250 
251 
252 
253 
25A 
255 
256 
257 
258 
259 
260 
261 
262 
263 

264  000400  005046 

265  000402  005001 

266  000404  112002 

267  000406  020400 

268  000410  103421 

269  000412  120302 

270  000414  001415 

271  000416  162702  000060 

272  000422  020227  000012 

273  000426  103016 

274  000430  010046 

275  000432  012700  OOOOV 

276  000436 

277  000442  012600 

278  000444  060201 

279  000446  000756 
280 

281  000450  020400 

282  000452  001001 
283 

284  000454  010616 
285 

286  000456  022701  000400 

287  000462  101002 

288  000464  000261 
28"  000466  000401 
290 

291  000470  r0C241 

2'''  I'O'.'Z  012602 

2~3  ui  J47', 
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.SBTTL  CDT8  -  CONVERT  DECIMAL  TO  BINARr 

'«»-CDT8-C0NVERT  DECIMAL  TO  BIN/RY 

INPUTS; 

RO  =  ADDRESS  OF  THE  FIRST  CHARACTER  TO  CONVERT 

R3  =  LEGAL  TERMINATING  CHARACTER 

R4  =  ADDRESS  OF  THE  END  OF  THE  STRING  +  1 


OUTPUTS: 

C-8IT  CLEAR: 

RO  =  ADDRESS  OF  THE  NEXT  CHARACTER  IN  THE  STRING 

R1  =  CONVERTED  RESULT 

R2  =  COMPLETION  CODE  (0  =  MORE  IN  THE  STRING) 

(NOT  0  =  END  OF  THE  STRING) 

C-8IT  SET: 

ILLEGAL  CHARACTER  IN  THE  STRING 

REGISTERS  MODIFIED: 

NONE 


CDTB: 
10$: 


15$: 

20$ 
30$ 
40$ 


CLR 

CLR 

MOVB 

CMP 

BLO 

CMP8 

BEQ 

SUB 

CMP 

BHIS 

MOV 

MOV 

CALL 

MOV 

ADD 

BR 

CMP 
BNE 

MOV 

CMP 
BHI 
SEC 
BR 


50$:    CLC 
60$:    MOV 

RETURN 


-(SP) 

R1 

(R0)t,R2 

R4,R0 

20i 

R3,R2 

15i 

#'0,R2 

R2,*10. 

40$ 

RO,-(SP) 

#10.,R0 

$MUL 

(SP)+,RO 

R2,R1 

lOi 

R4,R0 
30§ 

SP,(SP) 

#256., R1 
50$ 

60$ 


(SP)t,R2 


SET  COMPLETION  FLAGS 

CLEAR  ACCUMULATION 

GET  THE  NEXT  CHARACTER 

REACHED  THE  END  OF  THE  STRING  ? 

IF  LO,  YES  -  EXIT  WITH  RESULT 

IS  THE  CHARACTER  A  LEGAL  TERMINATOR  ? 

IF  EQ,  YES  -  EXIT  WITH  RESULT        ;01 

NORMALIZE  THE  CHARACTER 

IS  IT  WITHIN  RANGE  ? 

IF  HIS,  NO  -  EXIT  WITH  ERROR 

SAVE  THE  STRING  POINTER 

SET  THE  MULTIPLICAND 

MULTIPLY  'EM  UP 

RESTORE  THE  STRING  POINTER 

ACCUMULATE  THE  RESULT 

CONTINUE 

WAS  'LEGAL  TERMINATOR'  THE  END-OF-STRING  ?;01 
IF  NE,  NO.  CONTINUE  ;01 

SET  THE  STRING  END  INDICATOR 

IS  THE  RESULT  WITH  A  BYTE  QUANTITY  ? 
IF  HI,  YES  -  EXIT  WITH  RESULT 
INDICATE  ILLEGAL  CHARACTER  IN  STRING 
OR  RESULT  OUT  OF  RANGE 

INDICATE  SUCCESSFUL  CONVERSION 
SET  COMPLETION  CONDITIONS 
RETURN  TO  CALLER 
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T  ni  r  unn 


F  H 

PRSLIN 

CREATED 

BY 

MACRO  ON  29 

-JUN-85  AT 

13:23 

PAGE  4 

SYMBOL 

CROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

S.LEN 

000004 

#5-60 

S.NMST 

000002 

#5-60 

S.OWNR 

000003 

#5-60 

X$$MCB 

-  *t**** 

5-59 

5-59 

ZF.COU 

^-  001000 

#5-59 

ZF.DDM 

=  000001 

#5-59 

12-417 

ZF.DIA 

=  004000 

#5-59 

ZF.DLC 

=  000002 

#5-59 

ZF.DVP 

=  100000 

#5-59 

ZF.INI 

=  040000 

#5-59 

ZF.KMX 

=  000020 

#5-59 

ZF.LLC 

=  000004 

#5-59 

ZF.LMC 

=  000100 

#5-59 

ZF.MAN 

=  020000 

#5-59 

ZF.MFL 

=  000010 

#5-59 

ZF.MTM 

=  000400 

#5-59 

ZF.MUX 

=  000040 

#5-59 

10-313 

ZF.PSE 

=  002000 

#5-59 

12-415 

ZF.SLl 

=  010000 

#5-59 

ZF.TIM 

=  000200 

#5-59 

ZF.X3P 

=  000000 

#5-59 

ZS.ASN 

=  100000 

#5-59 

ZS.BSY 

=  140000 

#5-59 

Z.AVL 

000014 

#5-59 

Z.DAT 

000016 

#5-59 

Z.DSP 

000000 

#5-59 

5-59 

Z.FLG 

000010 

#5-59 

10-313 

12-415 

12-417 

Z.LEN 

=  000016 

#5-59 

Z.LLN 

000006 

#5-59 

Z.MAP 

000020 

#5-59 

Z.NAM 

000004 

#5-59 

Z.PC8 

000012 

#5-59 

Z.SCH 

000007 

#5-59 

SHEADR 

-   ****** 

GX 

11-38? 

$MUL 

-   ****** 

GX 

8-215 

9-276 

$SA\/AL 

GX 

7-91 

PRSLIN 


CREATED  BY     MACRO     ON  29-JUN-85  AT   13:23 
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PRSLOG  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:19 

SYMBOL    CROSS   REFERENCE 


F  15 

PAGE    1 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CKbVt 

000000  R 

*5-90 

8-215 

9-252 

CKEVEB 

000064  RG 

#6-138 

CKEVEC 

0001 K  RG 

#7-172 

CKEVEN 

000204  RG 

#8-213 

C<EVER 

000224  RG 

#9-244 

SPRAY 

000270  RG 

7-186 

#10-281 

SCLASS 

:    ......     GX 

•7-182 

tEVBEG 

=   ♦»••♦•     GX 

.6-143 

9-245 

SEVENT 

=   ......     GX 

.5-107 

7-184 

.PNUMB 

=   *«..«.     GX 

6-139 

7-175 

8-214 

.PNUMH 

=    ....•»     GX 

6-141 

7-173 

9-246 

9-248 


9-250 


PRSLOG 


CREATED  BY     MACRO     ON  29-JUN-85   AT   05:19 


PAGE   2 


G  15 


F  16 

PARSE  ACTION  ROUTINCS  MACRO  V05.03b  Saturday  29-Jun-85  05;1v 


P-<SMOD 
MORE!  -  PARSE  RESET  TIMER 


217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 


Page  12 


00032A 

00032A  005767  OOOOOOG 

000530  001C66 

000332  105767  C00001G 

000336  001063 

000340  116767  OOOOOOG  OOOOOOG 

000346  000207 


.SPTTL   .MORET  -  PARSE  RESET  TIMER 

•  *  .I'lURET  -  PARSE  RESET  TIMER 

INPUTS       .TPARS  VARIABLES. 

OUTPUT       tRET  =  PARSED  RESET  TIMER 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.MORET: 


TST 

BNE 

TSTB 

BNE 

MOVE 

RETURN 


.PNUMH 

ILLNUM 

,PNUMB+1 

ILLNUM 

.PNUMB,$RET 


HIGH  ORDER  WORD 

REJECT  IF  TOO  HIGH 

TEST  HIGH  BYTE 

BR  IF  ILLEGAL  NUMBER 

MOVE  VALUE  TO  PARSED  AREA 


G  16 


PRSMOD  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  C5:19  Page  13 


CFETSB  -  TEMPLATE  PARSE  SUBROUT  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


J5:15  Page  5-3 


BVTFLG  000006R 
REJECT  000200R 
$CLERR  000206RG 

ABS.  000000 
00021A 
Errors  detected: 


000 
001 
0 


SGTNMB  OOOOTORG 
SGTNUM  000016RG 
$GTR50  000072RG 

(RW.I.GBL.ABS.OVR) 
(RU,I,LCL,REL,CON) 


.CATS  = 

******   GX 

.PNUMB= 

«***»*  GX 

.ERROR 

OOOOOORG 

.PNUMH= 

******  GX 

.FLAGS 

000002RG 

.PSTCN= 

******  GX 

.PSTPT=  ******  GX 
.TEMP   00000-;  RG 


**.  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  ot  work  tile: 
Size  of  core  pool : 
Operating  system: 


C 

0 

46  Words  (  1  Pages) 

UAiO  Words  (  55  Pages) 

RSX-11M/PLUS 


Elapsed  time:  00:00:05.11 

SY: CFETSB. V2, [132,1 34] CFETSB/CR/-SP=Sy:[l,l]RSXMCM.SML/ML,[l 30, 110]NETL IB/ML, [1 32, 103CFETS6 


CFETSB 


CREATED  BY  MACRO  OH   29-JUN-85  AT  05:15 


PAGE  1 
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CFEUPD  -  UPDATE  THE  CETAB  FILE  MACRO  V05.03b  Saturday  29-Jun-85  05:15  Page  10 
IMOVIT  -  MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 


309 
310 
311 
312 
313 
31A 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
525 
326 
327 
328 
329 


***  -  SMOVPT 

INPUT: 

.PSTPT 
.PSTCN 

$oeuF  = 


MOVE  THE  CURRENT  TPARS  FIELD 


=  ADDRESS  OF  CURRENT  FIELD 
=  LENGTH  OF  CURRENT  FIELD 
CURRENT  POSITION  IN  THE  OUTPUT  BUFFER 


OUTPUT: 


$08UF  =  NEXT  LOCATION  IN  THE  OUTPUT  SUFFER 


000476 

000476  016702  OOOOOOG 

000502  001410 

000504  016701  OOOOOOG 

000510  016700  177270 

000514  004767  OOOOOOG 

000520  010067  177260 

000524  000207 


SMOVPT: 


10$: 


MOV 

. PSTCN, R2 

BEQ 

10$ 

MOV 

. PSTPT, R1 

MOV 

$OBUF,RO 

CALL 

$MVASC 

MOV 

R0,$OBUF 

RETURN 

GET  THE  LENGTH  OF  CURRENT  FIELD 

IF  ZERO,  NOTHING  TO  MOVE 

POINT  R1  AT  INPUT  STRING 

POINT  RO  AT  OUTPUT  BUFFER 

MOVE  THE  STRING  INTO  THE  OUTPUT  BUFFER 

SAVE  NEXT  LOCATION  IN  OUTPUT  BUFFER 

RETURN  10  CALLER 


CFEUPD  -  UPDATE  THE 

tMnuIT  -  MnUF  IMPllT 


CETAB  FILE 

I  INF    INTO   nilTPIIT 


MACRO  V05.03b   Saturday 
FILE   WITHOUT   EDITS 


H     2 

29-Jun-85  05:15 


Page  11 


CFEUSB 
$PTR50 


PUT  RAD50 


155  000224 
15A  000224 

155  000250 

156  000252 

157  00025A 

158  000256 

159  000240 

140  000244 

141  000250 

142  000252 
145  000256 

144  000260 

145  000262 

146  000266 

147  000270 

148  000272 
149 


004767  000064 

010546 

010446 

010105 

010204 

066704  177540 

016700  OOOOOOG 

012401 

004767  OOOOOOG 

005505 

005575 

010067  OOOOOOG 

012604 

012605 

000207 


$PTR50: 


10$: 


turday 

29-Jun-85  05:16 

CALL 

CHKOPT 

MOV 

R5,-(SP) 

MOV 

R4,-(SP) 

MOV 

R1,R5 

MOV 

R2,R4 

ADD 

.TEMP,R4 

MOV 

$08UF,R0 

MOV 

CR4)t,R1 

CALL 

$C5TA 

DEC 

R5 

BGT 

10$ 

MOV 

R0,$0BUF 

MOV 

(SP)+,R4 

MOV 

(SP)+,R5 

RETURN 

Page  5-1 


OUTPUT  COMMAS  FOR  ANY  MISSING  PARAMS 
FREE  UP  SOME  REGISTERS 

COPY  WORD  COUNT 

COPY  OFFSET 

POINT  TO  FIELD 

POINT  TO  OUTPUT  BUFFER 

GET  A  TEMPLATE  WORD 

CONVERT  RAD50  TO  ASCII 

DECREASE  WORD  COUNT 

IF  GT,  MORE 

RESTORE  BUFFER  POINTER 

RESTORE  REGISTERS 


H  I 

CFEUSB  -  TEMPLATE  UPDATE  SUBROU  MACRO  V05.05b  Saturday  29-Jun-85  05:16  Page  6 
tDTnPT  -  ruFrk-  fno  nPTinM4i  P4BAMFTFR 


EVTTBL 

CREATED  BV  MACRO  ON  29- 

•JUN-85  AT  05:16 

MACRO  CROSS 

REFERENCE 

MACRO  NAME 

REFERENCES 

EVENT 

#3-60 

5-88 

3-89 

3-90 

3-97 

3-98 

3-99 

3-100 

3-107 

...BIS 

#3-56 

3-88 

3-88 

3-88 

3-i8 

3-89 

3-89 

3-90 

H'1 

3-91 

3-91 

3-91 

3-91 

3-91 

3-91 

3''92 

3-92 

3-92 

3-92 

3*92 

3-92 

3-92 

3-92 

3-93 

3-9^ 

3-94 

3-94 

3-98 

3-98 

3-99 

3-100 

3-102 

3-103 

3-104 

3-105 

3-106 

3-106 

3-106 

3-106 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

G  4 

PAGE  3 

CREF   04.00 

3-91 

3-92 

3-93 

3-94 

3-95 

3-96 

3-101 

3-102 

3-103 

3-104 

3-105 

3-106 

3-88 

3-88 

3-88 

3-88 

3-88 

3-88 

3-90 

3-90 

3-91 

3-91 

3-91 

3-91 

3-91 

3-91 

3-91 

3-91 

3-91 

3-91 

3-91 

3-91 

3-92 

3-92 

3-92 

3-92 

3-92 

3-92 

3-92 

3-92 

3-92 

3-92 

3-92 

3-93 

3-93 

3-93 

3-93 

3-93 

3-95 

3-96 

3-97 

3-98 

3-98 

3-98 

3-101 

3-101 

3-101 

3-101 

3-102 

3-102 

3-106 

3-106 

3-106 

3-106 

3-106 

3-106 

3-106 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

3-107 

H     4 


*«FILE*«!D»«NOSNA 


PRMPT5  -  PROMPTS,  STRING  ASSEMB  MACRO  V05.03b  Saturday  29-Juri-85 
PROMPTS 


G  5 

17:01  Page  5-3 


2A4  000000 

245  000000 

246  000000 

247  000000 

248  000000 

249  000000 

250  000000 

251  000000 

252  000000 

253  000000 

254  000000 

255  000000 

256  000000 

257  000000 

258  000000 

259  000000 

260  000000 

261  000000 

262  000000 

263  000000 

264  000000 

265  000000 

266  000000 

267  000000 

268  000000 

269  000000 

270  000000 

271  000000 

272  000000 

273  000000 

274  000000 

275  000000 

276  000000 

277  000000 

278  000000 

279  000000 

280  000000 

281  000000 

282  000000 

283  000000 

284  000000 

285  000000 

286  000000 

287  000000 

288  000000 

289  000000 

290  000000 

291  000000 

292  000000 

293  000000 

294  000000 
295 

296 


000001 


PRMPTS 
PRHPT$ 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 
PRMPTS 

.END 


'Retransmit  timer  (msec): 
'Routing  timer  (sec):  ">, 
'Scheduling  timer  (msec): 
'Scope:  ">, 

'Secondary  dumper  file:  '> 
'Secondary  loader  tile:  "> 
'Secondary  loader  input  fi 
'Segment  buffer  size:  ">, 
'Service  option:  ">, 
'Service  circuit  id:  ">, 
'Service  device:  ">, 
'Service  Node  Version:  ">, 
'Service  state:  ">, 
'Service  timer  (msec):  ">, 
'Set  alias  options:  ">, 
'Set  circuit  options:  '>, 
'Set  component:  ">, 
'Set  line  options:  ">, 
'Set  logging  options:  ">, 
'Set  X25-access  options:  " 
'Set  X25-protocol  options: 
'Set  X25-server  options:  " 
'Set  X29-server  options:  " 
'Set  node  options:  ">, 
'Set  object  options:  '>, 
'Set  process  options:  ">, 
'Set  trace  options:  ">, 
'Show  component:  ">, 
'Sink  name:  ">, 
'Sink  node  identification: 
'Software  id:  ">f 
'Software  type:  '>, 
'State:  ">, 

'Stream  timer  (msec):  ">, 
'Subaddresses:  ">, 
'Software  option:  ">, 
'Terminal  identification: 
'Tertiary  loader  input  file 
'Text  password:  ">, 
'Trace  file:  ">, 
'Trace  state:  ">, 
'Transmit  timer  (msec) 
'Tributary  address^:^  "> 
'Trigger  options:  ">, 
'CUG  Type:  ">, 
'Type  of  test  data:  "> 
'Usage  type:  ">, 
'User  identification: 
'Vector:  ">, 
'Verification  state:  ' 
'Zero  component:  ">, 


">, 

PSRTR, 

<:> 

PSRTI, 

<:> 

">, 

PSSCT, 

<:> 

PSSCO, 

<:> 

PSSDU, 

<:> 

PSSLO, 

<:> 

[e:  ">, 

PSSEC, 

<:> 

PSSGZ, 

<:> 

PSSERO, 

<:> 

PSSLI, 

<:> 

PSSDV, 

<:> 

PSSNV, 

<:> 

PSSER, 

<:> 

PSSTI, 

<:> 

PSSEAL, 

<:> 

PSSECI, 

<:> 

PSSET, 

<:> 

PSSELI, 

<:> 

PSSELO, 

<:> 

>, 

PSSEXA, 

<:> 

'>, 

PSSEXP, 

<:> 

>, 

PSSE5S, 

<:> 

>, 

PSSE9S, 

<:> 

PSSENO, 

<:> 

PSSEOB, 

<:> 

PSSEPR, 

<:> 

PSSETR, 

<:> 

PSSHO, 

<:> 

PSSNAM, 

<:> 

">, 

f*SlN, 

<:> 

f'iSID, 

<:> 

PSSTY, 

<:> 

PSSTA, 

<:> 

PSSTT, 

<:> 

PSSUB, 

<:> 

PSSUO, 

<:> 

">, 

PSTER, 

<:> 

e:  ">, 

PSTLO, 

<:> 

PSTPAS, 

<:> 

PSTFIL, 

<:> 

PSTSTA, 

<:> 

PSXMT, 

<:> 

PSTRIB, 

<:> 

PSTRIG, 

<:> 

PSGTY, 

<:> 

PSWIi, 

<:> 

PSCUS, 

<:> 

PSUSE, 

<:> 

PSVEC, 

<:> 

PSVEST, 

<:> 

PS2ER, 

<:> 

H  5 

PRMPTS  -  PROMPTS,  STRING  ASSEMB  MACRO  V05.03b  Saturday  29-Jun-85  17:01  Page  5-4 


PRMPTO 

-  PROMPTS, 

OFFSET  ASSEME 

MACRO  V05.03b 

Saturday 

G  6 

29-Jun-85  17:02 

Page  6- 

4 

Symbol 

table 

P$ACC 

000010  G 

PSCPU 

001664  G 

PSLHE 

003700 

G 

P$PCH 

000644 

G 

PSSNV 

006526  G 

PtACT 

000072  G 

PSCSR 

001702  G 

PSLIST 

003460 

G 

PSPEN 

001536 

G 

PSSTA 

007472  G 

PtADD 

000124  G 

PSCTM 

001634  G 

PSLMB 

004000 

G 

P$PHA 

005560 

G 

PSSTI 

006602  G 

PSA  ID 

OOOHO  G 

PSCUS 

010130  G 

PSLMX 

004204 

G 

PSPHO 

S5^^2^ 

G 

PSSTT 

007504  G 

PSAMC 

000210  G 

PSCVL 

000600  G 

P$LNID 

003366 

G 

PSPID 

005672 

G 

P$STY 

007450  G 

PSAMH 

000236  G 

PSDDT 

001776  G 

PSLOA 

003500 

G 

PSPRI 

005654 

G 

PSSUB 

007534  G 

PSAREA 

0037S0  G 

PSDDTH 

001752  G 

PSLOC 

003554 

G 

PSPRO 

003436 

G 

PSSWO 

007556  G 

PSARID 

000160  G 

PSDEA 

001722  G 

PSLOO 

003654 

G 

PSPST 

'^PA^ 

G 

PSTER 

007602  G 

PSAST 

000312  G 

PSDES 

002230  G 

PSLOST 

003632 

G 

P$RET 

005740 

G 

PSTFIL 

007720  G 

PSASTN 

000352  G 

PSDEV 

002256  G 

PSLOWN 

003416 

6 

PSRFA 

006072 

G 

PSTLD 

007636  G 

PSASTO 

00026A  G 

PiDFA 

002112  G 

PSMAD 

003724 

G 

P$RMX 

004510 

G 

P$T0 

005466  G 

PSBBT 

000376  G 

PIDIA 

002276  G 

PSHBN 

004070 

G 

P$RRT 

006042 

G 

PSTPAS 

007676  G 

PSBDF 

002024  G 

PSDLT 

002134  G 

PSMBR 

004032 

G 

P$RST 

006014 

G 

PSTRIB 

010012  G 

PSBFQ 

005770  G 

PSDST 

002206  G 

PSMBU 

004132 

G 

PSRTl 

006154 

G 

PSTRIG 

010040  G 

PSBLK 

000426  G 

PSDTE 

002322  G 

PSMCO 

004260 

G 

PSRTPR 

005714 

G 

PSrSTA 

007740  G 

PSBRT 

000452  G 

PSDUA 

002362  G 

PSMHO 

004334 

G 

PSRTR 

006120 

G 

PSTYP 

000766  G 

PSBSA 

000024  G 

PSDUC 

002404  G 

PSMLK 

004400 

G 

PSSCO 

006240 

G 

PSUSE 

010150  G 

PSBSD 

002475  G 

PSDUM 

002424  G 

PSMLN 

004156 

G 

PSSCT 

006204 

G 

PSVEC 

010200  G 

PSBSI 

003146  G 

PSDUMO 

002442  G 

PSMOJD 

004750 

G 

PSSDU 

006252 

G 

PSVEST 

010214  G 

PSBUS 

000514  G 

PSDUP 

002462  G 

PSMRB 

004454 

G 

PSSDV 

006502 

G 

P$WDF 

002056  G 

PSCAT 

000552  G 

PSDWE 

002164  G 

PSMRT 

004562 

G 

PSSEAL 

006634 

G 

PSWIT 

010102  G 

PSCHN 

000620  G 

PSDYTH 

002542  G 

PSMUL 

005002 

G 

PSSEC 

006336 

G 

PSXMT 

007760  G 

PSCIID 

000666  G 

PSEIY 

005150  G 

PSMVI 

004672 

G 

PSSECJ 

006662 

G 

PSZER 

010244  G 

PSCIST 

000744  G 

PSEVE 

002566  G 

PSMXB 

004636 

G 

PSSELI 

006734 

G 

X 

OOOOOORG    002 

PSCLCI 

001010  G 

PSFNAM 

002620  G 

PSMXCO 

004230 

G 

PSSELO 

006762 

G 

Y 

OOOOOORG    003 

PSCLE 

001042  G 

PSGNM 

002656  G 

PSMXLI 

004356 

G 

PSSENO 

007174 

G 

$ALPHA= 

000022 

P$CLK 

001502  G 

PSGRP 

002636  G 

PSMXR 

004422 

G 

PSSEOB 

007222 

G 

$ANY  = 

000020 

PSCLLI 

001066  G 

PSGTY 

010064  G 

PSMXRT 

004612 

G 

PSSEPR 

007252 

6 

$BLANK= 

000006 

PSCLLO 

001116  G 

PSHAD 

002726  G 

PSMXW 

004716 

G 

PSSER 

006560 

G 

$DIGIT= 

000024 

PSCLNO 

001342  G 

PSHAO 

002754  G 

PSNAM 

005106 

G 

PSSERO 

006426 

G 

$DNUMB= 

000014 

PSCLOB 

001372  G 

PSHBT 

003032  G 

PSNCP 

000000 

G 

P$SET 

006712 

G 

$E0S  = 

000012 

PSCLT 

001424  G 

PSHOS 

003064  G 

PSNET 

005034 

G 

P$SETR 

007302 

6 

SEXIT  = 

000000 

PSCLTR 

001452  G 

PSHPAS 

003000  G 

PSNID 

005056 

G 

PSSEXA 

007012 

G 

SFAIL  = 

177777 

PSCLXA 

001150  G 

P$HTM 

002700  G 

PSNOST 

005124 

G 

PSSEXP 

007046 

G 

SGOFF  = 

000001 

PSCLXP 

001206  G 

PSIAT 

003250  G 

PSNUM 

002342 

G 

P$SE5S 

007104 

G 

SGPRM  = 

000001 

P$CL5S 

001246  G 

PSIDE 

003122  G 

PSOBJ 

005234 

G 

P$SE9S 

007140 

G 

$LAMDA= 

000000 

P$CL9S 

001304  G 

PSINA 

000044  G 

PSOBNA 

005266 

G 

PSSGZ 

006376 

G 

$NUMBR= 

000002 

PSCMB 

004302  G 

PSIND 

002516  G 

PSOBUS 

005330 

G 

PSSHO 

007330 

G 

$RAD50= 

000016 

PSCMK 

000534  G 

PSINI 

003170  G 

PSOBVE 

005350 

G 

PSSID 

007430 

G 

$RONLY= 

000001 

PSCOM 

001522  G 

PSINTH 

003220  G 

PSOID 

005306 

G 

PSSIN 

007372 

G 

$STRNG= 

000004 

PSCON 

001562  G 

PSITl 

003304  G 

PSOQL 

005400 

G 

PSSLI 

006452 

G 

$SUBXP= 

000010 

PtCOP 

001606  G 

PSLDOP 

003532  G 

PSOTI 

005434 

G 

PSSLO 

006304 

G 

$$$FLG= 

177777 

PSCOS 

001622  G 

PSLEN 

003336  G 

PSPAR 

005516 

G 

PSSMX 

004534 

G 

$$$KEY= 

177777 

PSCOU 

005200  G 

PSLGID 

003604  G 

PSPAS 

005542 

G 

PSSNAM 

007354 

G 

$$$LEN= 

0OOC22 

PSCOWN 

000722  G 

.  ABS. 

010270 
000000 

000 
001 

(RW,I, 
(RW.I, 

G8L,A8S,0VR) 
LCL.REL.CON) 

SSTATE 

000000 

002 

(RO,D, 

LCL,REL,CON) 

SKTAB 

000000 

003 

(RO,D, 

LCL.REL.CON) 

SKSTR 

000000 

004 

(RO,D, 

LCL.REL.CON) 

SFRMPT 

000000 

005 

(RO,D, 

LCL.REL.CON) 

Errors 

detected: 

0 

••  Assembler  statistics 
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PRSACT  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  05:17 
NODNAM  -  CONVERT  NODE  NAME  TO  RAD50 


Page  10 


1<)9 

.SBTTL 

?no 

+ 

?m 

***  - 

NODNAM 

?0? 

^n-; 

INPUTS: 

pn^ 

.PSTPT 

?ns 

.PSTCN 

?0A 

?07 

OUTPUTS: 

?nR 

C-BIT 

?09 

$NODNA 

rA) 

211 
212 

- 

000374 

gODNAM: 

?U 

C00374 

005067 

000002G 

CLR 

?1S 

OOOAOO 

016700 

OOOOOOG 

MOV 

21(S 

000404 

005001 

CLR 

?V 

000406 

004767 

OOOOOOG 

CALL 

?ia 

000412 

010167 

OOOOOOG 

MOV 

?}9 

000416 

103413 

BCS 

??0 

000420 

005001 

CLR 

■??^ 

000422 

004767 

OOOOOOG 

CALL 

22? 

000426 

010167 

000002G 

MOV 

22^ 

000432 

022767 

000006  OOOOOOG 

CMP 

224 

000440 

103002 

BHIS 

22S 

000442 

000261 

SEC 

22(S 

000444 

000401 

BR 

227 

000446 

000241 

10$: 

CLC 

228 

000450 

000207 

20$: 

RETURN 

NODNAM  -  CONVERT  NODE  NAME  TO  RAD50 
-  CONVERT  NODE  NAME  TO  RAD50 


ADDRESS  Of  NODE  NAME  STRING 
LENGTH  OF  NODE  NAME  STRING 


SUCCESS/FAILURE 
=  2  UORD  RAD50  NODE  NAME 


$N0DNAt2 

. PSTPT, RO 

R1 

$CAT5 

R1,$N0DNA 

lOi 

R1 

$CAT5 

R1,$N0DNA+2 

#6, .PSTCN 

loi 

20$ 


CLEAR  THE  SECOND  HALF  OF  THE  NODE  NAME 

POINT  RO  AT  NODE  NAME 

PERIODS  NOT  ACCEPTABLE 

CONVERT  NODE  NAME  TO  RAD50 

STORE  THE  NODE  NAME 

IF  CS,  LESS  THAN  3  CHARS  CONVERTED 

PERIODS  NOT  ALLOWED 

CONVERT  REST  OF  NODE  NAME  TO  RAD50 

STORE  SECOND  HALF  OF  NODE  NAME 

IS  THE  NODE  NAME  TOO  BIG  ? 

IF  HIS,  NO  -  OKAY 

ELSE,  INDICATE  FAILURE 

AND  LEAVE 

INDICATE  SUCCESS 
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•  •FILE«MD"PRSC1R 
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pppppppp 

RRRRRRRR 

SSSSSSSS 

cccccccc 

III 

111 

RRRRRRRR 

pppppppp 

RRRRRRRR 

SSSSSSSS 

cccccccc 

IJJ 

111 

RRRRRRRR 

pp    pp 

RR      RR 

SS 

RR      RR 

pp    pp 

RR      RR 

SS 

RR     RR 

pp    pp 

RR      RR 

SS 

RR     RR 

pp    pp 

RR      RR 

SS 

RR     RR 

pppppppp 

RRRRRRRR 

ssssss 

RRRRRRRR 

pppppppp 

RRRRRRRR 

ssssss 

RRRRRRRR 

pp 

RR  RR 

SS 

RR  RR 

pp 

RR  RR 

SS 

RR  RR 

pp 

RR    RR 

SS 

RR    RR 

pp 

RR    RR 

SS 

RR    RR 

pp 

RR      RR 

SSSSSSSS 

cccccccc 

111 

111 

RR      RR 

pp 

RR      RR 

SSSSSSSS 

cccccccc 

111 

III 

RR      RR 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

-L 

SS 

LL 

SS 

LL 

SS 

-L 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

,  1 

SS 

Ll 

SS 

.LLLLLLLLL 

SSSSSSSS 

Li'-LLLLLLL        SSSSSSSS 


TT 


PRSCIR  -  PARSE  ft  CIRCUIT-ID 
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MACRO  V05.03b  Saturday  ?9-Jun-85  13:20 


PRSCIR  -  PARSE  A  CIRCUIT-ID 
CATS  -  CONVERT  ASCII  TO  RAD50 


MACRO  V05.03b  Saturday  2'9-Jun-85 


h:l 


0  Page  11-1 


391 

392  000664 

393  000666 

394  000670 

395  000672 
396 

397  000674 
398 

399  000676 

400  000700 

401  000702 

402  000704 


120305 
001403 
000261 
000402 

010616 

000241 
012602 
012605 


20$: 


30$: 

40$: 
50$: 


CMPS 

BEQ 

SEC 

BR      50$ 


R3,R5 
40i 


MOV 


SP,(SP) 


CLC 

MOV     (SP)< 

MOV     (SP 

RETURN 


,R2 
,R5 


IS  THE  CHARACTER  A  LEGAL  TERMINATOR 
IF  EQ,  YES  -  RETURN  SUCCESS  CODE 
OTHERWISE  INDICATE  AN  ERROR 


MARK  THE  END  OF  THE  STRING 

INDICATE  SUCCESSFUL  CONVERSION 
RESTORE  REGISTERS 
SET  EXIT  CONDITION  CODES 
RETURN  TO  CALLER 
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PRSCIR     CREATED  BY  MACRO  ON  29-JL)N-85  AT  13:20 
SYMBOL  CROSS  REFERENCE 


G  10 

PAGE  2 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

lF.TIM 

=  000010 

#5-65 

LF.UNL 

=  020000 

#5-65 

LF.X2P 

=  000000 

#5-65 

LN.CLO 

=  000000 

#5-65 

LN.DUM 

=  000005 

#5-65 

LN.LOA 

=  000004 

#5-65 

LN.LOO 

=  000003 

#5-65 

LN.OAU 

=  000003 

#5-65 

LN.OFF 

=  000001 

#5-65 

LN.ON 

=  000000 

#5-65 

LN.OOP 

=  000004 

#5-65 

LN.OPE 

=  000001 

#5-65 

LN.REF 

--  000002 

#5-65 

LN.SER 

=  000002 

#5-65 

LN.STA 

=  000017 

#5-65 

LN.SUB 

=  000360 

#5-65 

LN.TRI 

=  000006 

#5-65 

LPSMPT 

=  000010 

#6-74 

LPSMUX 

=  000004 

#6-74 

8-180 

8-192 

13-481 

LPSTRB 

=  000002 

#6-74 

8-228 

8-236 

14-571 

LPSUNT 

=  000001 

#6-74 

8-202 

8-210 

LPtWCN 

=  000040 

#6-74 

6-74 

8-185 

8-206 

8-232 

LPSWDV 

=  000020 

#6-74 

6-74 

LPSJLD 

=  000360 

#6-74 

LPSUTR 

=  000200 

#6-74 

6-74 

8-228 

14-577 

LPSWUN 

=  000100 

#6-74 

6-74 

8-202 

8-232 

!•  -548 

LSADJ 

000110 

#5-74 

LSBUF 

000060 

#5-74 

LSCHN 

000054 

#5-74 

LSCDU 

000114 

#5-74 

L$CTB 

000053 

#5-74 

L$CTL 

000002 

#5-74 

•8-191 

14-546 

LSDDM 

000000 

#5-74 

*8-173 

15-628 

L$FLG 

000064 

#5-74 

LSFLX 

000070 

#5-74 

L$LEN 

000124 

#5-74 

LSLTM 

000070 

#5-74 

LSMSG 

000056 

#5-74 

L$MTYP 

000067 

#5-74 

LSNAM 

000000 

#5-74 

9-272 

9-278 

LSNLEN 

=  000020 

#5-74 

5-74 

5-74 

9-273 

LSNOD 

000112 

#5-74 

LtNXT 

000044 

#5-74 

L$DPT 

000062 

#5-74 

L$PAR 

000120 

#5-74 

LSPDV 

000055 

#5-74 

8-133 

8-157 

LSPFG 

000041 

#5-74 

8-180 

•8-185 

3-192 

•8-202 

•8-236 

•13-481 

14-544 

14-548 

14-569 

LSPLB 

000116 

#5-74 

lspro 

000067 

#5-74 

L$PVC 

000004 

#5-74 

L$SCN 

000020 

#5-74 

14-544 


14-569 


14-569 


8-206    *8-210    *8-228 
14-571     14-577 


8-232 


PRSCIR 


CREATED   BY     MACRO     ON  29-JUN-85   AT    13:20 
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PRSEXi^  -  PARSE  EXECUTOR  ACTION  MACRO  V05.03b  Saturday  29-Jun-85  05:18  Page  10 
.EXNC  -  SET  NUMBER  OF  NODE  COUNTERS 


225 
226 
227 
228 
229 
230 
231 
232 
233 
23A 
235 
236 
237 

238  000360 

239  000360 
2^0  000366 
2A1  000374 

242  000376 

243  000402 

244  000410 

245  000412 

246  000416 

247  000420 

248  000422 

249  000430 

250  000432 

251  000436 

252  000440 

253  000444 

254  000450 

255  000452 

256  000456 

257  000464 


.SBTTL   .EXNC  -  SET  NUMBER  OF  NODE  COUNTERS 

»•»  -  .EXNN  -  SET  NUMBER  OF  NODE  COUNTERS 

INPUTS: 

.PNUMB  =  THE  NUMBER  OF  NODE  COUNTERS 

OUTPUTS: 

SNCOU  =  THE  NUMBER  OF  NODE  COUNTERS 
THE  TRANSITION  IS  ACCEPTED/REJECTED. 


016767 
026727 
103426 
016700 
032767 
001015 
012700 
011000 
001407 
122760 
001372 
016000 
001002 
012700 
026700 
101405 
062716 
012767 
000207 


OOOOOOG  OOOOOOG 
OOOOOOG  000002 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 

000004 

OOOOOOG 
OOOOOOG 


000002        40$: 
OOOOOOG  OOOOOOG 

50$: 


.EXNC:; 


10$: 


20$: 
30$: 


MOV  . PNUMB, $NC0U 

CMP  .PNUMB, #2 

BLO  40$ 

MOV  $NN,R0 

BIT  #OE.NN,$OPRND 

BNE  30$ 

MOV  #$TMLST,RO 

MOV  (R0),R0 

BEQ  20$  , 

CMP8  #CS.fiOU,C.STS(R0) 

BNE  10$ 

MOV  C.ADD(RO),RO 

BNE  30$ 

MOV  #MAXNN,RO 

CMP  . PNUMB, RO 

BLOS  50$ 

ADD  #2,(SP) 

MOV  *ERRILN,$ERROR 

RETURN 


STORE  THE  MAX.  NODE  NUMBER 

IS  THE  VALUE  IN  RANGE  ? 

IF  LO,  OUT  OF  RANGE 

GET  MAX  NODE  ADDRESS  FROM  PARSE 

MAX  ADDRESS  SPECIFIED  IN  THIS  COMMAND  LINE 

IF  NE,  SPECIFIED  IN  PARSE  -  USE  IT 

ELSE  POINT  TO  TEMPLATE  LIST 

POINT  TO  NEXT  TEMPLATE 

IF  EQ,  NO  ROUTING  INFO  -  MUST  BE  END  NODE 

;  IS  THIS  THE  ROUTING  TEMPLATE  ? 

IF  NE,  NO 

ELSE  GET  MAX  NODE  ADDRESS 

IF  NE,  GOT  ONE 

ELSE  IT'S  AN  END  NODE 

CHECK  HIGH  END  OF  RANGE 

IF  LOS,  OK 

ELSE,  REJECT  TRANSITION 

INVALID  NUMBER 
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PRSEXf  CREATED  BY     MACRO     ON  29-JUN-85  AT   05:18 

SYMBOl    CROSS   REFERENCE 


G  12 

PAGE  2 

CREF   0^.00 


SYMBOL  VALUE 


.EXNC 

.EXNN 

.EXOUT 

.EXRET 

.EXSB2 

.EXSEG 

.EXSUB 

.PFLAG 

.PNUMB 


000360  RG 
00027A  RG 
001176  RG 
001256  RG 
000552  RG 
0010^4  RG 
000544  RG 


=  ****** 


PNUMH  =  .»»•**  GX 
.PSTCN  =  *.«.*»  GX 
,PSTPT  =  .**«»*  GX 


REFERENCES 

#10-238 

#9-205 

#19-485 

#20-504 

#12-509 

#16-422 

#12-305 

♦5-108 

6-158 

10-255 

14-385 

19-488 

■,2-512 

•  5-87 

•  5-86 


6-140 

12-314 

15-402 

20-505 

13-559 

5-89 

5-88 


7-160 
12-316 
15-404 
20-509 
14-585 
•  5-96 
5-114 


7-162 

13-340 

16-425 

15-406 
5-115 


8-182 

15-542 

17-442 

16-425 


8-184 

15-547 

17-446 

17-444 


9-211 

13-349 

18-463 

18-465 


10-239 
13-354 
18-467 

19-486 


10-240 
15-556 
19-484 

20-507 
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PRSLIN  - 
CH<MUX  - 

295 
206 
29:" 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3U 
315 
316 


G  13 

PARSE  A  I  iNE-ID       MACRO  V05.03b  Saturday  29-Jun-85  13:23  Page  10 
CHECK  IF  A  DEVICE  IS  A  MULTIPLEXOR 


000476 
000A76 
000502 
000506 
000510 
000516 
000520 
000526 


103407 
132764 
00U03 
152765 


000040  000010 
000004  000041 


.SBTTL  CHKMUX  -  CHECK  IF  A  DEVICE  IS  A  MULIIPLEXOR 

'♦♦-CHKMUX-CHECK  If  A  DEVICE  IS  A  MULTIPLEXOR 

THiS  ROUTINE  IS  CALLED  TO  DETERMINE  HOW  TO  PARSE  A  LINE-ID. 

INPUTS: 

R5  -  ADDRESS  OF  CONTEXT  AREA  WITN 
L$DDM(R5)  =  DDM  NAME  IN  RAD5U 

OUTPUTS: 

IF  LPSMUX  SET  IN  L$PFG(R5),  DEVICE  IS  MUX 

CHKMUX: 


10$: 


SWSTKS 

10$ 

;  ENTER  SYSTEM  STATE 

CALL 

PDVAD 

;  FIND  IT'S  PDV  ADDRESS 

BCS 

10$ 

;  IF  CS,  ILLEGAL  DDM 

BITS 

#2F.MUX,Z.FLG(R4) 

;  IS  IT  A  MUX  DEVICE  ? 

BEQ 

10$ 

;  IF  EQ,  NO  -  RETURN 

BISB 

#LP$MUX,L$PFG(R5) 

;  REMEMBER  MUX  DEVICE 

RETURN 
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PRSLIN  -  PARSE  A  LINE-ID 
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PRSLIN  CREATED  Bv 

MACRO  CROSS  REi^EREMCE 


MACRO     ON  29-JUN-85  AT   13:23 


PAGE 
CREF 


G  K 

04.00 


MACRO  NAME 

REFERENCES 

CAl  L 

7-91 

7-112 

7-120 
11-357 

10-31C 

10-311 

ClRCXt 

#5-57 

5-63 

M^NDF$ 

#5-57 

5-61 

PDVDFS 

#5-57 

5-59 

RETC 

#5-57 

11-387 

RETURN 

7-166 

8-236 

9-293 

SLTDFS 

#5-57 

5-60 

SOB 

7-95 

SWST<$ 

10-310 

11-357 

7-12« 

11-361 


10-316 


7-130 
12-410 


11-388 


7-H1 


12-120 


7-K9 


13-465 


7-158 


8-?15 


9-276 


*FILE»»ID««PRSLOG 


H  U 


G  15 

PRSLOG  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:19  PAGE   ? 

MACRO  CROSS  RE^^ERENCE  CREf        0^.00 

MACRO  NAME  REFERENCES 

PRINT  #A-60 
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PRSMOD  -  PARSE  ACriON  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 
HOMXft  -  PARSE  MAXIMUM  RESTARTS 


?slt 


9  Page  13 


?35 

.SBTTL   .MOMXR  -  PARSE  M/ 

UIMUM  RESTARTS 

236 

t 

237 
238 
239 

*<■    .MOMXR  -  PARSE  MAXIMUM  RESTARTS 

INPUTS       .TPARS  VARIABLES. 

2A0 
2'.! 

OUTPUT       $MXR  =  PARSED  MAXIMUM  RESTARTS 

2« 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 

2A3 

2^^.  000350 

MOMXR:: 

2A5  000350 

005767 

OOOOOOG 

TST     .PNUMH 

HIGH  ORDER  WORD 

2'>b   00035^ 

00105^ 

BNE     ILLNUM 

REJECT  IF  TOO  HIGH 

2'.7  000356 

105767 

000001 G 

TSTB    .PNUMB<-1 

TEST  HIGH  BVTE 

2'.8  000362 

001051 

BNE     ILLNUM 

BR  If   ILLEGAL  NUMBER 

2^9  00036A 

116767 

OOOOOOG  OOOOOOG 

MOVB    .PNUMB,$MXR 

MOVE  VALUE  TO  PARSED  AREA 

250  000372 
25' 

000207 

RETURN 

H  16 
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rFETSB     CREATED  BY  MACRO  OiN  29-JUN-85  AT  05:15 
SYMBOL  CROSS  REFERENCE 


H  1 

PAGE  1 

CREf   04.00 


SYMBOL  VALUE 


BYTFLG 

REJECT 

tCLERR 

SGTNMB 

SGTNUH 

$GTR50 

.CATS 

.ERROR 

.FLAGS 

.PNUMB 

.PNUMH 

.PSTCN 

.PSTPT 

.TEMP 


000006  R 
000200  R 
000206  RG 
000010  RG 
000016  RG 
000072  RG 
.♦♦♦«.  GX 
000000  RG 
000002  RG 
GX 
GX 
GX 
GX 
000004  RG 


=  ****** 
=  ****** 


REFERENCES 

#A-67 

5-98 
#5-179 
#5-91 
#5-95 
#5-133 

5-155 
#4-61 
#4-62 

5-99 

5-97 

5-137 

5-140 
#4-63 


*5-92 
5-100 


*5-180 
5-101 
5-142 
5-103 


♦  5-96 
5-102 


5-106 
5-148 
5-146 


5-104 
5-138 


5-108 


#5-165 


»«FILE"ID«*CFEiJPD 


I      1 


CFEUPD  - 
SMOVIT  - 

331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
3A1 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 


H     2 

UPDATE   THE   CETAB  FILE     MACRO  V05.03b  Saturday  29-Jun-85  05:15 
MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 


Page  11 


***  -  $CNVD  -  CONVERT  BINARY   TO  DECIMAL  MAGNITUDE 
***  -  $CNVO  -  CONVERT  BINARY  TO  OCTAL  MAGNITUTDE 

INPUT: 

RO  -   ADDRESS  OF  OUTPUT  BUFFER 
R1  =  NUMBER  TO  CONVERT 

OUTPUT: 

RC  =  NEXT  LOCATION  IN  OUTPUT  BUFFER 
R1   =  PRESERVED 
R2  =  DESTROYED 


000526  005002 

000530  004767     OOOOOOG 

000534  112720     000056 

000540  000403 

000542  005002 

000544  004767     OOOOOOG 

000550  000207 


.ENABL 

LS8 

SCNVD: 

CLR 

R2 

CALL 

SCBDMG 

M0V8 

#'.,(R0)t 

BR 

10$ 

SCNVO: 

CLR 

R2 

CALL 

$CBOMG 

10$: 

RETURN 

.DSABL 

LS8 

ZERO  SUPPRESSION 

CONVERT  NUMBER  TO  DECIMAL  ASCII 

APPEND  A  DECIMAL  POINT 

AND  LEAVE 

ZERO  SUPPRESSION 

CONVERT  NUMBER  TO  OCTAL  ASCII 

RETURN  TO  CALLER 
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*«jr^,,TT  (uir,i,r      tiini.T     i    I  nr      ruT.-i     n.iTDiiT     CTi   c     IJITunilT     C  hi  T  C 


CFEUSB  - 
SPTOPT  - 

151 

152 

153 

15^ 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 


H  3 

TEMPLATE  UPDATE  SUBROU  MACRO  V05.03b  Saturday  29-Jun-85  05:16  Page  6 
CHECK  FOR  OPTIONAL  PARAMETER 

.SBTTL  SPTOPT  -  CHECK  FOR  OPTIONAL  PARAMETER 
♦♦  SPTOPT  -  CHECK  FOR  OPTIONAL  PARAMETER 
INPUTS 


000274 

000274  030277  177502 

000300  000241 

000302  001003 

000304  005267  177476 

000310  000261 

000312  000207 


OUTPUT 


SPTOPT: 


R2  =  OPTION  BIT 

.FLAG  =  ADDRESS  OF  TEMPLATE  STATUS  WORD 


CARRY  CLEAR:  OPTION  SELECTED 
CARRY  SET:  OPTION  NOT  SELECTED, 


.COMMA  [S  UPDATED. 


10S: 


BIT 

R2, a. FLAGS 

ri  c 

RNF 

lOS 

INC 

.COMMA 

SFC 

Rtll 

IN 

CHECK  FOR  OPTION 

ASSUME  SELECTED 

IF  NE,  SELECTED 

ELSE  REMEMBER  UNSELECTED  OPTION 

RETURN  STATUS 


.SBTTL  CHKOPT  -  CHECK  FOR  PRECEDING  OPTIONS 

**  CHKOPT  -  CHECK  FOR  PRECEDING  OPTIONS 

INPUTS        .COMMA  =  COUNT  OF  PRECEDING  UNPRINTED  OPTIONS  ON  LINE 

OUTPUT       COMMAS  ARE  OUTPUT  TO  ACCOUNT  FOR  ANY  PRECEDING 
UNPRINTED  OPTIONS. 


000314  005267 

000320  005367 

000324  100406 

000326  112777 

000334  005267 

00034C  000767 

000342  005267 

C00346  000207 

000001 


177466 
177462 

000054  OOOOOOG 
OOOOOOG 


CHKOPT; 
10S: 


177440 


20S: 


INC 

DEC 

BMI 

M0V8 

INC 

BR 

INC 

RETURN 

.END 


.COMMA  ZEROED 


.COMMA 

.COMMA 

20$ 

#',,aSOBUF 

SOBUF 

10S 

.COMMA 


GET  REAL  COUNT  OF  COMMAS 

REDUCE  COUNT 

IF  MI,  NO  MORE  COMMAS 

BUFFER  A  ',^MMA 

BUMP  BUFFER  POINTER 

CONTINUE 

RESET  AND  CLEAR  CARRY 
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'♦FILE*«!D«»NOSNA 


NN      NN 

OOOOCO 

ssssssss 

NN 

NN 

AAAAAA 

NN     m 

OOOOCO 

ssssssss 

NN 

NN 

AAAAAA 

NN      NN 

on 

00 

ss 

NN 

NN 

AA      AA 

NN      NN 

nn 

00 

ss 

NN 

NN 

AA      AA 

NNNN    NN 

nn 

00 

ss 

NNNN 

NN 

AA      AA 

NNNN    NN 

nn 

00 

ss 

NNNN 

NN 

AA      AA 

NN  NN  NN 

nn 

00 

ssssss 

NN  NN  NN 

AA      AA 

NN  NN  NN 

nn 

00 

ssssss 

NN  NN  NN 

AA      AA 

NN    NNNN 

nn 

DO 

ss 

NN 

NNNN 

AAAAAAAAAA 

NN    NNNN 

nn 

00 

ss 

NN 

NNNN 

AAAAAAAA,  ' 

NN      NN 

nn 

00 

ss 

NN 

NN 

A  A      /.A 

NN      NN 

00 

00 

ss 

NN 

NN 

A  A      \A 

NN      NN 

000000 

ssssssss 

NN 

NN 

AA      AA 

NN      NN 

000000 

ssssssss 

NN 

NN 

AA      AA 

LL 

ssssssss 

TTTTT 

TTTTT 

-L 

ssssssss 

TTTTT 

TTTTT 

.L 

ss 

LL 

ss 

_L 

ss 

.L 

ss 

-L 

ssssss 

LL 

ssssss 

_L 

ss 

_L 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

ILLLLLLLLL 

ssssssss 
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PtACC 

000010  G 

P$CPU 

=$ACT 

000072  G 

P$CSR 

='$ADD 

0001 2A  G 

P$CTM 

=$AID 

000110  G 

PSCUS 

=$AMC 

000210  G 

P$CVL 

PSAMH 

000236  G 

P$DDT 

PSAREA 

003750  G 

PSDDTH 

PSARID 

000160  G 

P$DEA 

P$AST 

000312  G 

P$DES 

PSASTN 

000352  G 

P$DEV 

PSASTO 

000261  G 

PSDFA 

P$BBT 

000376  G 

P$DIA 

PSBDF 

002021  G 

PSDLT 

PSBFQ 

005770  G 

P$DST 

PSBLK 

000126  G 

PSOTE 

P$BRT 

000152  G 

PSDUA 

P$BSA 

000021  G 

PSDUC 

PSBSD 

002176  G 

PSDUM 

PSBSI 

003116  G 

PSDUMO 

PSBUS 

000511  G 

PSDUP 

PSCAT 

000552  G 

PSDWE 

PSCHN 

000620  G 

PSDYTH 

PSCIID 

000666  G 

P$ETY 

PSCIST 

000711  G 

P$EVE 

PSCLCI 

001010  G 

PSFNAM 

P$CLE 

001012  G 

P$GNM 

P$CL< 

001502  G 

PSGRP 

P$CLLI 

001066  G 

PSGTV 

P$CLLO 

001116  G 

PSHAD 

PSCLNO 

001312  G 

PSHAO 

PSCLOB 

001372  G 

PSHBT 

P$CLT 

001121  G 

P$HOS 

PSCLTR 

001152  G 

PSHPAS 

PSCLXA 

001150  G 

PSHTM 

PSCLXP 

001206  -5 

P$IAT 

P$CL5S 

001216  G 

P$IDE 

P$CL9S 

001301  G 

P$1NA 

PSCMB 

001302  G 

P$IND 

PSCMK 

000531  G 

P$INI 

PSCOM 

001522  G 

PSINTH 

P$CON 

001562  G 

PSITI 

P$COP 

001606  G 

PSLDOP 

PSCOS 

001622  G 

PSLEN 

P$CCU 

005200  G 

PSLGID 

PICOWN 

000722  G 

ABS.  010270 

000000 

SSTATE  000000 


$KTAB 
SKSIR 


000000 
000000 


SPRMPT  010270 
Errors  detected: 


000 
001 
002 
003 
001 
005 
0 


001661 
001702 
001631 
010130 
000600 
001776 
001752 
001722 
002230 
002256 
002112 
002276 
002131 
002206 
002322 
002362 
002101 
002121 
002112 
002162 
002161 
002512 
005150 
002566 
002620 
002656 
002636 
010061 
002726 
002751 
003032 
003061 
003000 
002700 
003250 
003122 
000011 
002516 
003170 
003220 
003301 
003532 
003336 
003601 


(RW, 
(RW, 


,G8L,ABS,0VR) 
,LCL,REL,C0N) 


(RO,D,LCL,REL,CON) 
(RO,D,LCL,REL,CON) 
(RO,D,LCL,REL,C0N) 
(R0,D,LCL,REL,C0N) 


••»  Assembler  statistics 


P$LHE 

PSLIST 

P$LMB 

P$LMX 

PSLNID 

PSLOA 

P$LOC 

P$L00 

PSLOST 

PSLOWN 

PSMAD 

P$MBN 

P$MBR 

P$MBU 

PSMCO 

PSMHO 

P$MLK 

P$MLN 

PSMOID 

P$MRB 

P$HRT 

PSMUL 

P$MVI 

P$MXB 

PSMXCO 

PSMXLl 

P$MXR 

PSMXRT 

P$MXW 

P$NAM 

P$NCP 

P$NET 

PSNID 

PSNOST 

P$NUM 

PSOBJ 

PSOBNA 

PSOBUS 

PSOBVE 

PSOJD 

P$OQL 

P$OT] 

PSPAR 

P$PAS 


003700 
003160 
001000 
001201 
003366 
003500 
003551 
003651 
003632 
003116 
003721 
001070 
001032 
001132 
001260 
001331 
001100 
001156 
001750 
001151 
001562 
005002 
001672 
001636 
001230 
001356 
001122 
001612 
001716 
005106 
000000 
005031 
005056 
005121 
002312 
005231 
005266 
005330 
005350 
005306 
005100 
005131 
005516 
005512 


P$PCH 

P$PEN 

P$PHA 

P$PH0 

P$PID 

P$PR1 

P$PRO 

P$PST 

P$RET 

P$RFA 

PSRMX 

P$RRT 

P$RST 

PSRTJ 

PSRTPR 

PSRTR 

P$SCO 

PSSCT 

P$SDU 

P$SDV 

PSSEAL 

P$SEC 

PSSECI 

PSSELJ 

PSSELO 

PSSENO 

PSSEOB 

PSSEPR 

PSSER 

PSSERO 

P$SET 

PSSETR 

PSSEXA 

PSSEXP 

P$SE5S 

P$SE9S 

P$S6Z 

P$SHO 

P$SID 

PSSIN 

PSSLI 

P$SLO 

P$SMX 

PSSNAM 


000611 
001536 
005560 
005606 
005672 
005651 
003136 
005632 
005710 
006072 
001510 
006012 
006011 
006151 
005711 
006120 
006210 
006201 
006252 
006502 
006631 
006336 
006662 
006731 
006762 
007171 
007222 
007252 
006560 
006126 
006712 
007302 
007012 
007016 
007101 
007110 
006376 
007330 
007130 
007372 
006152 
006301 
001531 
007351 


P$SNV 

P$STA 

P$STI 

P$STT 

P$STY 

P$SUB 

PSSWO 

P$TER 

P$TFIL 

P$TLO 

P$TO 

PSTPAS 

PSTRIB 

PSTRIG 

PSTSTA 

PSTYP 

P$USE 

PSVEC 

PSVEST 

P$WDF 

PSWIT 

P$XMT 

PSZER 

X 

Y 

$ALPHA= 

$ANY  = 

$8LANK= 

$DIGIT= 

$DNUMB= 

$EOS  = 

$EXIT  = 

SFAIL  = 

$GPRM  = 

$LAMDA= 

$NUMBR= 

$RAD50= 

$RONLY= 

$STRNG= 

$SUBXP= 

$$PRMP 

$$$FLG= 

$$$KEY= 

$$$LEN= 


006526 

007172 

006602  G 

007501  G 

007150 

007531 

007556 

007602 

007720 

007636 

005166 

007676 

010012 

010010 

007710 

000766 

010150 

010200 

010211 

002056 

010102 

007760 

010211  _ 

OOOOOORG 

OOOOOORG 

000022 

000020 

000006 

000021 

000011 

000012 

000000 

177777 

000001 

000000 

000002 

000016 

000001 

000001 

000010 

OOOOOORG 

177777 

177777 

000022 


002 
003 


005 
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230 

231 

232 

233 

23A 

235 

236 

237 

238 

239 

240  000A52 

2A1  000A52 

242  000456 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256  000460 

257  000460 

258  000464 

259  000470 

260  000474 

261  000476 

262  000502 

263  000506 

264  000510 

265  000514 

266  000520 

267  000522 

268  000524 

269  000526 

270  000530 

271  000534 

272  000536 

273  000540 

274  000542 

275  000544 

276  000546 

277  000552 

278  000554 

279  000556 

280  000562 

281  000564 

282  000566 

283  000574 

284  000576 

285  000602 

286  000610 


.S8TTL   .RNINI  -  INITIALIZE  NODE  ADDRESS 

*«♦  .RNINI  -  INITIALIZE  NODE  ADDRESS 

INPUT: 

NONE. 

OUTPUT: 

SNODAD  =  0 


005067  OOOOOOG 
000207 


.RNINI: 


CLR     SNODAD 
RETURN 


;  EASY 


.SBTTL   .RNAD2  -  SECOND  PART  OF  NODE  ADDRESS 

**♦  -  .RNAD2  -  SECOND  PART  OF  NODE  ADDRESS 

INPUT: 

.PNUMB  =  PARSED  NUMBER 

SNODAD  =  AREA  AS  SET  UP  BY  .RNADD 

OUTPUT: 

PHASE  4  NODE  ADDRESS. 


016702  OOOOOOG 
042702  001777 
005767  OOOOOOG 
001040 

016700  OOOOOOG 
020027     001777 
101033 

016701  0000006 
042701      176000 
005701 

001002 

010201 

000406 

020127  000077        7$: 

101020 

000301 

006301 

006301 

050100  8$: 

010067  OOOOOOG 

020002 

001404 

032700  001777 

001012 

000404 

016767  OOOOOOG  OOOOOOG  15$ 

000405 

062716  000002        10$ 

012767  OOOOOOG  OOOOOOG 

000207  20$ 


.RNAD2:: 


MOV 

BJC 

TST 

BNE 

MOV 

CMP 

BHl 

MOV 

SIC 

TST 

BNE 

MOV 

BR 

CMP 

BHI 

SWAB 

ASL 

ASL 

BIS 

MOV 

CMP 

BEQ 

BIT 

BNE 

BR 

MOV 

BR 

ADD 

MOV 

RETURN 


$NTADD,R2 

#1777, R2 

.PNUMH 

10$ 

. PNUMB, RO 

R0.#1023. 

10§ 

$N0DAD,R1 

#-C177^,R1 

R1 

7$ 

R2,fi1 

8$ 

R1,#63. 

10$ 

Rl 

Rl 

Rl 

RI.RO 

R0,$NODAD 

R0,R2 

15i 

#1777, RO 

20$ 

10$ 

$NTADD, SNODAD 

20$ 

#2,(SP) 

#ERRILN,$ERR0R 


PICK  UP  EXEC  ADDRESS 

ISOLATE  AREA 

32  BIT  VALUE  ? 

IF  NE,  ERROR 

ELSE  PICK  UP  PARSED  VALUE 

CHECK  HI  END  OF  RANGE 

IF  HI,  ERROR 

PICK  UP  FIRST  PART  OF  ADDRESS 

CLEAR  "AREA" 

WAS  THIS  AREA  ZERO  ? 

IF  NE,  NO 

ELSE  WE  WANT  EXEC  AREA 

KNOW  IT'S  VALID,  SO  GO  FOLD  IT  IN 

CHECK  REAL  AREA  VALUE 

IF  HI,  OUT  OF  RANGE 

SHIFT  AREA  NUMBER  TO  HI  BYTE 

MESS  WITH  IT  ... 

..  A  BIT  (2  BITS,  ACTUALLY) 
FOLD  AREA  INTO  NODE  ADDRESS 
STORE  IT 

IS  IT  LOCAL  AREA  +  NODE  0  ? 
IF  EQ,  NON-STANDARD  BUT  WE'LL  ALLOW  IT 
ELSE  IS  IT  OTHER  NODE  0  ? 
NO  -  SUCCESS  I 
YES  -  NOT  A  VALID  ADDRESS 
DO  WHAT  HE  MEANT,  NOT  WHAT  HE 

REJECT  THE  TRANSITION 
INVALID  NUMBER 


SAID 
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CDTB  -  CONVERT  DECIMAL  TO  BINARY 

.SBTTL  CDT8  -  CONVERT  DECIMAL  TO  BINARY 

♦♦-CDTB-CONVERT  DECIMAL  TO  BINARY 

INPUTS: 

RO  =  ADDRESS  OF  THE  FIRST  CHARACTER  TO  CONVERT 

R3  =  LEGAL  TERMINATING  CHARACTER 

R4  =  ADDRESS  OF  THE  END  OF  THE  STRING  +  1 

OUTPUTS: 


A04 

A05 

A06 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430  000706 

005046 

431  000710 

005001 

432  000712 

112002 

433  000714 

020400 

434  000716 

103421 

435  000720 

120302 

436  000722 

001415 

437  000724 

162702  000060 

438  000730 

020227  000012 

439  000734 

103016 

440  000736 

010046 

441  000740 

012700  000012 

442  000744 

443  000750 

012600 

444  000752 

060201 

445  000754 

000756 

446 

447  000756 

020400 

448  000760 

001001 

449 

450  000762 

010616 

451 

452  000764 

022701  000400 

453  000770 

101002 

454  000772 

000261 

455  000774 

000401 

456 

457  000776 

000241 

458  001000 

012602 

459  001002 

C-8IT  CLEAR: 

RO  =  ADDRESS  OF  THE  NEXT  CHARACTER  IN  THE  STRING 

R1  =  CONVERTED  RESULT 

R2  =  COMPLETION  CODE  (0  -   MORE  IN  THE  STRING) 

(NOT  0  =  END  OF  THE  STRING) 

C-8IT  SET: 

ILLEGAL  CHARACTER  IN  THE  STRING 

REGISTERS  MODIFIED: 

NONE 


CDTB: 

CLR 

-(SP) 

CLR 

Rl 

10$: 

M0V8 

(R0)+,R2 

CMP 

R4.R0 

BLO 

20i 

CMPB 

R3,R2 

BEQ 

15$ 

SUB 

#'0,R2 

CMP 

R2,#10. 

BHIS 

40i 

MOV 

RO,-(SP) 

MOV 

#l6.,R0 

CALL 

$MUL 

MOV 

(SP)+,RO 

ADD 

R2,R1 

BR 

lOi 

15$: 

CMP 

R4,R0 

BNE 

30$ 

20$: 

MOV 

SP,(SP) 

30$: 

CMP 

#256., Rl 

BHI 

50$ 

40$: 

SEC 

BR 

60$ 

50$: 

CLC 

60$: 

MOV 
RETURN 

(SP)t,R2 

SET  COMPLETION  FLAGS 

CLEAR  ACCUMULATION 

GET  THE  NEXT  CHARACTER 

REACHED  THE  END  OF  THE  STRING  ? 

IF  LO,  YES  -  EXIT  WITH  RESULT 

IS  THE  CHARACTER  A  LEGAL  TERMINATOR  ? 

IF  EQ,  YES  -  EXIT  WITH  RESULT  ;04 

NORMALIZE  THE  CHARACTER 

IS  IT  WITHIN  RANGE  ? 

IF  HIS,  NO  -  EXIT  WITH  ERROR 

SAVE  THE  STRING  POINTER 

SET  THE  MULTIPLICAND 

MULTIPLY  'EM  UP 

RESTORE  THE  STRING  POINTER 

ACCUMULATE  THE  RESULT 

CONTINUE 

WAS  'LEGAL  TERMINATOR'  THE  END-OF-STRING  ?;04 
IF  NEC,  NO-  EXIT  WITH  RESULT  ;04 

SET  THE  STRING  END  INDICATOR 

IS  THE  RESULT  WITH  A  BYTE  QUANTITY  ? 
IF  HI,  YES  -  EXIT  WITH  RESULT 
INDICATE  ILLEGAL  CHARACTER  IN  STRING 
OR  RESULT  OUT  OF  RANGE 

INDICATE  SUCCESSFUL  CONVERSION 
SET  COMPLETION  CONDITIONS 
RETURN  TO  CALLER 
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PAGE  5 

CREF   04.00 


SYMBOL  VALUE 


L$SCR 

LSSLEN 

LSSLT 

L$SNM 

LSSYL 

L$TNM 

LSTPT 

L$TRB 

LSTSZ 

LSTYP 

LIUNT 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

ME.IID 

ME.UCO 

NEWPVC 

N$$VCT 

PDVAD 

PDVID 

PDVTA 

PRSCIR 

PSIPT 

R$RO 

R$R1 

R$$PRO 

R$$RTR 

R$$11D 

R$$nM 

R$$11S 

SF.ACT 
SF.EfJA 
SF.LPB 
SF.MFL 
SF.PAC 
SF.REA 
SF.SER 
SF.S\/C 


000072 
000066 
000042 
000046 
000122 
000052 
000050 
000040 
000070 
000063 
000003 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
177767 
177770 
000460  R 

:  ****** 

001334  R 

:  ******    QX 
:  ******    GX 

000004  RG 

:  »**♦*♦   GX 

GX 
GX 


=   ****** 
-       *■***♦* 


000000 


000200 
000100 
000004 
000040 
000020 
000010 
000001 
000002 


REFERENCES 

#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 

8-249 

14-605 

8-154 

14-606 

13-477 

15-629 

14-559 
#8-123 

8-149 
*8-245 
♦8-166 

8-144 

8-137 

5-64 

5-64 

4-1 

14-562 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 


*10-325 

*14-598 

*10-324 
•8-237 

*8-211 
14-546 
14-542 
14-558 

14-573 


14-575 

14-550 
14-602 

#10-308 

14-527 

15-632 

10-310 
.8-249 

14-507 


5-64 
14-586 


*14-599 
14-579 
14-550 


14-593 


14-579 


#15-627 


.14-602 


7-81 


14-595 


14-605 


-90 


8-124 


8-144 


8-218 


9-254 


14-530 
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PRSEXE  - 
EXHOS  - 

259 

260 

261 

262 

263 

26^ 

265 

266 

267 

268 

269 

270 

271 

272 

273 

27A 

275 

276 

277 

278 

279 

280 

281 

282 

283 

28A 

285 

286 

287 

288 
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STORE  HOST  NODE  ADDRESS 

.SBTTL   .EXHOS  -  STORE  HOST  NODE  ADDRESS 

•♦»  -  .EXHOS  -  STORE  HOST  NODE  ADDRESS 

INPUT: 

SNODAD  =PARSED  NODE  ADDRESS 

OUTPUT: 

$HOST  =  THE  NODE  ADDRESS 

THE  TRANSITION  IS  ALWAYS  ACCEPTED 


000466  .EXH01: 

000466  016767  OOOOOOG  OOOOOOG 

000474  000207 

000476  .EXHOS: 

000476  016700  OOOOOOG 

000502  016767  OOOOOOG  OOOOOOG 

000510  010067  OOOOOOG 

000514  001407 

000516  016700  OOOOOOG  . 

000522  042700  001777 

000526  020067  OOOOOOG 

000532  001003 

000534  016767  OOOOOOG  OOOOOOG  5$: 

000542  000207  10$: 


MOV 
RETURN 


MOV 
MOV 
MOV 
BEO 
MOV 
BIC 
CMP 
BNE 

MOV 

RETURN 


SNODAD, $HOST 


SNODAD, RO 
SHOST, SNODAD 
RCSHOST 
5S 

$NTADD,RO 
#1777, RO 
RO, SHOST 
10$ 

SNTADD, SHOST 


A  LITTLE    CHICANERV,    HERE 


KEEP   YOUR   EYES 
...ON  THE   NODE 

IF'eQ,    EXECUTOR  PARSED 

ELSE   PICK   UP  EXEC  ADDRESS 

CLEAR  NODE   NUMBER 

IS    THIS  EXEC   AREA,    NODE    ZERO   ? 

IF   NE,   NO 

ELSE  DO  WHAT  HE  MEANT,  NOT  WHAT  HE  SAID 
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PRSEXE     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:18 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 
PRINT         #A-57 
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PAGE  5 

CREf   OA.OO 
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»*FILE**ID»»PRSLIN 
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CHtCDEV  -  CHECK  VALIDITY  OF  DEVICE  SPECIFIER 
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318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

340  000530 

3A1 

3';2 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357  000530 

358 

359 

360 

361  000534 

362  000540 
363 

364 
565 

366  000542 

367  000546 

368  000552 

369  000554 

370  000560 

371  000562 

372  000570 

373  000572 

374  000600 


.S8TTL  CHKDEV  -  CHECK  VALIDITY  Of  DEVICE  SPECIFIER 

'♦♦-CHKDEV-CHECK  VALIDITY  OF  DEVICE  SPECIFIER 

THIS  ROUTINE  MAKES  SURE  THAT  THE  DEVICE  SPECIFIED  IS  KNOWN  TO  THE  SYSTEM, 
AND  THAT  THE  FIELDS  SPECIFIED  APPLY. 

INPUTS: 

R5  =  ADDRESS  OF  CONTEXT  AREA  WITH 
L$DDM(R5)  =  DDM  NAME  OF  LINE  IN  RAD50 
L$CTL(R5)  =  CONTROLLER  NUMBER 
L$UNT(R5)  =  UNIT  NUMBER 
L$TR8(R5)  =  TRIBUTARY  NUMBER 
L$PFG(R5)  =  PARSE  FLAGS 

OUTPUTS: 

IF  CC,  LINE  IS  FOUND  AND  IS  LEGAL 

ELSE,  UNRECOGNIZED  LINE  OR  ILLEGAL  LINE-ID  (ERROR  CODE  IN  RO) 

NO  REGISTERS  MODIFIED 


CHKDEV: 


.IF  OF   S$$8AS  !  R$$RTR 


CMP 

#*RLC  ,L$DDM(R5) 

is  it  a  PAM  line  card  ? 

BNE 

5$ 

if  NE,  no 

SEC 

assume  failure... 

MOV 

#ME.IID,RO 

...invalid  id 

BITS 

#LP$TRB!LP$UNT,L$PFG(R5) 

trib  or  unit  parsed  ? 

BNE 

100$ 

if  NE,  yes  -  error 

MOV 

#ME.UCO,RO 

assume  unrecognized  component 

BITS 

#LP$WCN,L$PFG{R5) 

wildcard  unit  parsed  ? 

BEQ 

100$ 

if  EQ,  not  "LC-*" 

MOV 

#*RPAM,L$DDM(R5) 

else  ook  like  "PAM-*-*"... 

BIS8 

#LP$MUX!LP$UNT!LP$WCNILP$WUN,L$PFG(R5)  ;  ...internaUy 

.ENDC 
5$:     SWSTK$  100$ 

MAKE  SURE  THE  PROCESS  EXISTS, 


103437 


017700 
017703 
012301 
126102 
001020 
132765 
001033 
126165 
001010 


CALL 
BCS 


PDVAD 
90$ 


;;  ENTER  SYSTEM  STATE 

AND  IS  A  DDM 

;;  FIND  IT'S  PDV  ADDRESS 

;;  IF  CC,  LINE  NOT  IN  SYSTEM 


OOOOOOG 
OOOOOOG 

000002 

000040 


MAKE  SURE  THE  LINE  EXISTS 


000041 


000012  000002 


MOV  aSLTNM,RO 

MOV  aSLTMA,R3 

10$:    MOV  (R3)+,R1 

CMPB  L.DDM(R1),R2 

BNE  20$ 

BITS  #LP$UCN,L$PFG(R5) 

BNE  100$ 

CMPB  L.CTL(R1),L$CTL(R5) 

BNE  20$ 


GET  NUMBER  OF  SYSTEM  LINES   ;  RJK02 
GET  ADDRESS  OF  SYSTEM  LINE  IN;  RJK02 
GET  AODR  OF  SYSTEM  LINE  TABLE 
DOES  THIS  PROCESS  MATCH  ? 
IF  NE,  NO  -  KEEP  LOOKING 
WILD  CONTROLLER  ? 
IF  NE  YES  -  SKIP  LOOKING  FOR  SLT 
DOES  THIS  CONTROLLER  NUMBER  MATCH  ? 
IF  NE,  NO  -  KEEP  LOOKING 


PRSI  IM  -  PAR-^F  A  I  INF-ID 
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TTTTT 

TTTTT 

SSSSSSSS 
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PRSMOP  -  PARSE  ACTION  ROUTINES 
MORST  -  PARSE  RESTART  TIMER 


255 
25A 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
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000374 

000574  005767  OOOOOOG 

000400  001042 

000402  105767  000001G 

000406  001037 

000410  116767  OOOOOOG  OOOOOOG 

000416  000207 


.SBTTL   .WORST  -  PARSE  RESTART  TIMER 

♦•  .MOfiST  -  PARSE  RESTART  TIMER 

INPUTS       .TPARS  VARIABLES. 

OUTPUT       $RST  =  PARSED  RESTART  TIMER 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.MORST: 


TST 

BNE 

TST8 

BNE 

M0V8 

RETURN 


.PNUMH 

ILLNUM 

.PNUMB+1 

ILLNUM 

.PNUMB,$RST 


HIGH  ORDER  WORD 

REJECT  IF  TOO  HIGH 

TEST  HIGH  BYTE 

BR  IF   ILLEGAL  NUMBER 

MOVE  VALUE  TO  PARSED  AREA 
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CFEUPD  - 
SMOVIT  ■ 

357 
358 
359 
360 
361 
362 
363 
36^ 
365 
366 
367 
368 
369 
370 
371 
37? 
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UPDATE  THE  CETAB  FILE  MACRO  V05.03b  Saturday  29-Jun-85  05:15  Page  12 
MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 

**  -  SCLNUP  -  CALCULATE  THE  LENGTH  OF  THE  OUTPUT  BUFFER 


INPUT: 


$08UF  =  POINTER  TO  END  OF  OUTPUT  BUFFER 
SBUFR  =  ADDRESS  OF  START  OF  OUiPUT  BUFFER 


OUTPUT: 


$LEN  =  LENGTH  OF  THE  OUTPUT  BUFFER 


000552 

000552  01676^  177226  177222 

000560  162767  OOOOOOG  1772U 

000566  000207 


ECLNUP:: 


MOV     $08UF,$LEN 
SUB     #$8UFR,$LEN 
RETURN 


CALCULATE  THE  LENGTH  OF  THE  OUTPUT  BUFFER 


J  2 


CFEUPD   -  UPDATE    THE    CETAB  FILE 
riFMlIP    -    FMHtnF    MACRn    FnilND 


MACRO  V05.03b  Saturday  29-Jun-85  05:15     Page  13 
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Symbol  table 

BVTFLG  000130R 
CHKOPT  0003KR 
$CNVD  =  «»»***  GX 


ABS.  000000    000 
000350    001 
Errors  aetected:  0 


SCNVO  =  »•*«♦*  GX 
$C5TA  =  *»**•*  GX 
SOBUF  =  »»***»  GX 


(RW,I,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 


SPTNMB  0001 32RG 
SPTNUM  OOOUORG 
SPTOPT  00027ARG 


$PTR50  000224RG 
.BUFF  000010RG 
.COMMA  000006RG 


.ERROR  OOOOOORG 
.FLAGS  000002RG 
.TEMP   000004RG 


♦  ♦♦  Assembler-  statistics 


0 

0 

17  Words      (    1   Pages) 

H440  Words      (    55  Pages) 

RSX-11M/PLUS 


Work  tile  reads; 
Work  f i le  writes i 
Size  of  work  f i le; 
Size  of  core  pool : 
Operating     s/stem; 

SYfcFEUSB!v2;[132,134]CFEUSB/CR/-SP=Sy:[l,1]RSXMCM.SML/ML,C130,110]NErLI8/ML,[132,10]CFEUSS 


CFEUSB  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:16  PAGE   1 
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1 
2 

5 
6 
7 
8 
9 
10 
11 
12 
15 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


.TITLE   NOSNA  -  STUB  ACTION  ROUTINES  FOR  N0N-5NA  SYSTEMS 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION, 


MAYNARD,  MASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  STUB  ACTION  ROUTINES 

USED  TO  SATISFY  REFERENCES  IN  SYSTEMS  WITHOUT 
SUPPORT  FOR  SNA  GATEWAY  COMMANDS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-MAR-83 
CREATED 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF   ITS 
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PRMPTS  -  PROMPTS,  STRING  ASSEMB  MACRO  VO5.03b  Saturday  29-Jun-85  17:01  Page  5-5 
Symbol  table 

Work  file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  891A  Words   (  35  Pages) 

Size  of  core  pool:  1A4^0  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

si:BRMPTS^V2![13^?1^4]PRMPTS/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,11O]NETLIB/ML,t135,10]PROMPT 
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PRMPTS     CREATED  BV  MACRO  OH   29-JUN-85  AT  17:01     PAGE  1 


PRMPTO 


CREATED  BY  MACRO  ON  29-JUN-85  AT  17:02 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


X 

Y 

SALPHA 

$ANY 

SBLANK 

SDIGIT 

SDNUMB 

SEOS 

SEXIT 

$FAIL 

SGOFF 

SGPRM 

SLAMDA 

SNUMBR 

$RAD50 

SRONLY 

SSTRNG 

SSUBXP 

$$$FLG 

$$$KEY 


000000  RG 

000000  RG 

000022 

000020 

000006 

000024 

00001 A 

000012 

000000 

177777 

000001 

000001 

000000 

000002 

000016 

000001 

000004 

000010 

177777 

177777 
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CREF   OA.OO 


REFERENCES 

#6-90 

#6-90 

#6-90 

#6-90 

#6-90 

#6-90 

#6-90 

#6-90 

#6-90 

#6-90 

#3-2 

#5-67 

#6-90 

#6-90 

#6-90 

#5-71 

#6-90 

#6-90 

#6-90 

#6-90 


4-1 
6-90 


6-90 


6-90 


6-90 


6-90 


6-90 


PRMPTO 


CREATED  BY  MACRO  ON  29-JUN-85  AT  17:02 
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.RNAD2   -   SECOND   PART  OF    NODE   ADDRESS 


Page  11-1 


287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30^  000612 

305  000612 

306  000616 

307  000620 

308  000624 

309  000630 

310  000634 

311  000640 

312  000642 

313  000646 
314 

315 
316 
317 

318  000650 

319  000650 

320  000654 

321  000656 

322  000662 

323  000666 

324  000670 

325  000672 

326  000700 

327  000706 

328  000710 

329  000716 

330  000720 

331  000726 

332  000730 

333  000736 

334  000740 

335  000746 

336  000750 

337  000756 

338  000762 
539 


005767 
001054 
016700 
020027 
016701 
042701 
050100 
010067 
000445 


016701 
001406 
016700 
042700 
020001 
001003 
016767 
026767 
001025 
022767 
001404 
022767 
001004 
012767 
000411 
012767 
000403 
012767 
062716 
000207 


.S8TTL 
.SBTTL 


.RNADD  -  STORE  NODE  ADDRESS 
.RNAD3  -  CHECK  PARSED  NODE  ADDRESS 


*♦*  -  .RNADD  -  STORE  NODE  ADDRESS 

»**  -  .RNAD3  -  CHECK  PARSED  NODE  ADDRESS 


INPUT: 


.PNUMB  =  NODE  ADDRESS 

.PNUMH  =  NODE  ADDRESS  (HIGH  ORDER) 


OUTPUT: 


SNODAD   =  THE   NODE   ADDRESS 

THE    TRANSITION    IS   ACCEPTED/REJECTED. 


OOOOOOG 

OOOOOOG 
001777 
OOOOOOG 
001777 

OOOOOOG 


OOOOOOG 

OOOOOOG 
001777 


.RNADD: 


.ENA8L  LSB 


TST 
BNE 
MOV 
CMP 
MOV 
BIC 
BIS 
MOV 
BR 


.PNUMH 

10$ 

. PNUMB, RO 

R0,#1023. 

SNTADD.Rl 

#1777, R1 

R1,R0 

RO. SNODAD 

30l 


IS  IT  A  WORD  VALUE  ? 

IF  NE,  NO  ..  ERROR 

PICK  UP  PARSED  VALUE 

IS  NODE  ADDRESS  TOO  HIGH  ? 

PICK  UP  EXEC  ADDRESS 

ISOLATE  AREA 

FOLD  EXEC  AREA  INTO  PARSED  VALUE 

STORE  THE  NODE  ADDRESS 


PERFORM  CHECKS  ON  PARSED  NODE  ADDRESS. 
ADDRESSES  ONLY. 


THIS  IS  FOR  REMOTE  NODE 


.RNAD3: 


OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000105- 

OOOOOOG 
000002 


OOOOOOG  50$: 
OOOOOOG  1$: 

OOOOOOG  2$: 

OOOOOOG 

OOOOOOG  3$: 

OOOOOOG  5$: 

OOOOOOG  10$ 
20$ 
30$ 


MOV 

BED 

MOV 

BIC 

CMP 

BNE 

MOV 

CMP 

BNE 

CMP 

BEQ 

CMP 

BNE 

MOV 

BR 

MOV 

BR 

MOV 

ADD 

RETURN 

.DSABL 


$N0DAD,R1 

50$ 

$NTADD,RO 

#1777, RO 

R0,R1 

1$ 

$NTADD,$NODAD 

$NODAD,$NTADD 

30$ 

#CM.LIS,$CMAND 

3$ 

#CM.DEF,$CMAND 

5$ 

#CO.EXE,$COMP 

30$ 

#ERREXE,$ERROR 

20$ 

#ERRILN,$ERROR 

#2,(SP) 

LS8 


CHECK  PARSED  NODE  ADDRESS 

IF  EQ,  ITS  THE  EXEC  ADDRESS 

ELSE  PICK  UP  EXEC  ADDRESS 

ISOLATE  AREA 

IS  PARSED  ADDRESS  LOCAL  AREA,  NODE  ZERO 

IF  NE,  NO 

ELSE  DEFAULT  TO  EXEC 

IS  THIS  THE  EXECUTOR  NODE  ADDRESS  ? 

IF  NE,  NO  ..  OKAY 

IS  THIS  THE  LIST  COMMAND  ? 

IF  EQ,  YES  ..  OKAY 

IS  THIS  THE  DEFINE  COMMAND? 

IF  NE,  NO  ..  ERROR 

ELSE,  SET  TO  EXECUTOR  NODE 

EXECUTOR  NODE  NOT  ALLOWED 
AND  REJECT 
INVALID  NUMBER 
REJECT  THE  TRANSITION 
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PRSflR  -  PARSE  A  CIRCUII-ID 


1 
2 
5 

5 
6 
7 
8 

9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
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PARSE  A  CIRCUIT-ID 

PARSE  LINE/CIRCUIT  (RSX11S) 


.IF  NDF  R$$ns 

.TITLE  PRSCIR 
.IFF 

.TITLE  PRSCIR 
.ENDC 

.IDENT  /V05.00/ 

.ENA8L  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983  1984,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 
NETWORK  MANAGEMENT 


PARSE  A  CIRCUIT-ID  STRING 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  08-JUL-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-MicTo/RSX   VI. 0 


PRSCIR  -  PARSE  A  CIRCUIT-ID 


J     8 

MACRO  V05.03b  Saturday  29-Jun-85  13:20     Page  5 


PRSCIR  - 
CHKMUX  - 

461 
A62 
465 
46A 
A65 
A66 
A67 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
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CHECK  IF  A  DEVICE  IS  A  MULTIPLEXOR 


.SBTTL  CHKMUX  -  CHECK  IF  A  DEVICE  IS  A  MULTIPLEXOR 

*»-CHKMUX-CHECK  IF  A  DEVICE  IS  A  MULTIPLEXOR 

THIS  ROUTINE  IS  CALLED  TO  DETERMINE  HOW  TO  PARSE  A  LINE-ID. 

INPUTS: 

R5  -  ADDRESS  OF  CONTEXT  AREA  WITN 
L$DDM(R5)  =  DDM  NAME  IN  RAD50 

OUTPUTS: 

IF  LPSMUX  SET  IN  L$PFG(R5),  DEVICE  IS  MUX 


001004 
001004 
001010 
001014 
001016 
001024 
001026 
001034 


103407 
132764 
001403 
152765 


000040  000010 
000004  000041 


CHKMUX: 


10$: 


SWSTK$ 

CALL 

BCS 

BITS 

BEQ 

BISB 

RETURN 


10$ 

PDVAD 

10$ 

#2F.MUX,Z.FLG(R4) 

10$ 

*LP$MUX,L$PFG(R5) 


ENTER  SYSTEM  STATE 
FIND  IT'S  PDV  ADDRESS 
IF  CS,  ILLEGAL  DDM 
IS  IT  A  MUX  DEVICE  ? 
IF  EQ,  NO  -  RETURN 
REMEMBER  MUX  DEVICE 


PRSCIR  -  PARSE  A  CIRCUIT-ID 
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PRSCIR     CREATED  BV  MACRO  ON  P9-JUN-85  AT  13:20 
SYMBOL  CROSS  REFERENCE 
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PAGE  4 

CREf   04.00 


SYMBOL  VALUE 


REFERENCES 


SF.UNL 

=  000040 

#5-65 

SLTMA 

=  ******   GX 

14-540 

SLTNM 

=  ******  GX 

14-539 

SPACE 

=  000040 

#5-72 

STOCIR 

000402  RG 

8-151 

S$$BAS 

-  ****** 

8-137 

S.COST 

000001 

#5-65 

S.FLG 

000000 

#5-65 

S.LEN 

000004 

#5-65 

G.NMST 

000002 

#5-65 

S.OWNR 

000003 

#5-65 

XPREF 

000000  R 

#7-84 

XPREFL 

=  000004 

#7-85 

X$$MCB 

-   ****** 

5-64 

ZF.COU 

=  001000 

#5-64 

ZF.DDM 

=  000001 

#5-64 

ZF.OIA 

=  004000 

#5-64 

ZF.DLC 

=  000002 

#5-64 

ZF.DVP 

=  100000 

#5-64 

ZF.INI 

=  040000 

#5-64 

ZF.KMX 

=  000020 

#5-64 

ZF.LLC 

=  000004 

#5-64 

ZF.LMC 

=  000100 

#5-64 

ZF.MAN 

=  020000 

#5-64 

ZF.MFL 

=  000010 

#5-64 

ZF.MTM 

=  000400 

#5-64 

ZF.MUX 

=  000040 

#5-64 

ZF.PSE 

=  002000 

#5-64 

ZF.SLI 

=  010000 

#5-64 

ZF.TIM 

=  000200 

#5-64 

ZF.X3P 

=  000000 

#5-64 

Z5.ASN 

=  100000 

#5-64 

ZS.BSY 

=  140000 

#5-64 

Z.AVL 

000014 

#5-64 

Z.DAT 

000016 

#5-64 

Z.DSP 

000000 

#5-64 

Z.FLG 

000010 

#5-64 

Z.LEN 

=  000016 

#5-64 

Z.LLN 

000006 

#5-64 

Z.MAP 

000020 

#5-64 

Z.NAM 

000004 

#5-64 

Z.PCB 

000012 

#5-64 

Z.SCH 

000007 

#5-64 

SFNPVC 

=  ******   GX 

8-152 

$HEADR 

=  .*.***  GX 

14-606 

$MUL 

=  ******  GX 

11-381 

SSAVAL 

-   ,»♦*.*  GX 

8-131 

14-598 
9-274 
#9-268 
14-507 


7-85 

10-316 

5-64 

15-634 


10-319 
10-318 


13-479 


5-64 
13-479 


14-532 


12-442 


15-634 


14-564 
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PRSEXE 
.EXSUB 

290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
505 


-  PARSE  EXECUTOR  ACTION  MACRO  V05.03b  Saturday  29-Jun-85 
-  PARSE  EXECUTOR  SUBADDRESS 


w^ 


8  Page  12 


.SBTTL 
.S8TTL 


.EXSUB  -  PARSE  EXECUTOR  SUBADDRESS 
.EXS82  -  PARSE  EXECUTOR  SUBADDRESS  RANGE 


**  .EXSUB  -  PARSE  EXECUTOR  SUBADDRESS 

»*  .EXSB2  -  PARSE  EXECUTOR  SUBADDRESS  RANGE 

INPUTS:       .TPARS  CONVENTIONS. 

OUTPUTS:      SESUB  =  PARSED  SUBADDRESS 

$ESUB+2  =  SECOND  PART  OF  SUBADDRESS  RANGE  OR  -1  IF  NONE. 

THE  TRANSITION  IS  ACCEPTED  OR  REJECTED. 

.ENA8L  LSB 


000544 

306  000544 

307  000550 
308 

309  000552 

310  000552 

311  000556 

312  000564 

313  000570 

314  000572 

315  000600 

316  000602 

317  000606 
318 

3i9  000610 

320  000616 

321 

322  000622 

323 

324 


012700 
000402 


012700 
012767 
005767 
001007 
026727 
101003 
016710 
000405 

012767 
062716 

000207 


OOOOOOG 


000002G 

177777 

OOOOOOG 


.EXSUB:: 

.EXSB2: 
000002G  10$: 


MOV 
BR 


OOOOOOG  023417 
OOOOOOG 


OOOOOOG 
000002 


OOOOOOG  20$: 
30$: 


MOV 
MOV 
TST 
BNE 
CMP 
BHI 
MOV 
BR 

MOV 
ADD 

RETURN 

.DSABL 


#$ESUB,RO 
10$ 


#$ESUB+2,R0 

*-1,$ESUB+2 

.PNUMH 

20$ 

.PNUMB,#9999. 

20$ 

.PNUMB,(RO) 

30$ 

#EfiRILN,$ERRCR 
#2,(SP) 


LSB 


POINT  TO  PARSED  DATA  AREA 
JOIN  COMMON  CODE 


POINi  TO  PARSED  DATA  AREA 

NO  HIGH  END  YET 

32  BIT  VALUE 

IF  NE,  YES  -  ERROR 

DO  RANGE  CHECK 

IF  HI,  OUT  OF  RANGE 

STUFF  IT  IN  PARSED  DATA  AREA 

SUCCESS  I 

ILLEGAL  NUMBER 
REJECT  TRANSITION 


J  n 


PRSEXE  -  PARSE  EXECUTOR  ACTION  MACRO  VO5.03b  Saturday  29-Jun-85  05:18  Page  13 


•  •F1LE«MD««PRSL1N 


I  12 


pppppppp 

RRRRRRRR 

SSSSSSSS 

IIIIII 

NN      NN 

pppppppp 

RRRRRRRR 

SSSSSSSS 

iimi 

NN      NN 

pp    pp 

RR      RR 

SS 

NN      NN 

pp    pp 

RR      RR 

SS 

NN     NN 

pp    pp 

RR      RR 

SS 

NNNN    NN 

pp    pp 

RR      RR 

SS 

NNNN    NN 

pppppppp 

RRRRRRRR 

SSSSSS 

NN  NN  NN 

pppppppp 

RRRRRRRR 

SSSSSS 

NN  NN  NN 

pp 

RR  RR 

SS 

NN    NNNN 

pp 

RR  RR 

SS 

NN    NNNN 

pp 

RR    RR 

SS 

I 

NN      NN 

pp 

RR    RR 

SS 

NN      NN 

pp 

RR      RR 

SSSSSSSS 

LLLLLLLLLL 

n,  u 

NN      NN 

pp 

RR      RR 

SSSSSSSS 

LLLLLLLLLL 

IIIIII 

NN      NN 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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PRSLIN  -  PARSE  A  LINE-ID       MACRO  V05.0:h  Saturday  29-Jun-85 
CHKDEV  -  CHECK  VALIDIIY  OF  DEVICE  SPECIFIER 


!  13 

13:23 


Page  11- 


375  000602 

376  000610 

377  000612 

378  000620 

379  000622 

380  00062^; 

381  000626 
382 

383  000650 
38i  000636 
385 

386  0006^0 

387  0006'!.6 

388  000660 


132765 
001023 
126165 
00U17 
005300 
001352 
000i;04 

012766 
000405 


012766  177770  000002 


000100  000041 
000013  000003 


177767  000002  80$: 


BITS  #LP$WUN,L$PFG(R5) 

BNE  100$ 

CMP8  L.UNr(R1),L$UNT(R5) 

BEQ  100$ 

20$:    DEC  RO 

BNE  10$ 

BR  90$ 

MOV  #ME.IID,2(SP) 

BR  95$ 

90$:    MOV  *ME.UC0,2(SP) 

95$:    RETC  RO 
100$:   RETURN 


WILD  UNIT  ? 

IF  NE.  VES  -  GO  ON  TO  MUX  TEST 
DOES  THIS  UNIT  NUMBER  MATCH  ? 
IF  EQ,  FOUND  THE  CORRECT  SLN 
LOOK  THROUGH  ALL  SYSTEM  LINES 

if'HERE,  LINE  NOT  FOUND 

SET  USER  RO  TO  INVALID  LlN-ID 


SET  USER  RO  TO  UNRECOGNIZED  LINE 
SET/CLEAR  USER  CARRY 
AND  RETURN  TO  USER  MODE 
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PRSLOG  -  PARSE  LOGGING  ACUON  R  MACRO  V05.05b  Saturday  29-Jun-85 
Table  or  contents 


I  1* 

05:19 


5-  66  CKEVE  -  COMMON  ROUTINE  TO  CHECK  AND  PROCESS  AN  EVENT  NUMBER 

6-  1U  CKEVEB  -  CHECK  EVENT  RANGE  BEGINNING 

7-  U8  CKEVEf  -  CHECK  EVENT  CLASS 

8-  191  CKEVEN  -  CHECK  EVENT  NUMBER 

9-  220  CKEVER  -  CHECK  EVENT  RANGE 
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PRSMOD  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 
Table  ot  contents 


I  15 

05:19 


u- 

55 

.MOCUG 

s- 

83 

.MOCAT 

6- 

101 

.MOCLT 

!- 

119 

.MODFD 

«- 

1A0 

.MOMXD 

4- 

162 

.MODfW 

10- 

181 

.MOMCL 

11- 

199 

.MOMRE 

V- 

217 

.MORET 

n- 

235 

.MOMXR 

u- 

253 

.WORST 

1S- 

271 

.M0MC1 

1ft- 

291 

.MOMCl 

y/- 

318 

.MONUM 

18- 

337 

.MOINC 

19- 

352 

.MOCNN 

^0- 

381 

.MOCRN 

?y' 

AOO 

.M0D5T 

7f- 

428 

.MOCLM 

r?- 

A29 

.MOCLV 

?v 

472 

.MOPRl 

■?^- 

490 

.MODSl 

7^- 

491 

.M0DS2 

?s- 

522 

.MOOBN 

■?i^- 

539 

.MOOBJ 

2!- 

562 

.MONNA 

CONVERT  USER  GROUP  TO  RAD50 

PARSE  CALL  TIMER 

PARSE  CLEAR  TIMER 

PARSE  DEFAULT  DATA 

PARSE  MAXIMUM  DATA 

PARSE  DEFAULT  WINDOW 

PARSE  MAXIMUM  CLEARS 

PARSE  MAXIMUM  RESETS 

PARSE  RESET  TIMER 

PARSE  MAXIMUM  RESTARTS 

PARSE  RESTART  TIMER 

PARSE  MAXIMUM  CIRCUITS  (MODULE  CHARACTERISTICS) 

PARSE  MAXIMUM  CIRCUITS  (DTE) 

PARSE  GROUP  NUMBER 

-  INITIALIZE  CHANNEL  LIST 

-  PARSE  CHANNEL  NUMBER 

-  MARK  CHANNEL  RANGE 
PARSE  DESTINATION  ID 

-  PARSE  CALL  MASK 

-  PARSE  CALL  VALUE 

-  PARSE  LIST  INSERTION  PRIORITY 

-  PARSE  DESTINATION  SU8ADDRESS  RANGE 

-  PARSE  DESTINATION  SUBADDRESS  RANGE 

-  PARSE  OBJECT  NUMBER 

-  PARSE  OBJECT  STRING 

-  PARSE  NETWORK  NAME 


PRSMOD 
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PRSMOD  - 
MOMCl  - 

27^ 

275 
27A 
275 
276 
277 
278 
279 
280 
281 
282 
283 
28^ 
285 
286 
287 
288 
289 
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PARSE  MAXIMUM  CIRCUITS  (MODULE  CHARACTERISTICS) 

.SBTTL   .MOMCl  -  PARSE  MAXIMUM  CIRCUITS  (MODULE  CHARACTERISTICS) 

*•♦  .MOMCl  -  PARSE  MAXIMUM  CIRCUITS  (MODULE  CHARACTERISTICS) 

INPUTS       .TPARS  VARIABLES. 

OUTPUT       $MCI  =  PARSED  MAXIMUM  CIRCUITS 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


000A20 

000A20  005767  OJOOOOG 

000A2A  001050 

000A26  026727  OOOOOOG  000577 

000454  10102A 

000436  016757  OOOOOOG  OOOOOOG 

0004A4  00U20 

000446  000207 


.MOMCl: 


TST 

.PNUMH 

BNE 

ILLNUM 

CMP 

.PNUMB,#255 

BHI 

ILLNUM 

MOV 

.PNUMB,$MCI 

BE 'J 

ILLNUM 

R'.TURN 

CHECK  FOR  HIGH  ORDER  PART 
IF  NE,  OUT  OF  RANGE 
CHECK  HIGH  BOUND 
IF  HI,  OUT  OF  RANGE 
SAVE  NUMBER 
IF  EQ,  TOO  LOW 
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Table  of  contents 

4-  54    MACRO  DEFINITIONS 

6-  191    ICFUPD  -  UPDATE  THE  CETAB  FILE 

7-  256    3KIPIT  -  DON'T  WRITE  OUT  THE  LINE  (ZERO  $LEN) 

8-  272    ShOVIT  -  MOVE  INPUT  LINE  INTO  OUTPUT  FILE  WITHOUT  EDITS 
13-  374    CLENUP  -  ENDSDF  MACRO  FOUND 
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CLENUP  -  ENDSDF  MACRO  FOUND 


574 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 

387  000570 

388  000572 

389  000576 

390  000600 

391  000604 

392  000610 

393  000612 

394  000616 

395  000622 

396  000626 

397  000632 

398  000644 

399  000650 

400  000654 

401  000662 

402  000664 

403  000670 

404  000672 

405  000674 

406  000676 

407  000700 

408  000702 

409  000704 

410  000714 

411  000716 

412  000722 

413  000726 

414  000732 

415  000736 

416  000742 
417 

418 


.SBTTL  CLENUP  -  ENDSDF  MACRO  FOUND 
»•*  -  CLENUP  -  CLEAN  UP  AFTER  ENDSDF  MACRO  FOUND 
INPUT: 


R3-R5  =  TPARS  REGISTERS 


OUTPUT: 


010446 
"^67 
.  .-,07 
004767 
005767 
001002 
004767 
004767 
004767 
004767 

012700 
016701 

103402 
016701 
000301 
110120 
105020 
000301 
110120 
105020 

012600 
012701 
012702 
004  767 
162700 
010067 
000207 

000001 


OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000012' 
177170 


177276 


000052' 
000006' 
OOOOOOG 
OOOOOOG 
177040 


CONTROL  DISPATCHED  TO  ALL  ROUTINES  WHICH  CAN  ALLOCATE/DE-ALLOCATE 
TEMPLATES. 


SAVE  POINTER  TO  RESTOF  LINE 

PSI  IN  THIS  SYSTEM  ? 

IF  EQ,  NO 

UPDATE  THE  PSI  TEMPLATES 

HAVE  THE  SVCS  BEEN  UPDATED  ? 

IF  NE,  YES  -  ALREADY  DONE 

UPDATE  THE  SVC  TEMPLATES 

UPDATE  THE  OBJECT  TEMPLATES 

UPDATE  THE  EVENT  TEMPLATE 

UPDATE  THE  REMOTE  TE:1PLATES 

GET  TASK  PARAMETERS 
RO  ;  POINT  TO  UK  AREA 
;  ASSUME  WE  CAN  ONLY  GET  CURRENT  UIC 

TRY  TO  GET  LOGIN  UIC 

WELL,  AT  LEAST  WE  TRIED 

;  ELSE  USE  THE  REAL  LOGIN  UIC 

HAKE  HI  BYTE  LOW,  LOW  BYTE  HIGH 

PUT  (LOGIN)  GROUP  AFTER  TASK  ID 

KEEP  HI  BYTE  CLEAN 

GET  USER  BYTE  LOW 

DITTO  FOR  USER 

GET  TIME  AFTER  UIC 

POINT  PAST  ENDSDF  IN  BUFFER 

POINT  TO  CONTROL  STRING 

;  POINT  TO  TASK  ID 

FORMAT  IT 

CALCULATE  NEW  LENGTH 

SAVE  IT 


CLENUP 

MOV 

R4,-(SP) 

TST 

SPSIPT 

BEQ 

10$ 

CALL 

SUPPSN 

TST 

$SVUPD 

BNE 

10$ 

CALL 

SUPSVC         ; 

10$: 

CALL 

$UPOBJ 

CALL 

SUPEVT 

CALL 

$UPREM 

GTSKSS 

#ARGLST 

MOV 

#ARGLST+G.TSTN+4, 

MOV 

ARGLST+G.TSDU,R1 

DIRS 

ffGlNDPB 

BCS 

11$ 

MOV 

GINBUFtGSLGUICR' 

11$: 

SWAB 

R1 

MOVB 

R1.(R0)+ 

CLRB 

(R0)  + 

SWAB 

R1 

MOVB 

R1,(R0)*- 

CLRB 

(R01  + 

GTIMSS 

RO 

MOV 

(SP)+,RO 

MOV 

#FMTSTR,R1      , 

MOV 

#ARGLST+G.TSTN,Rt 

CALL 

SEDMSG 

SUB 

#S8UFI,R0 

MOV 

RO,$LEN 

RETURN 
.END 
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CfEUSB  CREATED  BY     MACRO     ON  29-JUN-85  AT   05:16 

SYMBOL    CROSS  REFERENCE 


SYMBOL      VALUE 


BYTFLG 

CHKOPT 

SCNVD 

tCNVO 

$C5TA 

$OBUF 

SPTNMB 

SPTNUM 

SPTOPT 

$PTR50 

.BUFF 

.COMMA 

.ERROR 

.FLAGS 

.TEMP 


000130 

0003U 

=   ****** 

=  ****** 


R 

R 
GX 
GX 
GX 
GX 

RG 


00013, 
OOOKO  RG 
000274  RG 
00022A  RG 
000010  RG 
000006  RG 
000000  RG 
000002  RG 
OOOOOA   RG 


REFERENCES 

K-7A 

5-100 

5-101 

5-104 

5-U2 

5-112 
#5-94 
#5-98 
#6-162 
#5-133 
#4-70 
#4-69 
#4-66 
#4-67 
#4-68 


•5-95 
5-134 


•5-114 


•6-166 

6-163 
5-105 


•  5-99 
#6-185 


5-140 

•6-183 
5-139 
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CREF        04.00 
5-106 

•5-145 


6-186 


•6-187 


•6-184 


•6-189 


CFEUSB 
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A9 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000  062716  000002 

OOOOOA 
OOOOO-i 
OOOOO'i 
000004  000207 

000001 


REJECT  TPARS  TRANSITION  /  PROVIDE  NULL  ROUTINE 

INPUTS:       NONE 

OUTPUTS:      ALL  REGISTERS  PRESERVED 

THIS  ROUTINE  IS  USED  TO  REJECT  ANY  fPARS  TRANSITIONS  THAT 
SHOULD  NOT  BE  TAKEN  IN  SYSTEMS  WITHOUT  SNA  GATEWAY  SUPPORT 

THOSE  ENTRY  POINTS  WHICH  SIMPLY  LABEL  THE  RETURN  INSTRUCTION 
MERELY  SATISFY  REFERENCES  TO  CALLS  WHICH  WILL  NEVER  BE  TAKEN 


SoNLIS 
SSNDEF 
SSNPUR 
STMSNA 
STMSAC 
STMSAD 
STMSPU 
SUPSNA 
SUPSAC 
SUPSAD 
SUPSPU 


SSESNA 
SSHSNA 
SPUSNA 


ADD 


RETURN 


*2,(SP) 


"LIST  MODULE  SNA-PROTOCOL" 

"DEFINE  MODULE  SNA-PROTOCOL' 

"PURGE  MODULE  SNA-PROTOCOL" 


"SNASDF 

'  INPUT 

"SACSDF 

'  INPUT 

"SADSDF 

'  INPUT 

"SPU$DF 

'  INPUT 

"SNASDF 

'  UPDATE 

"SACSDF 

'  UPDATE 

"SADSDF 

'  UPDATE 

"SPUSDF 

'  UPDATE 

REJECT 

TPARS  TRANSITION 

f-'OCESS 

"DEFINE"  COMMAND 

"LIST" 

"PURGE" 

RETURN 

.END 
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PRMPTS 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

X 

000000  R6 

#5-90 

y 

000000  RG 

#5-90 

SALPHA 

=  000022 

#5-90 

SANY 

=  000020 

#5-90 

SBLANK 

=  000006 

#5-90 

SDIGIT 

=  00002A 

#5-90 

SDNUMB 

=  OOOOU 

#5-90 

$E0S 

=  000012 

#5-90 

$EX!T 

=  000000 

#5-90 

SFAIL 

=  177777 

#5-90 

$GOFF 

=   ♦♦♦**♦ 

3-1 

$GPRM 

=  000001 

#A-67 

SLAMDA 

=  000000 

#5-90 

SNUMBR 

=  000002 

#5-90 

$RAD50 

=  000016 

#5-90 

SRGNLY 

=  000001 

#^-71 

SSTRNG 

=  OOOOOA 

#5-90 

SSUBXP 

=  000010 

#5-90 

SSPRMP 

000000  RG 

#5-90 

$$$FLG 

=  177777 

#5-90 

$$$<EY 

=  177777 

#5-90 

5-90 
5-90 


5-90 


5-90 


5-90 


5-90 


PRMPTS 
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CREF   04.00 


MACRO  NAME 

REFERENCE 

S 

DBGTPS 

#6-90 

ISTATS 

#5-63 

6-90 

MTRANS 
PRMPT$ 

#6-90 
#5-63 

6-94 

#6-96 

#6-97 

#6-98 

#6-99 

#6-100 

#6-101 

#6-102 

#6-103 

#6-104 

#6-105 

#6-106 

#6-107 

#6-108 

#6-109 

#6-110 

#6-111 

#6-112 

#6-113 

#6-1 H 

#6-115 

#6-116 

#6-117 

#6-118 

#6-119 

#6-120 

#6-121 

#6-122 

#6-123 

#6-124 

#6-125 

#6-126 

#6-127 

#6-128 

#6-129 

#6-130 

#6-131 

#6-132 

#6-133 

#6-134 

#6-135 

#6-136 

#6-137 

#6-138 

#6-139 

#6-140 

#6-141 

#6-142 

#6-143 

#6-144 

#6-145 

#6-146 

#6-147 

#6-148 

#6-149 

#6-150 

#6-151 

#6-152 

#6-153 

#6-154 

#0-155 

#6-156 

#6-157 

#6-158 

#6-159 

#6-160 

#6-161 

#6-162 

#6-163 

#6-164 

#6-165 

#6-166 

#6-167 

#6-168 

#6-169 

#6-170 

*6-171 

#6-172 

#6-173 

#6-174 

#6-175 

#6-176 

#6-177 

#6-178 

#6-179 

#6-180 

#6-181 

#6-182 

#6-183 

#6-184 

#6-185 

#6-186 

#6-187 

#6-188 

#6-189 

#6-190 

#6-191 

#6-192 

#6-193 

#6-194 

#6-195 

#6-196 

#6-197 

#6-198 

#6-199 

#6-200 

#6-201 

#6-202 

#6-203 

#6-204 

#6-205 

#6-206 

#6-207 

#6-208 

#6-209 

#6-210 

#6-211 

#6-212 

#6-213 

#6-214 

#6-215 

#6-216 

#6-217 

#6-218 

#6-219 

#6-220 

#6-221 

#6-22? 

#6-223 

#6-224 

#6-225 

#6-226 

#6-227 

#6-228 

#6-229 

#6-230 

#6-231 

#6-232 

#6-233 

#6-234 

#6-235 

#6-236 

#6-237 

#6-238 

#6-239 

#6-240 

#6-241 

#6-242 

#6-243 

#6-244 

#6-245 

#6-246 

#6-247 

#6-248 

#6-249 

#6-250 

#6-251 

#6-252 

#6-253 

#6-254 

#6-255 

#6-256 

#6-257 

#6-258 

#6-259 

#6-260 

#6-261 

#6-262 

#6-263 

#6-264 

#6-265 

#6-266 

#6-267 

#6-268 

#6-269 

#6-270 

*6-271 

#6-272 

#6-273 

#6-274 

#6-275 

#6-276 

#6-277 

#6-278 

#6-279 

#6-280 

#6-281 

#6-282 

#6-283 

#6-284 

#6-285 

#6-286 

#6-287 

#6-288 

#6-289 

#6-290 

#6-291 

#6-292 

#6-293 

#6-294 

,.FILE«'1D»''PRSACT 
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341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 

354  000764 

355  000764 

356  000770 

357  000772 

358  000774 

359  001002 

360  001004 

361  001012 

362  001014 

363  001022 

364  001024 

365  001024 

366  001032 

367  001036 
368 

369 


.SBTTL   .EXADD  -  STORE  EXECUTOR  NODE  ADDRESS 
***  -  .EXADD  -  STORE  EXECUTOR  NODE  ADDRESS 
INPUT: 


SNODAD  =PARSED  NODE  ADDRESS  FROM  .RNADD 


OUTPUT: 


SNODAD  =  THE  NODE  ADDRESS 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


012700 
011000 
001421 
122760 
001372 
026760 
001366 
012767 
000405 

012767 
062716 
000207 


.EXADD: 
OOOOOOG 

5$: 

OOOOOOG  OOOOOOG 

OOOOOOG  000010 

000041'  OOOOOOG 

ILLNUM: 
OOOOOOG  OOOOOOG  10$: 
000002        20$ 

30$ 


.ENABL  LSe 

'mov  #$TMLST,R0 

MOV  (R0),RO 

BEQ  30$  , 

CMP8  #CS.REM,C.STS(RO) 

BNE  5$ 

CMP  SNODAD, C.ADD(RO) 

BNE  5S 

MOV  #ERRADD,$ERROR   ; 

BR  20$ 

MOV  #ERRILN,SERROR  ; 

ADD  #2,(SP) 

RETURN 

.DSA8L  LSB 


GET  START  OF  TEMPLATES 
GET  NEXT  TEMPLATE 
IF  EQ,  END  OF  TEMPLATES 
;  ELSE,  IS  THIS  A  REMOTE  TEMPLATE 
IF  NE,  NO  ..  KEEP  LOOKING 
;  DO  ADDRESSES  MATCH  ? 
IF  NE,  NO 

ELSE,  ADDRESS  ALREADY  IN  USE 
AND  REJECT 

INVALID  NUMBER 
REJECT  THE  TRANSITION 
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PRSCIR  -  PARSE  A  CIRCUIT-ID 
MACRO  LIBRARY  CALLS  AND  LOCAL 

57 
58 
59 
60 
61 
62 
65 
6'!,  000000 

65  000000 

66  000000 

67  nooOOO 
08  UOOOOO 
69 
70 
71 

72        000040 
73 
Ik   000000 
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000004 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 


000020 


.SBTTL  MACRO  LIBRARY  CALLS  AND  LOCAL  DATA 

MACRO  LIBRARY  CALLS 

.MCALL  PDVDf$,SLTOF$,MANDF$,RETC,PHBDF$,PVCDF$,CIRCX$ 
.MCALL   SAVRG.RESRG 

PDVDFS  ;  DEFINE  PDV  OFFSETS 

SLTDFS  ;  DEFINE  SLT  OFFSETS 

HANDFS  ;  NICE  PROTOCOL  SYMBOLS 

PHBDFS  ;  PSI  home  block  offsets 

PVCDFS  ;  DEFINE  PVC  NAME  BLOCK  OFFSETS 

LOCAL  SYMBOL  DEFINITIONS 

SPACE  =  40 

CIRCXI  LIST 

CONTEXT  AREA  OFFSET  DEFINITIONS 

.ASECT 

.  =  0 

LSNLEN  =  16. 


ASCII  SPACE 


MAXIMUM  NAME  LENGTH 


The  offsets  L$NAM  to  L$PDV  inclusive  iiust  appear  in  the  same  order 
as  in  the  ClfiCXS  and  LOCCXS  macros. 


LSNAM 
L$DDM 
LSCTL 
L$UNT 
LSPVC 

LSSCN 

L$TR8 

LSPFG 

L$SLT 

LSNXT 

L$SNM 

L$TPT 

L$TNM 

LSCTB 

L$CHN 

LSPDV 

L$MSG 

L$8UF 

LSOPT 

L$TYP 

LSFLG 

LSSLEN 

L$PR0: 

LIMTYP 

LSTSZ 

L$LTM 

LSFLX 

LSSCR 


.BLKW  1 
.BLKB  1 
.BLKB  1 
.BLKW  1 
.  =  0+L$NLEN 
.BLKB   LSNLEN 


.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKW 
.BLKB 


.BLKB   1 


.BLKW 
.BLKW 


;  DEVICE  NAME 

;  CONTROLLER  NUMBER 

;  UNIT  NUMBER 

;  3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSI) 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channfl  number  /  X.25  port  number  and 
. . .  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  WORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 
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CH<DEV  -  CHECK  VALIDITY  OF  DEVICE  SPECIFIER 


A84 
485 
486 
487 
488 
489 
490 
491 
492 
495 
494 
495 
496 
497 
498 
499 
500 
501 

502 
503 
504 
505 
506  001036 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

319 

520 

521 

522 

523  001036 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 


001042 
001046  103521 


001050  022762 
001056  001515 


C01060  017700 
001064  017703 


.SBTFL  CHKDEV  -  CHECK  VALIDITY  OF  DEVICE  SPECIFIER 

'»*-CHKDEV-CHECK  VALIDITY  OF  DEVICE  SPECIFIER 

THIS  ROUTINE  MAKES  SURE  THAT  THE  DEVICE  SPECIFIED  IS  KNOWN  TO  THE  SYSTEM, 
AND  THAT  THE  FIELDS  SPECIFIED  APPLY. 

INPUTS: 

R5  =  ADDRESS  OF  CONTEXT  AREA  WITH 

L$DDM(R5)  =  DDM  NAME  OF  LINE  IN  RAD50 

L$CTL(R5)  =  CONTROLLER  NUMBER 

L$UNT(R5J  =  UNIT  NUMBER 

L$TRB(R5)  =  TRIBUTARY  NUMBER 

L$PFG(R5)  =  PARSE  FLAGS 

OUTPUTS: 

IF  CC,  LINE  IS  FOUND  AND  IS  LEGAL 

ELSE,  UNRECOGNIZED  LINE  OR  ILLEGAL  LINE-ID  (ERROR  CODE  IN  RO) 

NO  REGISTERS  MODIFIED 


CHKDEV: 


5$: 


.IF  DF 

CMP 
BNE 
SEC 

MOV 

BITB 

BNE 

MOV 

BITB 

BEQ 

MOV 

BISB 

.ENDC 

SWSTKS 


S$$8AS  I  R$$RTR 

#»RLC  ,LSDDM(R5) 
5$ 

#ME.IID,RO 

#LP$TRB!LP$UNT,L$PFG(R5) 

100$ 

#ME.UCO,R0 

*LP$WCN,L$PFG(R5) 

100$ 

#"RPAM,L$DDH(R5) 


is  it  a  PAM  line  card  ? 
if  NE,  no 
assume  failure... 
...invalid  id 
trib  or  unit  parsed  ? 
if  NE,  yes  -  error 
assume  unrecognized  component 
wildcard  controller  parsed  ? 
if  EQ,  not  "LC-*" 
else  look  like  "PAM-*-*  ... 
. .internally 


#LP$MUX1LP$UNTILP$WCNILP$WUN,L$PFG(R5) 

;  DF  S$$BAS  I  R$$RTR 

100$  ;;  ENTER  SYSTEM  STATE 


MAKE  SURE  THE  PROCESS  EXISTS,  AND  IS  A  DOM 


CALL 
BCS 


PDVAD 
90$ 


.IF  NDF  R$$11S 


043340  000004 


OOOOOOG 
OOOOOOG 


CMP 
BEQ 


*''RKMX,Z.NAM(R2) 
90$ 


.ENDC   ;  NDF  R$$11S 
MAKE  SURE  THE  LINE  EXISTS 


MOV 
MOV 


aSLTNM,R0 
SSLTMA,R5 


FIND  IT'S  PDV  ADDRESS 

IF  CC,  LINE  NOT  IN  SYSTEM 


IS  THIS  A  KMX? 

BR  IF  YES  -  NOT  A  VALID  CIRCUIT 


GET  NUMBER  OF  SYSTEM  LINES   ;  RJK05 
GET  ADDRESS  OF  SYSTEM  LINE  IN;  RJK05 
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MACRO  CROSS  REfERENCE  CREF       OA.OO 

MACRO  MAME  REFERENCES 


CALL  8-131  8-151  8-152  8-154  8-171  8-179  8-183  8-189  8-200,  ?:^98 

'-^'-^  8-226  8-23i  8-2^3  11-581  12-AA2  13-476  13-477  14-523  14-527  15-629 

CIRCXS  #5-61  5-74 

MANDFS  #5-61  5-66 

PDVDFS  #5-61  5-64 

PHBDFS  #5-61  5-67 

PVCDFS  #5-61  5-68  ,  „ 

RESRG  #5-62  9-283  10-329 

RETURN  *8-252  9-284^  10-330  11-402  12-459  13-482  14-607  15-637  16-680 

SAVRG  #5-62  9-269  10-309 

SLTDFS  #5-61  5-65  „    ,^, 

SOB  8-135  8-159  9-275  9-281  10-322 

SWSTK$  13-476  14-523 
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326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339  00062A 

3A0  000624 

341  000632 

342  000634 

343  000640 

344  000642 
345 

346  000644 

347  000644 

348  000652 

349  000654 

350  000662 

351  000664 
352 

353  000666 

354  000666 

355  000674 

356  000676 

357  000704 
358 

359  000706 

360  000712 

361  000714 

362  000722 

363  000724 

364  000732 
365 

366  000734 

367  000742 
368 

369  000746 

370 

371 

372 


.SBTTL  Parse  Area  Routing  parameters 

♦*  .EAMAX  -  Parse  Maximum  Area 

•«  .EACOS  -  Parse  Area  Maximum  Cost 

*♦  .EAHOP  -  Parse  Area  Maximum  Hops 

Inputs:      TPARS  coni/ent ions. 

Output:      The  transition  is  accepted/rejected. 


016767 
001440 
105767 
001035 
000421 


016767 
001430 
026727 
101024 
000410 


016767 
001417 
026727 
101013 

005767 
001010 
032767 
001011 
012767 
000403 

012767 
062716 

000207 


. EAMAX : 


.EACOS: 


.EAHOP: 


OOOOOOG  OOOOOOG 
000001 G 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG        10$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  15$: 
000002         17$: 

20$: 


.ENA8L  LS3 


MOV 

BED 

TST8 

BNE 

BR 


MOV 
BEQ 
CMP 
BHI 
BR 


MOV 
BEQ 
CMP 
BHI 

TST 
BNE 
BIT 
BNE 
MOV 
BR 

MOV 
ADD 


RETURN 
.DSA8L 


.PNUMB,$EAMAX 

15$ 

.PNUMB+1 

15$ 

10$ 


.PNUMB,$EACOS 

15$ 

.PNUMB,#MAXCST 

15$ 

10$ 


.PNUMB,$EAHOP 
15$ 

.PNUM8,*MAXH0P 
15$ 

.PNUMH 

15$ 

#Nf .LV2,$CNFIG 

20$ 

*ERRPNA,$ERR0R 

17$ 

#ERRILN,$ERR0R 
#2,(SP) 


LS8 


save  max  areas 

don't  allow  zero 

check  for  >  63. 

if  NE,  error 

else  join  common  code 


save  area  max  cost 

if  EQ,  bad  value 

is  the  value  in  range  ? 

if  HI,  error 

else  join  common  code 


save  area  max  hops 
if  EQ,  bad  value 
is  the  value  in  range  ? 
if  HI,  no 

32  bit  value 

if  NE,  yes  -  error 

are  we  configured  as  level  2  router 

if  NE,  yes 

else  parameter  not  applicable 

reject  transition 

error  in  number 

else  reject  transition 
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Table  ot  contents 

MACRO  LIBRARY  CALLS  AND  LOCAL  DATA 

BIT  DEFINITIONS 

PRSLIN  -  PARSE  AN  ASCII  LINE-ID 

CATS  -  CONVERT  ASCII  TO  RAD50 

CDTB  -  CONVERT  DECIMAL  TO  BINARY 

CHKMUX  -  CHECK  IF  A  DEVICE  IS  A  MULTIPLEXOR 

CHKDEV  -  CHECK  VALIDITY  OF  DEVICE  SPECIFIER 

PDVAD  -  GET  THE  PDV  ADDRESS 

CHKWlD  -  CHECK  FOR  WILD  CARD  FIELD 


s- 

S3 

ft- 

M 

t- 

«S<S 

8- 

16.H 

4- 

r'W 

in- 

^ys 

11- 

<1H 

v- 
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13- 
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PDVAD  -  GET  THE  PDV  ADDRESS 


390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 

408  000662 

409  000662 

410  000666 

411  000672 

412  000674 

413  000676 

414  000702 

415  000704 

416  000712 

417  000714 

418  000722 

419  000724 

420  000726 
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.SBTTL  PDVAD  -  GET  THE  PDV  ADDRESS 

**-PDVAD-g:t  T'!E  PDV  ADDRESS 

THIS  ROUTINE  IS  CALLED  TO  RETURN  THE  PDV  INDEX  AND  ADDRESS 
FOR  A  DDM. 

INPUTS: 

R5  -  ADDRESS  OF  CONTEXT  AREA  WITN 
L$DDM(R5)  =  DDM  NAME  IN  RAD50 

OUTPUTS: 

IF  CC,  PROCESS  FOUND  AND  IS  A  DDM 
R2  =  PDV  INDEX 
R4  =  PDV  ADDRESS 
ELSE,  ERROR 


016502  000000 


103415 
010204 
067704 
011404 
032764 
001004 
132^64 
001001 
000261 


PDVAD: 


OOOOOOG 

002000  000010 
000001  000010 


5$: 
10$: 


MOV 

CALL 

BCS 

MOV 

ADD 

MOV 

BIT 

BNE 

BITS 

BNE 

SEC 

RETURN 


L$DDM(R5),R2 

aPDVID 

10$ 

R2,R4 

SPDVTA,R4 

(R4),R4 

#ZF.PSE,Z.FLG(R4) 

5$ 

#ZF.DDM,Z.FLG(R4) 

10$ 


GET  PROCESS  NAME 

FIND  IT'S  PDV  ID 

IF  CC,  LINE  NOT  IN  SYSTEM 

COPY  THE  PDV  INDEX 

GET  THE  PDV  ADDRESS 

POINT  TO  THE  PDV 

IS  THIS  A  PSEUDO-SLT? 

BR  IF  YES  -  NOT  VALID  LINE 

IS  THE  PROCESS  A  DDM  ? 

IF  NE,  YES 

ELSE,  ERROR 


RJK02 
RJK02 


PAR'^F  k    I  IMF-ID 
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1 
2 
3 

5 
6 
7 
8 
9 

10 

11 

•;2 

13 

u 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
50 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  PRSLOG  -  PARSE  LOGGING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  PARSE  COMMANDS  ASSOCIATED  WITH  "DEFINE  LINE"  REQUESTS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  01-JUL-80 

0ECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-IIM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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i   15 

05;19 


1 
2 
3 
A 

5 
6 

7 
8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2^. 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
59 
';0 
41 
A2 
43 
A4 
15 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  PRSMOD  -  PARSE  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPVRIGHT  (C)  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  oY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  PARSE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-0Cr-81 

DECNET-1 IM/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus   V3.0 
DECnet-Micro/RSX  VI. 0 
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291 

.SBTTL 

.MOMCI  -  PARSE  M/ 

UIMUM  CIRCUITS  (DTE) 

292 

+ 

2<'3 

••  .MOMCI  -  PARSE  MAXIMUM  CIRCUITS  (DTE) 

29^ 
295 
296 
297 

INPUTS 

.TPARS  VARIABLES 

OUTPUT 

$MC1  =  PARSED  MAXIMUM  CIRCUITS 

298 
299 

THE  TRANSITION  I. 

ACCEPTED/REJECTED. 

300 

301  000450 

MOMCI: 

302  000450 

005767 

OOOOOOG 

TST 

.  PiNUMH 

HIGH  ORDER  WORD 

305  000454 

001014 

BNE 

ILLNUM 

REJECT  IF  TOO  HIGH 

304  000456 

012700 

000020 

MOV 

#16.,R0 

MUST  BE  POWER  OF  2  (32.-512. 

505  000462 

006500 

0$: 

ASL 

RO 

NEXT  POWER 

306  000464 

020027 

001000 

CMP 

RO,#512. 

CHECK  UPPER  BOUND 

507  000470 

005006 

BGT 

ILLNUM 

IF  GT,  REJECT  TRANSITION 

308  000472 

026700 

OOOOOOG 

CMP 

.PNUM6,R0 

COMPARE  WITH  NEXT  POWER  OF  2 

309  000476 

003571 

BGT 

10$ 

IF  GT,  KEEP  GOING 

510  000500 

01006?' 

OOOOOOG 

MOV 

RO.SMCl 

SAVE  NEAREST  POWER  OF  2 

311  000504 

312 

315  000506 

000207 

RETURN 

0127&7 

OOOOOOG  OOOOOOG 

ILLNUM: 

MOV 

#EfiRILN,$ERROR 

ILLEGAL  NUMBER 

514  000514 

062716 

000002 

REJECT: 

ADD 

*2,(SP) 

REJECT  TRANSITION 

515  000520 

000207 

RETURN 

316 

DDCMnrv 


DADCP:     APTinM    DniiTlMPC:       MflfDn    WO^;    iT^h    <;AtiirHa\ 
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.TITLE   CFEUPD  -  UPDATE  THE  CETA8  FILE  BEFORE  EXITING 
.IDENT  /\/05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTUARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OH  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQCPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  utSCRIPTlON: 

STATE  TABLE  AND  ACTION  ROUTINES  TO  DETERMINE  WHICH  DEFINITION  IT  IS. 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00     14-DEC-79 

DECNE1-11M/S  V3.0 
DECNET-riM-PLUS   VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
0ECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI  ,0 
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CFEUPD 

-  UPDATE  THE  CETAB  FILE 

MACRO  V05.03b  Saturday  I 

Symbol 

table 

ARGLST 

000006R 

G.TIYR= 

000000 

$BLANK= 

CLENUP 

000570R 

G.TSDU= 

000036 

$8UFI  = 

DF 

000326R 

002 

G.TSFW= 

000024 

SBUFR  = 

DOLLAR 

000322R 

002 

G.TSGC= 

000017 

SBYTE  = 

END 

000316R 

002 

G.TSMT= 

000022 

$CBDMG= 

ERRFIL= 

♦♦♦*••  GX 

G.TSNL= 

000020 

$C80MG= 

ERROUT= 

*.**♦•  GX 

G.TSPC= 

000016 

$CFERR= 

ERRSYN= 

******   GX 

G.TSPN= 

000004 

$CFER1= 

FMTSTR 

000052R 

G.TSPR= 

000014 

SCFUPD 

F.NRBD= 

******   GX 

G.TSRN= 

000010 

SCLNUP 

GINBUF 

0001 56R 

G.TSSY= 

000034 

$CNVD 

GINDPB 

0OOH6R 

G.TSTN= 

000000 

$CNV0 

GSBLEN 

000012 

G.TSTS= 

000032 

$D1GIT= 

GSCRUl 

000004 

G.TSVA= 

000026 

$DNUMB= 

GSLBUI 

000002 

G.TSVL= 

000030 

$EDMSG= 

GtLGUI 

000010 

RX$IAS= 

000003 

$E0S  = 

GSPRUl 

000006 

RX$11D= 

000000 

SERROR 

GSSYUI 

000000 

RX$11H= 

000001 

SEXIT  = 

G.T1CP= 

000016 

RX$11S= 

000002 

SFAIL  = 

G.TICT= 

OOOOU 

SEMI   = 

000073 

$HIVBN= 

G.TIDA= 

000004 

SKIPJT 

000430R 

$IFDB  = 

G.TIHR= 

000006 

UPDKTB 

OOOOOORG 

003  $LAMDA= 

G.TIMI= 

000010 

UPDSTB 

OOOOOORG 

002  $LEN 

G.TIMO= 

000002 

SALPHA= 

000022 

$L0V8N= 

G.TISC^ 

000012 

$ANY  = 

000020 

.  ABS. 

000012 

000 

(RW,I,GBL,ABS,0VR) 

000744 

001 

(RW,1,LCL,REL,C0N) 

SSTATE 

000332 

002 

(RW,D,L 

a.REL.CON) 

$KTAB 

000104 

003 

(RU,D,LCL,REL,CON) 

$<STR 

000347 

004 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

♦♦•  Assembler  sta 

1  3  1 1  C  S 

Work  t 

ile  reads 

0 

Work  f 

lie  writes 

0 

Size  01 

work  file 

11544  Wu.  , 

(  46  Pages) 

Size  0" 

core  pool 

14440  Wora 

',  55  Pages/ 

Operating  system 

Fl;in?pri  timp:  00: 

RSV- 
00:41. 

llM/r-LUb 
10 

K  2 
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000006 

****** 
****** 
****** 
******  GX 


GX 
GX 
GX 


****** 

****** 

****** 

0001 70RG 

000552RG 

000526RG 

000542RG 

000024 

000014 

******  GX 

000012 

OOOOOORG 

000000 

U7777 

******  GX 

******  GX 

000000 

000002RG 

******  GX 


$Movn 

SMOVPT 

SMOVST 

$MVASC= 

$NUMBR= 

$0BUF 

$OFDB  = 

$PSIPT= 

$RAD50= 

$RDATA= 

$STRNG= 

$SUBXP= 

$SVUPD= 

$UPBUF= 

$UPCNT= 

$UPDDM= 

$UPDEC=: 

$UPDLC= 
$UPEVT= 
$UPFEA= 
$UPLLC= 
SUPLOG^ 
$UPNOD= 
$UPOBJ= 


000436RG 

000476RG 

000446RG 

******  GX 

000002 

000004RG 

******  GX 

******  GX 

000016 

******  GX 

000004 

000010 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


:i,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,i:i32,10]CFEUPD 


$UPPAR= 

$UPPSN= 

$UPREM= 

$UPROU= 

$UPSLT= 

$UPSTA= 

$UPSVC= 

$UPUNT= 

$WDATA= 

$ZCOU 

$ZCOUL= 

$ZMFL 

$ZMFLL= 

SZTIM 

$ZTIML= 

$$$FLG= 

$$$KEY= 

$$$OST= 

$$$STA= 

$$$TMP= 

.POINTS 

.PSTCN= 

.PSTPT= 

.TPARS= 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
******  GX 
******  GX 
0001 36RG 
000007  G 
000120RG 
000007  G 
000127RG 
000007  G 
177777 
000041 
000020 
000000 
000344R 
******  GX 
******  GX 
******  GX 
******  GX 


004 
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Symbol  table 


tPUSNA  OOOOOARG 
SSESNA  OOOOOARG 
SSHSNA  000004RG 

ABS.  000000 
000006 
Errors  detected: 


SSNDEF 
SSNLIS 
SSNPUR 


OOOOOORG 
OOOOOORG 
OOOOOORG 


STMSAC 
$TM3AD 
STMSNA 


OOOOOORG 
OOOOOORG 
OOOOOORG 


STMSPU  OOOOOORG 
SUPSAC  OOOOOORG 
SUPSAD  OOOOOORG 


SUPSNA  OOOOOORG 
SUPSPU  OOOOOORG 


000 
001 
0 


(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


*♦«   Assembler   statistics 


0 

0 

46  Words      (    1   Pages) 

M440  Uords     (   55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes; 
Size  of  work  file: 
Size  of  core  pool : 
Operating     system; 
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PRMPTS 

CREATED  BY     MACRO     ON  29 

-JUN-85  AT 

17:01 

MACRO   CROSS 

REFERENCE 

MACRO  NAME 

REFERENCES 

DBGTPS 

#5-90 

!STAT$ 

#A-63 

5-90 

MTRANt 

#5-90 

PRMPTS 

#4-63 

5-94 

#5-96 

#5-97 

#5-104 

#5-105 

#5-106 

#5-107 

#5-114 

#5-115 

#5-116 

#5-117 

#5-124 

#5-125 

#5-126 

#5-127 

#5-1 i4 

#5-135 

#5-136 

#5-137 

#5-144 

#5-145 

#5-146 

#5-147 

#5-154 

#5-155 

#5-156 

#5-157 

#5-164 

#5-165 

#5-166 

#5-167 

#5-174 

#5-175 

#5-176 

#5-177 

#5-184 

#5-185 

#5-186 

#5-187 

#5-194 

#5-195 

#5-196 

#5-197 

#5-204 

#5-205 

#5-206 

#5-207 

#5-214 

#5-215 

#5-216 

#5-217 

#5-224 

#5-225 

#5-226 

#5-227 

#5-234 

#5-235 

#5-236 

#5-237 

#5-244 

#5-245 

#5-246 

#5-247 

#5-254 

#5-255 

#5-256 

#5-257 

#5-264 

#5-265 

#5-266 

#5-267 

#5-274 

#5-275 

#5-276 

#5-277 

#5-284 

#5-285 

#5-286 

#5-287 

#5-294 
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#5-98 

#5-108 

#5-118 

#5-128 

#5-138 

#5-148 

#5-158 

#5-168 

#5-178 

#5-188 

#5-198 

#5-208 

#5-218 

#5-228 

#5-238 

#5-248 

#5-258 

#5-268 

#5-278 

#5-288 


#5-99 

#5-109 

#5-119 

#5-129 

#5-139 

#5-149 

#5-159 

#5-169 

#5-179 

#5-189 

#5-199 

#5-209 

#5-219 

#5-229 

#5-239 

#5-249 

#5-259 

#5-269 

#5-279 

#5-289 


#5-100 
#5-110 
#5-120 
#5-130 
#5-140 
#5-150 
#5-160 
#5-170 
#5-180 
#5-190 
#5-200 
#5-210 
#5-220 
#5-230 
#5-240 
#5-250 
#5-260 
#5-270 
#5-280 
#5-290 


#5-101 
#5-111 
#5-121 
#5-131 
#5-141 
#5-151 
#5-161 
#5-171 
#5-181 
#5-191 
#5-201 
#5-211 
#5-221 
#5-231 
#5-241 
#5-251 
#5-261 
#5-271 
#5-281 
#5-291 


#5-102 
#5-112 
#5-122 
#5-132 
#5-142 
#5-152 
#5-162 
#5-172 
#5-182 
#5-192 
#5-202 
#5-212 
#5-222 
#5-232 
#5-242 
#5-252 
#5-262 
#5-272 
#5-282 
#5-292 


#5-103 
#5-113 
#5-123 
#5-133 
#5-143 
#5-153 
#5-163 
#5-173 
#5-183 
#5-193 
#5-203 
#5-213 
#5-223 
#5-233 
#5-243 
#5-253 
#5-263 
#5-273 
#5-283 
#5-293 
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SS 

AA 

AA 
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RR      RR 

SS 

AA 

AA 
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SS 

AA 

AA 

pp    pp 

RR      RR 

SS 

AA 

AA 

pppppppp 
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SSSSSS 

AA 

AA 
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SSSSSS 

AA 

AA 

pp 
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SS 

AAAAAAAAAA 

pp 

RR  RR 

SS 

AAAAAAAAAA 

pp 

RR    RR 

SS 

AA 

AA 

pp 

RR    RR 

SS 

AA 

AA 

pp 

RR      RR 

SSSSSSSS 

AA 

AA 

CCCCCCCC 

pp 

RR      RR 

SSSSSSSS 

AA 

AA 

CCCCCCCC 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTrrTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

PRSACT   -  PARSE    ACTION   ROUTINES 
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PRSACT  -  PARSE  ACTION  ROUTINES 
.EXRTM  -  PARSE  EXECUTOR  ROUTIN' 


371 
37? 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
38A 
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TIMER 
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0010AO 


001040  016^67 
001046  001766 
001050  000207 


OOOOOOG  OOOOOOG 


INPUTS 
OUTPUT 

EXRTM:: 


.SSTTL   .EXRTM  -  PARSE  EXECUTOR  ROUTING  TIMER 

.TPARS  VARIABLES 

$RTM  =  PARSED  ROUTING  TIMER  VALUE 
THE  TRANSITION  IS  ACCEPTED/REJECTED. 


TST  .PNUMH 

BNE  ILLNUM 

MOV  .PNUMB,$RTM 

BEQ  ILLNUM 
RETURN 


SEE  IF  GT  16  BITS  WIDE 
RECJECT  TRANSITION  IF  IT  IS 
SAVE  IN  PARSED  DATA  AREA 
IF  EO,  OUT  OF  RANGE 


PRSACT  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  05:17  Page  U 
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MACRO  LIBRARY  CALLS  AND  LOCAL  DATA 

000110 
000112 
0001U 
000116 
000120 
000122 
000124 
000000 
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000124 

000000 
000001 
000002 
000003 
000004 
000005 
000006 

000000 


000000 


1  $ADJ 

:   .BLKU 

1 

l$N0D 

:   .BLKW 

1 

1  $rnii 

:   .BLKW 

1 

ISPIR 

:   .BLKW 

1 

L$PAR 

:   .BLKW 

1 

LSSYL 

:   .BLKW 

1 

L$LEN 

.PSECT 

;  OFFSETS  INTO 

SC 

' 

.ASECT 

.=0 

R$5: 

.8LKB 

1 

B$6: 

.8LKB 

1 

R$^ 

.BLKB 

1 

R$10: 

.BLKB 

1 

R$11: 

.BLKB 

1 

B$12: 

.BLKB 

1 

B$7S10:  .BLKB 

1 

.EVEN 

.PSECT 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PL8  address 
PARAMETER  TYPE 
System  line  number 
LENGTH  OF  CONTEXT  AREA 


BASF 

TABLE 

+ 

5 

RASE 

TABLE 

+ 

6 

RASE 

TABLE 

+ 

/ 

RASE 

TABLE 

+ 

10 

RASP 

TABLE 

t 

11 

BASE 

TABLE 

+ 

12 

SUM  OF  BASE  TABLE  7  AND  10 
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CHKDE';  -  CHECK  VALIDITY  OF  DEVICE  SPECIFIER 
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^^1  001070 
542  001072 
5A3  001076 
5AA  001100 

545  001106 

546  oonio 

547  001116 

548  001120 

549  001126 

550  001130 

551  001136 

552  001140 

553  001142 

554  001144 
555 

556 
557 

558  001146 

559  001152 

560  001156 
561 

562 
563 

564  001160 

565  001166 
566 

567 
568 

569  001170 

570  001176 

571  001200 

572  001206 

573  001210 

574  001216 

575  001220 

576  001224 

577  001226 

578  001234 

579  001236 

580  001244 

581  001246 
582 

583 

584 

585  001250 

586 

587 

588 

589 

590 

591 

592 

595  001250 

594  001256 

595  001260 

596  001264 
597 


012301 
126102 
001020 
132765 
001017 
126165 
001010 
132765 
001007 
126165 
001403 
005300 
001352 
000462 


116103 
067703 
011303 


022763 
001451 


032761 
001403 
105761 
001006 


000002 

000040  000041 

000012  000002 
000100  000041 

000013  000003 


000003 
OOOOOOG 


045452  000004 


10$:    MOV  (R3)+,R1 

CMPB  L.DDM(R1),R2 

BNE  20$ 

BITS  #LP$WCN,L$PFG(R5) 

BNE  30$ 

CMPB  L.CTL(R1),L$CTL(R5) 

BNE  20$ 

BITB  #LP$WUN,L$PFG(R5) 

BNE  30$ 

CMPB  L.UNT(R1),L$UNT(R5) 

BEQ  30$ 

20$:    DEC  RO 

ifi^  98I 

On  7v9 


GET  ADDR  OF  SYSTEM  LINE  TABLE 

DOES  THIS  PROCESS  MATCH  ? 

IF  NE,  NO  -  KEEP  LOOKING 

WILD  CONTROLLER  ? 

IF  NE  YES  -  SKIP  LOOKING  FOR  SLT 

DOES  THIS  CONTROLLER  NUMBER  MATCH 

IF  NE,  NO  -  KEEP  LOOKING 

WILD  UNIT  ? 

IF  NE,  YES  -  GO  ON  TO  MUX  TEST 

DOES  THIS  UNIT  NUMBER  MATCH  ? 

IF  EQ,  FOUND  THE  CORRECT  SLN 

LOOK  THROUGH  ALL  SYSTEM  LINES 

Jf'hERE,  LINE  NOT  FOUND 


IF  TRIBUTARY  WAS  SPECIFIED,  MAKE  SURE  LINE  IS  MULTIPOINT  MASTER 


MOVB 

ADD 

MOV 


L.DLC(R1),R3 

aPDVTA,R3 

(R3),R3 


RJK05 


132765 

000140 

000041 

001055 

132765 

000002 

000041 

001420 

032761 

000020 

000000 

001431 

105761 

000014 

001426 

132765 

000200 

000041 

001036 

126165 

000014 

000040 

10  010 

000415 

.IF  NDF  R$$11S 

CMP  **RLAS,Z.NAM(R3) 

BEQ  90$ 

.ENDC  ;  NDF  R$$11S 

BITB  #LP$WCNILP$WUN,L$PFG(R5) 

BNE  100$ 

BITB  #LP$TRB,L$PFG(R5) 

BEQ  40$ 

BIT  #LF.MTP,L.FLG(R1) 

BEQ  80$ 

TST8  L.NSTA(RI) 

BEQ  80$ 

BITB  #LP$WTR,L$PFG(R5) 

BNE  100$ 

CMPB  L.NSTA(R1),L$TR8(R5) 

BHI  70$ 

BR  80$ 


GET  DLC'S  PDV  INDEX 

INDEX  INTO  PDV  VECTOR  TABLE 

GET  DLC'S  PDV  ADDRESS 


IS  IT  A  PSI  LINE? 
BR  IF  YES 


WILD  CARD  CONTROLLER  OR  UNIT  ? 

IF  NE,  YES  -  RETURN  (NO  SLT  TO  EXAMINE) 

WAS  A  TRIBUTARY  SPECIFIED  ? 

IF  EQ,  NO  -  RETURN 

IS  THIS  A  MULTIPOINT  CIRCUIT  ? 

IF  EQ,  NO  -  ERROR 

IS  THIS  A  MULTI-POINT  MASTER  ? 

IF  EQ,  NO  -  ERROR 

WILD  TRIBUTARY  ? 

IF  NE,  YES  -  SKIP  RANGE  CHECK 

ELSE,  IS  THE  TRIBUTARY  IN  RANGE  ? 

IF  HI,  YES 

ELSE  ERROR 


IF  NO  TRIBUTARY  WAS  SPECIFIED,  MAKE  SURE  LINE  IS  NOT  MULTIPOINT  MASTER 


40$: 


000020  000000 
000014 


.IF  DF  R$$11S 

TST  ENTTYP 

BNE  100$ 

.ENDC  ;  NDF  R$$11S 

BIT  *LF.MTP,L.FLG(R1> 

BEQ  70$ 

TST6  L.NSTA(Rl) 

BNE  80$ 


PARSING  A  LINE-ID  (NOT  CIRCUIT)? 
IF  NE,  YES  -  MISSING  TRIB  OK 


IS  THIS  A  MULTIPOINT  LINE  ? 
IF  EQ,  NO  -  VALID  CIRCUIT  ID 
IS  THIS  A  MULTIPOINT  MASTER  ? 
BR  IF  YES  -  INVALID  CIRCUIT-ID 
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••FILE«*ID'«PRSEXE 


pppppppp 

RRRRRRRR 

SSSSSSSS 

EEEEEEEEEE 

XX      XX 

EEEEEEEEEE 

pppppppp 

RRRRRRRR 

SSSSSSSS 

EEEEEEEEEE 

XX      XX 

EEEEEEEEEE 

pp    pp 

RR      RR 

SS 

P  • 

XX      XX 

EE 

pp    pp 

RR      RR 

SS 

1  f 

XX      XX 

EE 

pp    pp 

RR      RR 

SS 

E  f 

XX  XX 

EE 

pp    pp 

RR      RR 

SS 

e: 

XX  XX 

EE 

pppppppp 

RRRRRRRR 

SSSSSS 

EEEEEEEE 

XX 

EEEEEEEE 

pppppppp 

RRRRRRRR 

SSSSSS 

EEEEEEEE 

XX 

EEEEEEEE 

pp 

RR   RR 

SS 

EE 

XX  XX 

EE 

pp 

RR  RR 

SS 

EE 

XX  XX 

EE 

pp 

RR    RR 

SS 

EE 

XX      XX 

EE 

pp 

RR    RR 

SS 

EE 

XX      XX 

EE 

pp 

RR      RR 

SSSSSSSS 

EEEEEEEEEE 

XX      XX 

EEEEEEEEEE 

pp 

RR      RR 

SSSSSSSS 

EEEEEEEEEE 

XX      XX 

EEEEEEEEEE 

Ll 

SSSSSSSS 

TTTTTl 

rrn 

LL 

SSSSSSSS 

TTTTT 

1  III 

LL 

SS 

LL 

SS 

lL 

SS 

_L 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLL 

1  1 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

PRSFXF 
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PRSEXE  - 
.EXBRr  - 

37i 
375 
376 
377 
378 
379 
380 
381 
382 
383 
38A 
385 
386 
387 
388 
389 
390 
391 
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EXECUTOR  BROADCAST  ROUTING  TIMER 
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000750 
000750 
000756 
000760 
000764 

000766 
00077A 


.SBTTL   .EXBRT  -  EXECUTOR  BROADCAST  ROUTING  TIMER 
.EX8RT-  EXECUTOR  BROADCAST  ROUTING  TIMER 


016767 
00U03 
005767 
00K05 

012767 
062716 


OOOOOOG  OOOOOOG 
OOOOOOG 


INPUTS: 

OUTPUT: 

EXBRT: 


TPARS  CONVENTIONS. 

«;E8RT   =  PARSEED  BROADCAST  ROUTING  TIMER 


001000  000207 


OOOOOOG  OOOOOOG  10$: 
000002 

20$: 


MOV 
BEQ 
TST 
BEQ 

MOV 
ADD 

RETURN 


.PNUMB.SEBRT 
10$ 

.PNUMH 
20$ 

*ERRILN,$ERROR 
#2,(SP) 


MOVE  IT 
IF  EQ,  ERROR 
TOO  HIGH  ? 
IF  EQ,  OK 

error  in  number 

else  reject  transition 
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PRSLIN  -   PARSE    A  LlNE-lD 


1 
2 
I 
A 
5 
6 

7 

8 
9 

10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
i<0 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
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.TITLE   PRSLiN  -  PARSE  A  LINE-ID 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 
NETWORK  MANAGEMENT 


PARSE  A  LINE-ID  STRING 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX  VI .0 


PRSI  IN   -   PARSE    A   I  INF-ID 
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422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 

448  000730 

449  000730 

450  000732 

451  000736 

452  000740 

453  000742 

454  000744 

455  000746 

456  000750 

457  000752 

458  000754 

459  000756 

460  000760 

461  000762 

462  000764 
463 

464  000766 

465  000770 
466 

467 
468 
469 


.S8TTL   CHKWLD  -  CHECK  FOR  WILD  CARD  FIELD 

**-CHKWLD-CHECK  FOR  WILD  CARD  FIELD 

THIS  ROUTINE  CHECKS  FOR  LEGAL  WILD  CARD  SYNTAX. 

INPUTS; 

RO  =  ADDRESS  OF  NEXT  BYTE  IN  STRING 

R3  =  LEGAL  TERMINATING  CHARACTER 

R4  =  ADDRESS  OF  THE  END  OF  THE  STRING  +  1 

OUTPUTS: 

C-BIT  CLEAR: 

RO  =  ADDRESS  OF  NEXT  BYTE  IN  STRING 

R2  =  COMPLETION  CODE  (  0  =  MORE  IN  THE  STRING) 

(  NOT  0  =  NO  MORE  IN  THE  STRING) 


C-81T  SET: 

R2  =  COMPLETION  CODE  (  0  =  '♦ 
(  NOT  0 


005002 
121027 
001013 
005200 
005202 
020400 
001410 
122003 
001005 
020400 
001404 
103402 
005002 
000401 

000261 


000001 


000052 


REGISTERS: 

R3,  R4, 


CHKWLD: 

CLR 

CMP8 

BNE 

INC 

INC 

CMP 

BEQ 

CMPB 

BNE 

CMP 

BEQ 

8L0 

CLR 

BR 

10$:    SEC 
20$:    RETURN 


R5  ARE  PRESERVED 


R2 

(R0),#'* 

10$ 

RO 

R2 

R4,R0 

20$ 

(R0)+,R3 

10$ 

R4,R0 

20i 

10$ 

R2 

20$ 


NOT  FOUND) 

"*'  FOUND  NOT  FOLLOWED  BY  VALID 

TERMINATOR) 


ASSUME  '*'  NOT  FOUND 

WILD  CARD  ? 

IF  NE,  NO  -  RETURN 

SKIP  OVER  CHARACTER 

ASSUME  END  OF  STRING 

AT  END  OF  STRING  YET  ? 

IF  EQ,  YES 

LEGAL  TERMINATOR  ? 

IF  NE,  NO  -  RETURN 

AT  END  OF  STRING  ? 

IF  EQ,  YES  -  RETURN 

IF  LO,  ERROR 

ELSE,  INDICATE  MORE  IN  STRING 

AND  RETURN 


.DSA8L  LSe 
.END 


PAB^F  i  I IMP-in 
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LOCAL  MACROS 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 


.SBTTL   LOCAL  MACROS 

»**♦ 

LOCAL  MACROS 
**** 

.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


DB<;i  nr,  -   pabi;f    inr,r.i>.;r. 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
6^. 
65 
66 
67 

68  000000 

69  000000 

70  OOOOOA 

71  000010 

72  000012 

73  000016 
Ik   000022 

75  000024 

76  000026 

77  000032 

78  000036 

79  000044 

80  000046 
000052 


.SBTTL   .MOCUG  -  CONVERT  USER  GROUP  TO  RAD50 

«*♦  -  .MOCUG  -  CONVERT  USER  GROUP  TO  RAD50 

INPUTS: 

.PSTPT  =  ADDRESS  Of  USER  GROUP  STRING 
.PSTCN  -  LENGTH  OF  USER  GROUP  STRING 

OUTPUTS: 

$CUG  =  2  WORD  RAD50  USER  GROUP 

THE  TRANSITION  IS  ACCEPTED/REJECTED 


31 


005067 
016700 
005001 
004767 
010167 
103413 
005001 
004767 
010167 
022767 
103002 
062716 
000207 


000002G 
OOOOOOG 

OOOOOOG 
OOOOOOG 


OOOOOOG 
000002G 
000006 

000002 


.MOCUG: 


OOOOOOG 


10$: 


CLR 

MOV 

CLR 

CALL 

MOV 

BCS 

CLR 

CALL 

MOV 

CMP 

BHIS 

ADD 

RETURN 


$CUG+2 

. PSTPT, RO 

R1 

$CAT5 

RI.SCUG 

lOi 

R1 

$CAT5 

Rl,$CUGt2 

#6, .PSTCN 

10$ 

*2,(SP) 


CLEAR  THE  SECOND  HALF  OF  THE  USER  GROUP 

POINT  RO  AT  USER  GROUP 

PtT^IODS  NOT  ACCEPTABLE 

CONVERT  USER  GROUP  TO  RAD50 

STORE  Th.=^  USER  GROUP 

IF  CS,  LESS  THAN  3  CHARS  CONVERTED 

PERIODS  NOT  ALLOWED 

CONVERT  REST  OF  USER  GROUP  TO  RAD50 

STORE  SECOND  HALF  OF  USER  GROUP 

IS  THE  USER  GROUP  TOO  BIG  ? 

IF  HIS,  NO  -  OKAY 

ELSE,    INDICATE    FAILURE 


DDCMnh   _   DADcp    flrrrriM   DniitiwF^ 
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PRSMOD  -  PARSE  ACTION  ROUTINES 
MONUM  -  PARSE  GROUP  NUMBER 


318 
319 
320 
3?1 
3?2 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
33A 
335 
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000522 

000522  005767  OOOOOOG 

000526  001367 

000530  026727  OOOOOOG  023417 

000536  101363 

000540  016767  OOOOOOG  OOOOOOG 

000546  001757 

000550  000207 


.SSTTL   .MONUM  -  PARSE  GROUP  NUMBER 

♦♦  .MONUM  -  PARSE  GROUP  NUMBER 

INPUTS       .TPARS  VARIABLES 

OUTPUT       $NUM  =  PARSED  GROUP  NUMBER 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.MONUM: 


TSI 
BNE 
CMP 
BHI 
MOV 
BEQ 
RETURN 


. PNUMH 

ILLNUM 

.PNUMB,*9999. 

ILLNUM 

.PNUMB.SNUM 

ILLNUM 


HIGH  ORDER  WORD 

REJECT  IF  TOO  HIGH 

CHECK  HIGH  RANGE 

BR  IF  ILLEGAL  NUMBER 

MOVE  VALUE  TO  PARSED  AREA 

BR  IF  ZERO 


uAC   n7k 


L  16 

.9";  nii.iQ 


-FEUPD  - 
»-.,RC  DE 

54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
7? 
75 
74 
75 
76 

n 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


L  1 

UPDATE  THE  CETAB  FILE  MACRO  V05.03b  Saturday  29-Jun-85  05:15  Page  4 
FINITIONS 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99  OOOCOO 
100  000002 
T'l  000004 

102  oooooe 

103  000052 

104  00012C 
105 

106  000127 

107 

108  000136 

109 

no 


.SBTTL 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


MACRO  DEFINITIONS 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  .'EXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


;  GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


MACRO  CALLS 


.MCALL 
.MCALL 


LOCAL  DATA 


0C0075 


on 

132 
000007 

132 
000007 

132 
000007 


073 

106 

106 
106 


040 
056 


SEMI 

SERROR: 

$LEN:: 

SOBUF : : 

ARGLST: 

FMTSTR: 

SZMFL 


056  SZTIM 
056  SZCOU 


.ENABL 
.NLIST 

.SLKU 

.8LKW 

.SLKW 

.8LKU 

.ASCIZ 

.ASCII 

SZMFLL= 

.ASCII 

SZTIML= 

.ASCII 

$ZCOUL= 

.EVEN 


I  STATS, STATES, TRANS, CLOSES, OPENSR 
DIRS,GTSKSS,GTIMSS 


LC 
BEX 


SEMICOLON  FOR  TPARS  CABLES 
1  ;  NON-ZERO  IF  SYNTAX  ERROR 

1  ;  LENGTH  OF  THE  OUTPUT  BUFFER 

1  ;  CURRENT  POSITION  IN  OUTPUT  BUFFER 

18.  ;  GTIMS,  GTSKS  BUFFER 

<n>/;  last  edit  by  )!2R  [X0,XO]  on  Xi  Mil 

MARK  PROCESS  FOR  LOAD  BIT 

AND  LENGTH 

PROCESS  NEEDS  TIMER  SUPPORT 

AND  LENGTH 

DLC  SUPPORTS  COUNTERS 


/ZF.MFL 
^.-SZMFL 

/ZF.TIMl/ 
^. -SZTIM 

/ZF.cou:/ 

=.-SZCOU 
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CFEUPD     CREATED  BY  MACRO  ON  i!9-JUN-85  AT  05:15 
SYMBOL  CROSS  REFERENCE 


I    2 
PAGE  1 

CREF   04.00 


SYMBOL  VALUE 


ARGLST 

CLENUP 

ERRFIL 

ERROUT 

ERRSYN 

FMTSTR 

F.NRBD 

GINBUF 

GINDPB 

GSBLEN 

GSCRUI 

GSLBUl 

G$LGUI 

GSPRUI 

GSSYUI 

G.TIYR 

G.TSDU 

G.TSTN 

SEMI 

SKIPIT 

UPDKTB 

UPDSTB 

SALPHA 

SANY 

SBLANK 

SBUFI 

SPUFR 

SBlTTE 

SCBDMG 

SCSOMG 

SCFERR 

SCFERI 

SCFUPD 

SCLNUP 

SCNVO 

SCNVO 

SDIGIT 

SDNUMB 

SEDMSG 

$EOS 

ScRROR 

SEXIT 

$FAIL 

SGPRM 

SHIVBN 

$IFDB 

SLAMDA 

$LEN 

SLOVBN 

SMOVIT 

tm\iPr 

SMOvST 


000006 

R 

000570 

R 

*■*♦*** 

GX 

****** 

fix 

****** 

GX 

000052 

R 

****** 

GX 

000156 

R 

000146 

R 

000012 

000004 

000002 

000010 

000006 

000000 

000000 

000036 

000000 

000073 

000430 

R 

000000 

RG 

000000 

RG 

000022 

000020 

000006 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

000170 

RG 

000552 

RG 

000526 

RG 

000542 

RG 

00002'. 

000014 

****** 

GX 

000012 

000000 

RG 

000000 

]77777 

****** 

GX 

****** 

GX 

000000 

000002 

RG 

****** 

GX 

000436 

RG 

0004  76 

RG 

0004^6 

RG 

REFERENCES 

#4-102 
#13-387 

6-214 

6-250 

6-230 
#4-103 
♦6-221 

4-117 
#4-115 

4-117 
#4-125 
#4-124 
#4-127 
#4-126 
#4-123 

13-409 

13-399 

13-397 
#4-98 
#7-268 
#5-138 
#5-138 
#5-138 
#5-138 
#5-138 

6-224 

6-221 

6-210 

11-348 

11-353 

6-214 

6-243 
#6-204 
#12-369 
#11-347 
#11-352 
#5-138 
#5-138 

13-413 
#5-138 
#4-99 
#5-138 
#5-138 

5-138 

6-208 

6-207 
#5-138 
#4-100 

6-209 
#8-284 
#10-322 
#9-299 


13-397 


13-411 
»6-246 
#4-131 

13-400 
#4-128 


13-402 


13-398 


•8-285 
13-402 

4-131 


13-399 


13-412 


13-398    13-412 


6-223 
6-225 


6-243     8-285 
9-300     12-371 


9-301 


13-414 


6-230 


6-250 


•6-205 


•6-219 


6-228 


6-246 


•7-269 


•12-370 


•12-371 


•15-415 


CFEuPD 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:15 
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n  2 


■♦FILE«MO«*EvnBL 


L  3 


EEEEEEEEEE 

VV 

VV 

TTTTT 

TTTTT 

TTTTTTTTTT 

BBBBBB6B 

EEEEEEEEFE 

VV 

VV 

TTTTT 

TTTTT 

TTTTTTTTTT 

BB6BBB88 

EE 

VV 

VV 

BB     BB 

EE 

VV 

VV 

BB     BB 

EE 

VV 

VV 

BB     BB 

EE 

VV 

VV 

BB     BB 

EEEEEEEE 

VV 

VV 

BBBBBBBB 

EEEEEEEE 

VV 

VV 

BBBBBBBB 

EE 

VV 

VV 

BB     BB 

EE 

VV 

VV 

BB     BB 

EE 

VV 

VV 

BB     BB 

EE 

VV 

VV 

BB     BB 

EEEEEEEEEE 

VV 

BBBBBBBB 

LLLLLLLLLL 

EEEEEEEEEE 

VV 

BBBBBBBB 

LLLLLLLLLL 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

-L 

ss 

LLLLLLL. 

ssssssss 

LLLLLLLLl. 

ssssssss 
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L  4 

NOSNA     CREATED  BV  MACRO  ON  29-JUN-85  AT  05:16     PAGE  1 

SYMBOL  CROSS  REFERENCE  CREf   04.00 


SYMBOL 

VALUE 

REFERENCES 

SPUSNA 

000004 

RG 

#4-80 

SSESNA 

000004 

RG 

#4-78 

SSHSNA 

000004 

RG 

#4-79 

tSNDEF 

000000 

RG 

#4-65 

tSNLlS 

000000 

RG 

#4-64 

SSNPUR 

000000 

RG 

#4-66 

STMSAC 

000000 

RG 

#4-68 

STMSAO 

000000 

RG 

#4-69 

STMSNA 

000000 

RG 

#4-67 

STMSPU 

000000 

RG 

#4-70 

SUPSAC 

000000 

RG 

#4-72 

SUPSAD 

000000 

RG 

#4-73 

SUPSNA 

000000 

RG 

#4-71 

SUPSPil 

000000 

RG 

#4-74 

n   4 


•♦F1LF>«ID««PRMPTS 
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*«FILE'MD"PRMPTO 


PPPPPPPP 

RRRRRRRR 

MM 

MM 

PPPPPPPP 

TTTTTl 

TTTT 

000000 

PPPPPPPP 

RRRRRRRR 

MM 

MM 

PPPPPPPP 

TTTTTl 

riTT 

OODOOO 

pp    pp 

RR      RR 

MMM^ 

MMMM 

PP      PP 

00     00 

pp    pp 

RR      RR 

MMMf 

MMMM 

PP      PP 

00     00 

pp    pp 

RR      RR 

MM 

"IM  MM 

PP      PP 

00     00 

pp    pp 

RR      RR 

MM 

m     MM 

PP      PP 

00     00 

PPPPPPPP 

RRRRRRRR 

MM 

MM 

PPPPPPPP 

00     00 

PPPPPPPP 

RRRRRRRR 

MM 

MM 

PPPPPPPP 

00     00 

pp 

RR  RR 

MM 

MM 

PP 

00      00 

pp 

RR  RR 

MM 

MM 

PP 

r 

00      00 

pp 

RR    RR 

MM 

MM 

PP 

00      00 

pp 

RR    RR 

MM 

MM 

PP 

■ 

00     00 

pp 

RR      RR 

MM 

MM 

PP 

■ 

000000 

pp 

RR      RR 

MM 

MM 

PP 

r 

000000 

SSSSS5SS 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

mil 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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PRSACT  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  05:17 
Table  of  contents 

-  MAKE  BLANK  PROCESSING  MANUAL 

-  IGNORE  BLANK  PROCESSING 

-  IGNORE  BLANKS,  ALLOW  3  LETTER  ABBREVIATIONS 

-  IGNORE  BLANKS,  ALLOW  3  LETTER  ABBREVIATIONS  AND  FAIL 

■  HELP  ACTION  ROUTINE 

•  NODE  NAME  ACTION  ROUTINE 

•  EXECUTOR  NODE  NAME  ACTION  ROUTINE 

■  CONVERT  NODE  NAME  TO  RAD50 

■  INITIALIZE  NODE  ADDRESS 

■  SECOND  PART  OF  NODE  ADDRESS 

-  STORE  NODE  ADDRESS 

■  CHECK  PARSED  NODE  ADDRESS 

-  STORE  EXECUTOR  NODE  ADDRESS 

■  PARSE  EXECUTOR  ROUTING  TIMER 

■  NODE  NAME  IDENTIFICATION 

-  PARSE  REMOTE  OR  EXE  NODE  HOST 

-  FIND  NODE  NAME 

-  PARSE  MAXIMUM  DATA 

-  PARSE  MAXIMUM  WINDOW 


s- 

80 

SBL.MAN 

6- 

98 

SBL.AUT 

6- 

99 

$BL.A3T 

ft- 

100 

.BL.AU3 

/- 

121 

.HLPAC 

H- 

137 

.NONAM 

9- 

175 

.EXNAM 

10- 

199 

NODNAM 

11- 

230 

.RNINI 

11- 

24-; 

.RNAD2 

11- 

288 

.RNADD 

11- 

289 

.RNAD3 

V- 

341 

.EXADO 

1-;- 

371 

.EXRTM 

1A- 

386 

.RNNAM 

is- 

428 

.RNHNA 

16- 

455 

FNDNAM 

1/- 

483 

.PRMDA 

18- 

510 

.PRMWI 
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PRSACT  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  05:17 
.RNNAM  -  NODE  NAME  IDENTIFICATION 


Page  U 


386 

387 

388 

389 

390 

391 

392 

393 

39^ 

395 

396 

397 

398 

399 

'.OO 

AOl 

A02 

^03 

ADA 

405 

A06 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 


001052 
001052 
001060 
001062 
001066 

001070 
001076 
001100 
001106 
001110 
001116 
001120 
001126 
001130 
001134 


001136 
001144 
001146 
001154 
001156 
001164 
001170 


.SBTTL   .RNNAM  -  NODE  NAME  IDENTIFICATION 
'***  -  .RNNAM  -  NODE  NAME  IDENTIFICATION 
INPUT: 


.PSTPT  =  NODE  NAME  STRING  POINTER 
.PSTCT  =  NODE  STRING  LENGTH 


OUTPUT 


SNODAD  =  THE  NODE  ADDRESS  THAT  CORRESPONDS  TO  THE  NODE  NAME 
THE  TRANSITION  IS  ACCEPTED/REJECTED. 


022767 
001041 
004767 
103436 

026767 
001014 
026767 
001010 
022767 
001013 
012767 
000420 
004767 
103410 


016067 
000411 
012767 
000403 
012767 
062716 
000207 


OOOOOOG  OOOOOOG 
177306 

OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000120 

000010  OOOOOOG 

000105'  OOOOOOG 

OOOOOOG  OOOOOOG 
000002 


.RNNAM: 


20$: 


CMP  #ERRILC,$ERR0R 

BNE  40$ 

CALL  NODNAM 

BCS  40$ 

CMP  $NODNA,$NTNAM 

BNE  20$  ; 

CMP  $NODNAt2,$NTNAM+2 

BNE  20$ 

CMP  *CH.LIS,$CMAND 

BNE  25$ 

MOV  #C0.EXE,$COMP 

BR  50$ 

CALL  FNDNAM 

BCS  30$ 


ERROR  DETECTED  IN  NODE  ADDR  ACTION  ROUTINE 
IF  NE,  YES  -  PRESERVE  ERROR  CODE  8  GET  OUT 
TEMPORARILY  SAVE  THE  NODE  NAME 
IF  CS,  ERROR 

IS  THIS  THE  EXECUTOR  NODE  NAME  ? 

IF  NE,  NO 

;  IS  IT  REALLY  THE  EXECUTOR  NODE  ? 

IF  NE,  NO 

IS  THIS  A 

IF  NE,  NO 

ELSE,  SET 

AND  LEAVE 

FIND  NODE  NAME  IN  TEMPLATES 

IF  CS,  NOT  FOUND 


LIST  COMMAND  ? 

FRROR 
FOR  EXECUTOR  NODE 


FOUND  RIGHT  TEMPLATE 


25$: 

30$ 
40$ 
50$ 


MOV 

BR 

MOV 

BR 

MOV 

ADD 

RETURN 


C.ADD(R0),$NODAD 

50$ 

#ERREXE,$ERROR 

40$ 

#EfiRNOD,$ERROR 

#2,(SP> 


;  SAVE  NODE  ADDRESS 
AND  LEAVE 

INVALID  USE  OF  EXECUTOR  NODE 
AND  REJECT 

NODE  NOT  IN  CONFIGURATION 
REJECT  THE  TRANSITION 


NAME 
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PR5CIR  -  PARSE  A  CIRCUIT- 
BIT  DEFINITIONS 


000001 
000002 
OOOOO'. 
000010 
000020 
0000^0 
000100 
000200 
000360 


ID 


75 


000001 
000002 
000004 


000010 
000020 
000040 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


L  8 
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.SBTTL  BIT  DEFINITIONS 
PARSE  FLAG  DEFINITIONS  (L$PFG) 


LPSUNT 
LPSTRB 
LP$MUX 
LPSMPT 
LPSWDV 
LPSWCN 
LPSWUN 
LPSUTR 
LPSULD 


1 

2 

4 

10 

20 

40 

100 

200 


=  LP$WDVILP$WCN1LP$WUNILP$WTR 


UNIT  NUMBER  FOUND 
TRIBUTARY  NUMBER  FOUND 
DEVICE  IS  MUX 
LINE  IS  MULTIPOINT 
WILD  CARD  DEVICE  NAME  FOUND 
WILD  CARD  CONTROLLER  NUMBER  FOUND 
WILD  CARD  UNIT  NUMBER  FOUND 
WILD  CARD  TRIBUTARY  NUMBER  FOUND 
WILD  CARD  FIELD  MASK 


FLAGS  WJRD  BIT  DEFINITIONS  (LSFLG) 

LFSREA  =  1 

LFSZER  =  2 

LFSSKP  =  4 


LF$VR2  =  10 

LFSEND  =  20 

LFSSIG  =  40 

LFSMLT  =  40000 
LFSSEG  =  100000 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFICANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 


■  BIT  POSITION 

DEFINIT 

BITO  = 

1 

BIT1  = 

2 

BIT2  = 

4 

BIT3  = 

10 

BIT4  = 

20 

BITS  = 

40 

BIT6  = 

100 

BIT7  = 

200 

B1T8  = 

400 

BIT9  = 

1000 

BITIO 

=  2000 

BIT11 

=  4000 

BIT12 

=  10000 

B1T13 

=  20000 

BIT14 

=  40000 

BIT15 

=  100000 

par<;f  ft  riRfiiiT-iD 
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PRbClR  -  PARSE  A  CIRCUIT-ID     MACRO  V05.03b  Saturday  29-Jun-85  13:20  Page  14-2 
CHKDEV  -  CHECK  VALIDITY  OF  DEVICE  SPECIFIER 


598  001266 

599  001274 

600  001300 
601 

602  001302 

603  001310 
604 

605  001312 

606  001320 

607  001332 

017765 
160065 
000414 

OOOOOOG  000122 
000122 

70$.- 

MOV 
If 

aSLTNM,L$SyL(R5) 
R0,L$SYL(R5) 

io6$ 

012766 
000403 

177767  OOOOOOG 

80$: 

MOV 
BR 

#ME.IID,R$RO(SP) 
95$ 

012766 

177770  OOOOOOG 

90$: 
95$: 
100$: 

MOV 

RETC 

RETURN 

#ME.UCO,R$R0(SP) 
RO 

GET  #   OF  SYSTEM  LINES       ;  RJK05 

COMPUTE  SYSTEM  LINE  NUMBER 

RETURN 

SET  USER  RO  TO  INVALID  CIRCUIT-ID 


SET  USER  RO  TO  UNRECOGNIZED  CIRCUIT 
SET/CLEAR  USER  CARRY 
AND  RETURN  TO  USER  MODE 


PRSCIR  -  PARSE  A  CIRCUlT-ID 
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PRSEXE  -  PARSE  EXECUTOR  ACTION  MACRO  V05.03b  Saturday  29-Jun-85  05:18 

Table  ot  contents 

5-  69  .EXID  -  STORE  EXECUTOR  ID  -  QUOTED 

5-  70  .EXID1  -  STORE  EXECUTOR  ID  NON  QUOTED 

6-  125  .EXLNK  -  SET  MAXIMUM  NUMBER  OF  LOGICAL  LINKS 

7-  K6  .EXHOP  -  SET  MAXIMUM  NUMBER  OF  HOPS  IN  NETWORK 

8-  168  .EXCOS  -  SET  MAXIMUM  LINE  COST  IN  NETWORK 

9-  190  .EXNN  -  SET  MAXIMUM  NODE  NUMBER  IN  NETWORK 

10-  225  .EXNC  -  SET  NUMBER  OF  NODE  COUNTERS 

11-  259  .EXHOS  -  STORE  HOST  NODE  ADDRESS 

12-  290  .EXSUB  -  PARSE  EXECUTOR  SUBADDRESS 

12-  291  .EXSB2  -  PARSE  EXECUTOR  SUBADDRESS  RANGE 

13-  326  Parse  Area  Routing  parameters 
U-  37A  .EXBRT  -  EXECUTOR  BROADCAST  ROUTING  TIMER 

15-  393  .EXBEA  -  EXECUTOR  MAXIMUM  BROADCAST  NONROUTERS 

16-  ^U  .EXSEG  -  EXECUTOR  SEGMENT  BUFFER  SIZE 

17-  433  .EXINA  -  EXECUTOR  INACTIVITY  TIMER 

18-  45A  .EXINT  -  EXECUTOR  INCOMING  TIMER 

19-  475  .EXOUT  -  EXECUTOR  OUTGOING  TIMER 

20-  A96  .EXRET  -  EXECUTOR  RETRANSMIT  FACTOR 
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PRSEXE  - 
.EXBEA  - 

395 
39A 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 


PARSE  EXECUTOR  ACTION  MACRO  V05.03b  Saturday  29-Jun-85 
EXECUTOR  MAXIMUM  BROADCAST  (^CiMROUTERS 


05:1 


8     Page  15 


001002 
001002 
001010 
001012 
001020 
001022 
001026 

001030 
001036 


.SBTTL   .EXSEA  -  EXECUTOR  MAXIMUM  BROADCAST  NONROUTERS 
.EX8EA  -  EXECUTOR  MAXIMUM  BROADCAST  NONROUTERS 


016767 
001407 
026727 
101003 
005767 
001405 

012767 
062716 


OOOOOOG  OOOOOOG 
OOOOOOG  001776 
OOOOOOG 


OOOOOOG  OOOOOOG  10$: 
000002 


INPUTS: 

OUTPUT: 

EX8EA: 


001042  000207 


20$: 


MOV 
BEO 
CMP 
BHI 
TST 
BEQ 

MOV 
ADD 

RETURN 


TPARS  CONVENTIONS. 

$E8EA   =  PARSED  EXECUTOR  MAXIMUM  BROADCAST  NONROUTERS 


.PNUMB,$E8EA 

10$ 

.PNUM8,#1022. 

10$ 

.PNUMH 

20$ 

#ERRILN,$ERROR 
#2,(SP) 


MOVE  IT 

IF  EO,  ERROR 

TOO  HIGH  ? 

YES 

TOO  HIGH  ? 

IF  EQ,  OK 

error  in  number 

else  reject  transition 
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PRSLIN  - 

PARSE 

MACRO  LIBRARY 

55 

54 

55 

56 

57 

58 

59 

000000 

60 

000000 

61 

000000 

62 

63 

000000 

L  1? 

INE-ID      MACRO  V05.03b  Saturday  29-Jun-85  13:23  Page  5 
BRARY  CAlCS  AND  LOCAL  DATA 

.SBTTL  MACRO  LIBRARY  CALLS  AND  LOCAL  DATA 

;  MACRO  LIBRARY  CALLS 

.MCALL  PDVDF$,SLTDF$,MANDf$,RETC,CIRCX$ 


000004 


000000 
000020 


000000 
000000 
000002 
000003 
000004 

000020 
000040 
000041 
000042 
000044 
000046 
000050 
000052 
000053 
000054 
000055 
000056 
000060 
000062 
000063 
000064 
000066 
000067 
000067 
000070 
000070 
000070 
000072 
000110 
000112 
000114 
000116 
000120 
000122 
000124 


000020 


PDVDF$ 
SLTDFS 
MANDFS 

CIRCXS  LIST 

CONTEXT  AREA  OFFSET  DEFINITIONS 


DEFINE  PDV  OFFSETS 
DEFINE  SLT  OFFSETS 
NICE  PROTOCOL  SYMBOLS 


.ASECT 
.  =  0 
LSNLEN 


=  16. 


MAXIMUM  NAME  LENGTH 


The  offsets  L$NAM  to  L$PDV  inclusive  must  appear  in  the  same  order 
as  in  the  CIRCXS  and  LOCCXS  macros. 


LSNAM 
LSDDM 
LSCTL 
LSUNT 
LSPVC 

LSSCN 

LSTRB 

LSPFG 

LSSLT 

LSNXT 

LSSNM 

LSTPT 

LSTNM 

L$CT8 

LSCHN 

LSFDV 

LSMSG 

LSBUF 

LSOPT 

LSTYP 

LSFLG 

LSSLEN 

LSPRO: 

LSMTVP 

LSTSZ 

LSLTM 

LSFLX 

LSSCR 

LSADJ 

LSNOD 

LSCOU 

LSPLB 

LSPAR 

LISYL 

LSLEN 


.BLKW  1 
.8LK8  1 
.B'.KB  1 
.BLKW  1 
.  =  0+L$NLEN 
.BLKB   LSNLEN 


.8LKB 
.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 
.BLKb 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.BLKW 
.BLKE 


.BLKB   1 


.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.8LKW 
.BLKW 


DEVICE  NAME 

CONTROLLER  NUMBER 

UNIT  NUMBER 

3RD  WORD  OF  PVC  NAME 
SPACE  FOR  EXPANDED  CIRCUIT  NAME 

;  CURRENT  NAME  IN  WILDCARD  SCAN 
TRIBUTARY  NUMBER 
PARSE  FLAGS 

Current  SLT/PVC  address 
Pointer  to  next  SLT/PVC  address 
REMAINING  NUMBER  OF  SYSTEM  LINES 
Current  tributary  pointer  (-1  for  PSD 
REMAINING  NUMBER  OF  TRIBUTARIES 
CURRENT  TRIBUTARY  NUMBER 
Channel  number  /  X.25  port  number  and 
...  PDV  assigned 
ERROR  MESSAGE  STRING  POINTER 
SAVED  BUFFER  POINTER 
SAVED  OPTIONS  BYTE 
LINE-ID  FORMAT  TYPE 
FLAG  WORD 

Significant  length  of  circuit  name 
Line  protocol 

Network  management  circuit  type 
Block  size  for  transport  circuits 
Listen  timer  for  transport  circuits 
Flags  word  for  X.25  circuit  commands 
SCRATCH  BUFFER 

Pointer  to  adjacency  database 
Adjacent  node  address 
Count  of  adjacency  entries 
PLB  address 
PARAMETER  TYPE 
System  line  number 
LENGTH  OF  CONTEXT  AREA 


PAR<;F  A  I  INF-ID 
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PRSLIN  • 

-  PARSE  A  LINE- 

-ID 

MACRO  V 

Symbol 

'able 

A$$CHIC= 

000000 

LF$MLT= 

040000 

A$tCPS= 

000000 

LF$REA= 

000001 

A$$PR1= 

000000 

LF$SEG= 

100000 

A$STRP= 

000000 

LF$SIG= 

000040 

BITO  = 

000001 

LF$SI<;P= 

000004 

BIT!   = 

000002 

LF$VR2= 

000010 

B1T10  = 

002000 

LF$ZER= 

000002 

BIT11  = 

OOAOOO 

LF.ACT= 

100000 

BIT12  = 

010000 

LF.BRO= 

000400 

B1T13  = 

020000 

LF.BUT= 

000007 

BITU  = 

040000 

LF.ENA= 

002000 

BIT15  = 

100000 

LF.LPB= 

001000 

BIT2  = 

000004 

LF.MDC= 

000100 

BIT3  = 

000010 

LF.MFL= 

004000 

B1T4  = 

000020 

LF.MTP= 

000020 

Bn5  = 

000040 

LF.PAC= 

000200 

BIT6  = 

000100 

LF.RDY= 

040000 

B1T7  = 

000200 

LF.REA= 

010000 

BITS  = 

000400 

LF.SER= 

000040 

BIT9  = 

001000 

LF.TII»I= 

000010 

B$10 

000003 

LF.UNL= 

020000 

B$11 

000004 

LF.X2P= 

000000 

B$12 

000005 

LN.CLO= 

000000 

B$5 

000000 

LN.DUM= 

000005 

B$6 

000001 

LN.LOA= 

000004 

B$7 

000002 

LN.LOO= 

000003 

B$7S10 

000006 

LN.OAU= 

000003 

CATS 

000256R 

LN.OFF= 

000001 

CDTB 

000400R 

LN.ON  = 

000000 

CHKDEV 

000530R 

LN.OOP= 

000004 

CHKMUX 

000476R 

LN.OPE= 

000001 

CHKWLD 

000730R 

LN.REF= 

000002 

CVTBL 

000250R 

LN.SER= 

000002 

C$$CKP= 

000000 

LN.STA= 

000017 

C$$ORE= 

000400 

LN.SUB= 

000360 

C$$RSH= 

177564 

LN.TRI= 

000006 

D$$BUG= 

177514 

LP$MPT= 

000010 

D$$ISK= 

000000 

LP$MUX= 

000004 

D$$Ln  = 

000001 

LP$TRB= 

000002 

D$$YNC= 

000000 

LP$UNT= 

000001 

D$$YNM= 

000000 

LP$WCN= 

000040 

E$$XPR= 

000000 

LP$UDV= 

000020 

F$$LVL= 

000001 

LP$WLD= 

000360 

G$$TPP= 

000000 

LP$WTR= 

000200 

G$$TSS= 

000000 

LP$UUN= 

000100 

G$$TTK= 

000000 

LSADJ 

000110 

G$$WRD= 

000000 

L$BUF 

000060 

I$$RAR= 

000000 

LSCHN 

000054 

I$$RDN= 

000000 

LSCOU 

000114 

K$$CNT= 

177546 

L$CTB 

000053 

K$$CSR= 

177546 

L$CTL 

000002 

K$$LDC= 

000000 

L$DDM 

000000 

K$$TPS= 

00007A 

L$FLG 

000064 

LCSEXT 

000000 

LSFLX 

000070 

LC$INT 

000001 

L$LEN 

000124 

LDSLP  = 

000000 

LSLTM 

000070 

L''$EW  = 

000020 

LSMSG 

000056 

MACRO  V05.03b  Saturday  29-Jun-85 


LSMTYP 

L$NAM 

L$NLEN= 

L$NOD 

LSNXT 

LIOPT 

L$PAR 

L$PDV 

L$PFG 

L$PL8 

L$PRO 

LSPVC 

L$SCN 

LSSCR 

LSSLEN 

L$SLT 

L$SNM 

L$SYL 

L$TNM 

L$TPT 

L$TRB 

L$TSZ 

L$TYP 

LSUNT 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L . OWNR 

L.UNT 

MBSDIS 

MBSENA 

HBSFUL 

MBSMIX 

MBSONE 

MBSRXO 

HBSTXO 

MBSZER 

MCSBAB 

MCSBID 

MCIBMC 

MC$BSC 

MCSCAC 
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-1 

000067 

MCSCAP 

001440 

000000 

MCSCCL 

001445 

000020 

MC$CDC 

002045 

000112 

HCSCDP 

001441 

000044 

MCSCIF 

001465 

HC$CLD 

001464 

000120 

MCSCOU 

100000 

000055 

MCSCTL 

001454 

000041 

MCSCTR 

001452 

000116 

MCSCTS 

001453 

000067 

MCSDOV 

002050 

000004 

MCSLBR 

001750 

000020 

MCSLBS 

001751 

000072 

MCSLDI 

001774 

000066 

MCSLDO 

001775 

000042 

MCSLDR 

001762 

000046 

MCSLDS 

001763 

MCSLLB 

002021 

000052 

HCSLLP 

002115 

00004§ 

MC$LLR 

002007 

MCSLOO 

000001 

000070 

MCSLRB 

002020 

000063 

MCSLRP 

002114 

000003 

MCSLRR 

002006 

000000 

MCSLSI 

002032 

000000 

MCSLST 

002033 

000001 

MCSLUP 

006072 

000000 

MCSMAP 

010000 

000015 

MCSMBL 

001764 

000012 

MCSMBX 

004420 

177776 

MCSHBY 

001752 

000002 

MCSMPX 

004406 

000004 

MCSNAP 

001604 

000003 

MCSNBR 

001130 

000006 

MCSNBS 

001131 

000010 

MCSNCR 

001154 

000000 

MCSNCS 

001155 

000016 

MCSNML 

001274 

000022 

MCSNMR 

001142 

000022 

MCSNMS 

001143 

000020 

MCSNNO 

001606 

000014 

MCSNNU 

001605 

000021 

MCSNOP 

001607 

000013 

MCSNOR 

000000 

000001 

MCSNPF 

001616 

000000 

MCSNPR 

001630 

000002 

MCSNRE 

001200 

000002 

MCSNRT 

001166 

000001 

MCSNVR 

001642 

000001 

MC$P08 

000000 

000000 

MCSPU 

000001 

000000 

MCSRFL 

002046 

006073 

MCSSBU 

002051 

001765 

MCSSfL 

002044 

001767 

MCSSYC 

000012 

001766 

MCSSYL 

000036 

001442 

MCSSYR 

000050 

MCSSYS 

MCSSYZ 

MCSTBR 

MC$T8S 

MCSTDR 

MCSIIM 

MCSTYP 

MCSUBU 

MCSUFD 

MCSUMR 

MCSUMS 

MCSVAX 

MCSWID 

MCSWIH 

MCSWIL 

MC$W08 

MC$W16 

MC$W32 

HCSXBR 

MCSXBS 

MCSXCJ 

MCSXCR 

MCSXCS 

MCSXDR 

MCSXDS 

MCSXFR 

MCSXFS 

HCSXLJ 

MCSXLR 

MCSXMA 

MC$XMC 

MCSXMS 

MCSXNR 

MCSXRC 

MCSXRR 

MCSXRS 

MC$020 

MDSCI 

MDSCNA 

NDSCOU 

MD$OA 

MDSDL 

MDSDLV 

MDSDMC 

MDSDMF 

MDSDMP 

MDSDMR 

MDSDMV 

MDSDN 

MDSDP 

HDSDPV 

MDSDQ 

MDSDTE 

MDSDU 

MDSDUP 

MDSDV 

MD$DZ 


000024 
000000 
001140 
001141 
002053 
000000 
007777 
002052 
002047 
001132 
001133 
000003 
060000 
040000 
020000 
020000 
040000 
060000 
001750 
001751 
000322 
002260 
002261 
001762 
001763 
002272 
002273 
000323 
002330 
000310 
002305 
002304 
002332 
002316 
002331 
002342 
000002 
000007 
000003 
000001 
000010 
000004 
000020 
000014 
000046 
000022 
000050 
000042 
000016 
000000 
000044 
000006 
000024 
000002 
000012 
000026 
000030 
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1,  1* 
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66 

67 

68 

69 

70 

71 

72 

73 

Ik 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8'!. 

85 

86 

87 

88 

89 

90  000000 

91  000000 

005700 

92  000002 

002426 

93  000004 

020027  000077 

9A  000010 

003023 

95  000012 

010046 

96  OOOOU 

010001 

97  000016 

006200 

98  000020 

006200 

99  000022 

006200 

100  000024 

042701   177770 

101  000030 

012702  000001 

102  000034 

005701 

103  000036 

003403 

104  0000'' 0 

006302 

105  000042 

005301 

106  000044 

000773 

107  000046 

150260  OOOOOOG 

108  000052 

012600 

109  000054 

000241 

110  000056 

000401 

111  000060 

000261 

112  000062 

000207 

.SBTTL   CKEVE  -  COMMON  ROUTINE  TO  CHECK  AND  PROCESS  AN  EVENT  NUMBER 

*•*  CKEVE  -  COMMON  ROUTINE  TO  CHECK  AND  PROCESS  AN  EVENT  NUMBER 
FUNCTION: 

CHECK  RANGE  OF  EVENT  NUMBER  AND  IF  OK,  SET  PROPER  BIT  IN  EVENT  MASK. 
INPUTS: 

RO     -  EVENT  NUMBER 

OUTPUTS: 

C-eiT  -  IF  SUCCESS,  CLEAR;  ELSE  SET 
RO     -  IF  SUCCESS,  PRESERVED;   ELSE  -1 
$EVENT  -  BIT  SET  TO  CORRESPOND  TO  EVENT  NUMBER 

REGISTERS  R3,  R4,  R5  ARE  PRESERVED 


CHECK  NUMBER 

BR  IF  ERROR 

COMPARE  NUMBER  TO  63. 

BR  IF  <63. 

SAVE  THE  NUMBER 

COPY  THE  NUMBER 

MAKE  THE  NUMBER  A  BYTE  INDEX 

BY  DIVIDING  IT 

BY  EIGHT 

FIGURE  BIT  POSITION  WITHIN  BYTE 

START  WITH  A  BIT  IN  POSITION  0 

CHECK  SHIFT  COUNT 

BR  IF  SHIFT  COUNT  <=  0 

SHIFT  BIT  LEFT  ONE  POSITION 

DECREMENT  SHIFT  COUNT 

MERGE  BIT  INTO  BIT  ACCUMULATOR 

RESTORE  THE  NUMBER 

RETURN  SUCCESS  CONDITION  CODE 


;  PROCEDURE  BODY 

CKEVE: 

TST 

RO 

BLT 

30$ 

CMP 

R0,#63. 

BGT 

30$ 

MOV 

R0,-(SP) 

MOV 

R0,R1 

ASR 

RO 

ASR 

RO 

ASR 

RO 

BIC 

#177770, R1 

MOV 

#1,R2 

10$:    TST 

Rl 

BLE 

20$ 

ASL 

R2 

DEC 

Rl 

BR 

10$ 

20$:    BIS8 

R2,$EVENT(R0) 

MOV 

(SP)t,RO 

CLC 

BR 

40$ 

30$:    SEC 

40$:    RETURN 

INDICATF  ERROR 
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PRSMOD  - 

PARSE 

ACTION   ROUTINES 

MACRO  V05 

.MOCA'   - 

PARSE 

CALL    TIMER 

85 

8A 

85 

86 

87 

88 

89 

90 

91 

92 

000054 

93 

00005A 

005767     OOOOOOG 

94 

000060 

001007 

95 

000062 

105767     000001G 

96 

000066 

001004 

97 

000070 

116767     OOOOOOG 

OOOOOOG 

98 

000076 

000207 

99 

000100 

000167     000402 

1 

MACRO  V05.0?b  Saturday  29-Jun-85 


I.  15 

05:1 


9     Page  5 


INPUTS 
OUTPUT 

MOCAT: 


.SBTTL      .MOCAT   -  PARSE    CALL    TIMER 
MOCAT    -  PARSE    CALL    TIMER 

.TPARS  VARIABLES. 


10$: 


TST 

BNE 

TSTB 

BNE 

MOVB 

RETURN 

JMP 


$CALT   =   PARSED  CALL   TIMER 

THE    TRANSITION    IS  ACCEPTED/REJECTED. 


.PNUMH 

10$ 

.PNUMBO 

10$ 

.PNUMB,$CALT 

ILLNUM 


HIGH  ORDER  WORD 

REJECT    IF    TOO  HIGH 

TEST   HIGH  BYTE 

BR    IF      ILLEGAL   NUMBER 

MOVE    VALUE    TO  PARSED   AREA 
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MOINC   -  INITIALI7E  CHANNEL  LIST 


W^ 


337 

338 

339 

3^0 

3^1 

3^.2 

3A3 

3^4 

3A5 

3^6 

3^.7  000552 

3'.8  000552  005C67 

3'.9  000556  000207 

350 


.SSTTL   .MOINC   -  INITIALIZE  CHANNEL  LIST 
••  .MOINC  -  INITIALIZE  CHANNEL  LIST 
INPUTS       NONE. 
OUTPUT        THE  CHANNEL  LIST  IS  INITIALIZED. 


OOOOOOG 


.MOINC  .-I 


CLR     SCHNLS 
RETURN 


NO  CHANNELS,  YET 
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in 
112 
113 

.LIST 

BEX 

;•  DPS  FOR  GINS 

DIRECTIVE 

IK 

115  000K6 

116  0001 50 

117  000152 
118 

119 

120 

121  000000 

122 

123  000000 

124  000002 

125  OOOOOA 

126  000006 

127  000010 

128  000012 

129  000156 
130 

131  000156 
132 

251 
000001 
000156' 

004 

000005 

GINDPB:  .BYTE 
.UORD 
.WORD 

;69.,4. 

GINBUF, <GS8LEN/2> 

!•  OFFSETS  FOR  RETURNED  INFO: 

OOOCOO 

GSSVUIC 
GSL8UIC 
GSCRUIC 
GSPRUIC 
GSLGUIC 
GS8LEN: 

.ASECT 

.=0 
.8LKU 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.PSECT 

GINBUF: 

.BIK8 

GSBLEN 

SYSTEM  UK 
LIBRARY  UIC 
CURRENT  UIC 
PROTECTION  UIC 
LOGIN  UIC 
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SYMBOL  CROSS  REFERENCE 
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CREF       0^.00 


SYMBOL  VALUE 


$MVASC 

r  * t **** 

GX 

SNUMBR 

=  000002 

SOBUF 

000004 

HG 

tOFDB 

=  ***♦♦♦ 

GX 

tPSIPT 

r  ****** 

GX 

$RAD50 

=  000016 

IRDATA 

-   ****** 

GX 

SRONLY 

r  ****** 

SSTRNG 

=  OOOOOA 

SSUBXP 

=  000010 

SSVUPD 

=  *  *  -t  *  ♦  * 

GX 

SUPEVT 

=  ****** 

GX 

SUPOBJ 

:r  ****** 

GX 

SUPPSN 

=  ****** 

GX 

SUPREM 

r  ****** 

GX 

SUPSVC 

r  ****** 

GX 

SWDATA 

=  ****** 

GX 

SZCOU 

000136 

RG 

$ZCOUL 

=  000007 

G 

SZMFL 

000120 

RG 

SZMFLL 

=  000007 

G 

SZTIM 

000127 

RG 

SZTIML 

=  000007 

Ci 

$$$FLG 

=   177777 

$$$KEY 

=  Miin 

.POINT 

-      ****** 

GX 

.P5TCN 

-   ****** 

GX 

.PSTPT 

-   ****** 

GX 

.1PAR5 

~      ****** 

GX 

REFERENCES 

9-305 
#5-138 
#A-101 

6-220 

13-388 
#5-138 

6-217 

5-138 
#5-138 
#5-138 

13-391 

13-395 

13-394 

13-390 

13-396 

13-393 

6-248 
#4-108 
#4-109 
#4-104 
#4-105 
#4-106 
#4-107 
#5-138 
#5-138 

6-211 

10-323 

10-325 

6-226 


10-327 

♦9-306 
♦6-246 


5-138 


10-326         ♦10-328  12-370 

♦8-285 


5-138 


4--;  09 
4-105 
4-107 


CFEuPD 


CREATED  BY     MACRO     ON  29-JUN-85   AT  05:15 


PAGE   3 


N    2 


EVTTBL  -  EVENT  LOGGING  TABLES 
Table  '-'    -ontents 


M  3 

MACRO  V05.03b  Saturday  29-Jun-85  05:16 


A8 
73 


Macro  calls 

Known  events  table 
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DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


PRSACT  -  PARSE  ACTION  ROUTINES 
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RNHNA  -  PARSE  REMOTE  OR  EXE  NODE  HOST 
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A28 
429 
430 
431 
432 
433 
434 
435 
436 
437 

438  001172 

439  001172 

440  001176 

441  001200 

442  001206 

443  001210 

444  001216 

445  001220 

446  001226 
447 

448  001230 

449  001234 

450  001236 

451  001244 

452  001246 

453  001252 


.SBTTL  .RNHNA  -  PARSE  REMOTE  OR  EXE  NODE  HOST 

INPUTS:      tpars  i/ariables 

OUTPUT:       SNODAD  =  HOST  NODE  ADDRESS 

TRANSITION  REJECTED  IF  NODE  NAME  IS  NOT  EXEC'S  AND  IT  IS  NOT  FOUND 
IN  REMOTE  NODE  LIST 


004767 
103423 
026767 
001010 
026767 
001004 
016767 
000411 


177176 

OOOOOOG  OOOOOOG 

000002G  000002G 

OOOOOOG  OOOOOOG 


.RNHNA: 


10$: 


004767     000020 

103404 

016067     000010     OOOOOOG 

000402 

062716  000002        20$: 

000207  30$: 


CALL 

BCS 

CMP 

BNE 

CMP 

BNE 

MOV 

BR 

CALL 

BCS 

MOV 

BR 

ADD 

RETURN 


NODNAM 

20$ 

$N0DNA,$NTNAM 

10$  . 

$NODNA+2,$NTNAM+2 

10$ 

$NTADD,$NODAD   ; 

30$ 


CONVERT  NAME  TO  RAD50 

IF  CS,  BAD  NAME,  REJECT  TRANSISTION 

EXECUTOR  NAME  ? 

IF  NE,  NO 

;  EXEC  NAME  ? 

IF  NE,  NO 

ELSE,  TAKE  EXECUTOR  ^'ODE  ADDRESS 

AND  MAKE  LIKE  UE  HAD  IT  ALL  ALONG 


FNDNAM         ;  TAKE  NAME  AND  GET  REMOTE  ADDRESS 

20$  ;  IF  CS,  NO  ADDRESS,  REJECT  TRANSITION 

C.ADD(RO),$NODAD;  TAKE  ADDRESS  FROM  TEMPLATE 

30$  ;  AND  ACCEPT  TRANSITION 

#2,(SP) 


N  / 
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PRSCIR  -  PARSE  ^   ClRCUlT-ID 
LOCM  DATA 

77 
78 
79 


y   0 
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.SBTTL  LOCAL  DATA 
LOCAL  DATA 


81 
82 
83 

8^  000000 
000003 
85 
86 
87 


130 
055 

00000^ 


062 


065 


IF  DF  R$$11S 
ENTTYP:  .WORD 

.IFF 
XPREF:   .ASCII 


0 
/X25-/ 


ENTITY  TYPE 

Prefix  for  new  X.25  PVC's 


XPREFL  =:  .-XPREF 
.ENDC  ;  DF  R$$11S 
.EVEN 


PRSfIR  -  PARSE  A  CIRCUIT-ID 
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PRSCIR  -  PARSE    A   CIRCUIT-ID 
PDVAD   -  GET    THE    PDV  ADDRESS 


609 
610 
611 
612 
613 

61*; 

615 
616 
617 
618 
619 
620 
621 
622 
623 

625 
626 

627  001334 

628  001334 

629  001340 

630  001344 

631  001346 

632  001350 

633  0C1354 

634  0^1356 

635  001364 

636  001366 

637  001370 


016502  000000 


103411 
010204 
067704 
011404 
132764 
001001 
000261 
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.SBTTL  PDVAD  -  GET  THE  PDV  ADDRESS 

'**-PDVAD-GET  THE  PDV  ADDRESS 

THIS  ROUTINE  IS  CALLED  TO  RETURN  THE  PDV  INDEX  AND  ADDRESS 
FOR  A  DDM. 

INPUTS: 

R5  -  ADDRESS  OF  CONTEX:  AREA  WITN 
L$DDM(R5)  =  DDM  NAME  IN  RAD50 

OUTPUTS: 

IF  CC,  PROCESS  FOUND  AND  IS  A  DDM 
R2  =  PDV  INDEX 
R4  =  PDV  ADDRESS 
ELSE,  ERROR 


PDVAD: 


OOOOOOG 
000001  000010 


MOV 

L$DDM(R5),R2 

;  GET   OCESS  NAME 

CALL 

aPDVID 

;  FIND  iT'S  PDV  ID 

;  RJK05 

BCS 

10$ 

;  IF  CC,  LINE  NOT  IN  SYSTEM 

MOV 

R2,R4 

;  COPY  THE  PDV  INDEX 

ADD 

SPDVTA,R4 

;  GET  THE  PDV  ADDRESS 

;  RJI<;05 

MOV 

(fi4),R4 

;  POINT  TO  THE  PDV 

8IT8 

*ZF.DDM,Z.FLG(R4) 

;  IS  THE  PROCESS  A  DDM  ? 

BNE 

10$ 

;  IF  NE,  YES 

SEC 

;  ELSE,  ERROR 

10$: 


RETURN 


PRSCIR  -  PARSF  A  CIRCUIT-ID 
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1 
2 
3 
A 
5 
6 
7 

8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
i.9 
50 
51 


.TITLE  PRSEXE  -  PARSE  EXECUTOR  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREO'^  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  PARSE  COMMANDS  ASSOCIATED  WITH  "DEFINE  EXECUTOR"  REQUESTS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 

DE(  :ET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  VI. 0 
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'-X 


PRSEXE   - 
EXSEG  - 

AU 
'.IS 
^16 
A17 
^18 

420 
^.21 
A22 
A23 
424 
425 
426 
427 
428 
429 
430 
431 
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EXECUTOR  SEGMENT  BUFFER  SIZE 
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001044 
001044 
001052 
001054 
001060 

001062 
001070 


016767 
001403 
005767 
001405 

012767 
062716 


OOOOOOG  OOOOOOG 
OOOOOOG 


.S8ITL 

♦»    .EXSEG 

INPUTS: 

OUTPUT: 

lEXSEG:: 

MOV 
BEQ 
TST 
BEQ 


.EXSEG  -  EXECUTOR  SEGMENT  BUFFER  SIZE 
-  EXECUTOR  SEGMENT  BUFFER  SIZE 
TPARS  CONVENTIONS. 
$ESEG   =  PARSED  EXECUTOR  SEGMENT  SUFFER  SIZE 


OOOOOOG  OOOOOOG  10$: 
000002 


MOV 
ADD 


.PNUMB,$ESEG 
10$ 

.PNUMH 
20$ 

#ERRILN,$ERROR 
#2,(SP) 


MOVE  IT 
IF  EO,  ERROR 
TOO  HIGH  ? 
IF  EQ,  OK 

error  in  number 

else  reject  transition 


001074  000207 


20$:    RETURN 
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MACRO  LIBRARY  CALLS  AND  LOCAL  DATA 
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000000 


00012^ 

000000 
000001 
000002 
000003 
000004 
000005 
000006 

000000 


.PSECT 
OFFSETS  INTO  SCRATCH  BUFFER  (L$SCR)  FOR  DMC  BASE  TABLE  COUNTERS 


000000 


;  OFFSETS  INTO  SC 

.ASECT 

.=0 

B$5: 

.8LK8   1 

B$6.- 

.BLK8   1 

B$7; 

.8LKB   1 

B$10; 

.BLKB   1 

Bill: 

.8LK8   1 

B$12: 

.BLKB   1 

B$7S10: 

.BLKB   1 

.EVEN 

.PSECT 

RASE 

TABLE 

+ 

5 

RASE 

TABLE 

+ 

6 

RASE 

TABLE 

+ 

/ 

RASE 

TABLE 

+ 

10 

BASF 

TABLE 

+ 

11 

BASE 

TABLE 

+ 

12 

SUM  OF  BASE  TABLE  7  AND  10 


DDCI   lU    .    PAB<;P    A    I   tuF-in 
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PRSLIN  -  PARSE  A  LINE-ID 
Symbol  table 


MDSFUL 

MDtHAL 

MDtHEL 

MDKCP 

MDSKDP 

MDtKDZ 

MD$<L 

MDSKMX 

MDSKMY 

MDSLEN 

MDSPCL 

MDSQNA 

MDSUNA 

MDSWIT 

MD.ABO 

MD.ACC 

MO.AOB 

MD.BOB 

MD.DIA 

MD.DOB 

MD.DUM 

MD.fAI 

("ID.FNA 

MD.FOB 

MD.LOA 

MD.LSH 

HD.NOB 

MD . NON 

MD.PER 

MD.RES 

MD.ROB 

MD.RSH 

MD.SDU 

MD.SLO 

HD.SNA 

MD.TLO 

MD.UNA 

MD.UNR 

MD.UOB 

MD.VOL 

MESALl 

ME$AL2 

MESARE 

MESCIR 

MESEXA 

MESEXE 

MESLIM 

MESLOG 

MESMOD 

MESNOD 

ME$NON 

»1ES0BJ 

ME$0B2 

MESPRO 

MESSYS 

ME.BLO 

ME. CON 
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000000 

ME.CST 

000001 

ME.DIS 

000002 

ME. DON 

000015 

ME.FCO 

000054 

ME.FIO 

000056 

ME. FOP 

000040 

ME. FOR 

000054 

ME. FUN 

000052 

ME.GRO 

000050 

ME.HAR 

000011 

ME.IID 

000005 

ME.LCO 

000001 

ME.LPR 

000002 

ME.MPR 

000017 

ME.MVE 

000010 

ME. OPE 

000016 

ME.PLO 

000011 

ME. PHI 

000007 

ME.PNA 

00^  ■" 

HE.PRI 

OOi 

ME.PTY 

OOOUIh 

ME.PVA 

000001 

ME. RES 

000006 

HE.ROO 

000001 

ME.SIZ 

000020 

ME. SYS 

000012 

ME.UCO 

■\77777 

MFSACT 

000000 

MF$ADD 

000004 

HFSADJ 

000005 

MFSALL 

000015 

HFSBYE 

000005 

MFSCHA 

000005 

MFSDUM 

000000 

MFSEVT 

000004 

HFSFUP 

000002 

MFSKNO 

000003 

MFSLOA 

000007 

MFSLOO 

000006 

MFSREA 

000010 

HFSSIG 

000003 

MFSSPF 

000005 

MFSSYS 

000005 

MFSTES 

000000 

HFSTRA 

000200 

MFSTRI 

000001 

MFSZER 

000002 

MLSALL 

000004 

MLSCLS 

000000 

MLSCON 

•[77777 

MLSEXT 

000007 

MLSFIL 

000004 

MLSFIR 

000005 

MLSINT 

000006 

HLSKNO 

177744 

MLSMON 

177755 

MLSSYS 

177765 

177755 

177600 

177762 

177756 

177765 

177776 

177777 

177745 

177750 

177767 

177766 

177757 

177775 

177771 

177747 

177751 

177745 

177752 

177775 

177772 

177760 

177761 

177754 

177774 

177746 

177770 

177776 

000000 

177774 

177775 

000500 

000025 

000020 

000001 

000264 

\77777 

000017 

y7777^ 

000024 

177775 

000502 

000026 

000022 

000301 

000021 

000025 

100000 

000000 

000001 

000001 

000002 

000000 

000000 

140000 

000003 

000002 


MLSTOP 

MN$UNL 

MOSACC 

HOSADD 

MOSALA 

MOSALI 

MOSCHA 

MOSCIR 

MOSCLE 

MOSCOU 

MO$DAC 

MOSDEF 

MOSDPR 

MOSENT 

MOSEVE 

HOSINF 

MOSINS 

MOSLIN 

MOSLOG 

MOSMJR 

MOSNAM 

MOINIC 

MOSNOD 

MOSOFF 

MO$ON 

MOSOPT 

MOSPER 

MOSPRO 

HOSPRS 

MOSREA 

HOSSET 

HOSSTA 

MOSSUM 

HOSTSK 

MOSVOL 

MOSZER 

MPSACB 

MPSACC 

MPSACT 

MPSADD 

MPSADJ 

MPSADP 

MPSADS 

HP$AL8 

HP$AMC 

HPSAMH 

MP:mN8 

MPSASB 

MPSASC 

MPSAUS 

MPSBBT 

HPSBDF 

MP$BFQ 

MPSBLK 

MPSBLO 

MP$8MX 

MPSBNP 


000001 

000577 

000200 

000002 

000004 

000000 

000040 

000005 

000100 

000060 

000000 

000000 

000000 

000017 

000100 

000160 

000002 

000001 

000001 

000031 

000001 

000025 

000000 

000001 

000000 

000001 

000200 

000002 

000001 

000200 

000000 

000020 

000000 

000000 

000000 

000000 

000012 

000514 

004526 

000766 

001440 

006525 

004406 

000056 

001640 

001641 

004420 

000024 

004452 

000512 

002165 

002164 

002121 

001616 

001452 

002176 

006330 


MPSBRT 

MPSBSA 

MPSBSD 

MPSBSI 

MPSBSP 

MP$BUF 

MPSBUP 

MP$8US 

MPSCAC 

MP$CAS 

MPSCAT 

MPSCCS 

MPSCHN 

MPSCIR 

MPSCLK 

MPSCLN 

HPSCLT 

HPSCMB 

MPSCMK 

MPSCMX 

MPSCND 

MPSCNU 

MPSCOB 

MPSCON 

MPSCOS 

MPSCPF 

MPSCPL 

MPSCPT 

MPSCPU 

MPSCSZ 

MPSCUS 

MPSCVA 

HPSDAL 

MP$DCO= 

MPSDDT 

MPSDEL 

MPSDES 

MPSDEV 

MPSDFA 

MP$DHO= 

MPSDIA 

MPSDLB 

MP$DLG 

MP$DLI= 

MPSDLT 

MPSDRO 

MPSDST 

MPSDTE 

HP$DTY= 

MPSDUA 

MPSDUC 

MPSDUM 

MPSDUP 

MPSDVC 

MPSDUE 

HP$ELT 

MPSETY 


001620 
002176 
002203 
002200 
006551 
000170 
006524 
001645 
001750 
001762 
002210 
004406 
002141 
000144 
002151 
002126 
002211 
002142 
000557 
002155 
000510 
001755 
000511 
002126 
001604 
000250 
000252 
000226 
000161 
001755 
002127 
000540 
002570 
001464 
002177 
001151 
000156 
002114 
001520 
001465 
000175 
002571 
004521 
001466 
002200 
001441 
000454 
002140 
001452 
000207 
000210 
000202 
002127 
002114 
001321 
000157 
001605 


MPSEVE 
MP$FNC 
MPSGDT 
MPSGNM 
MPSGRO 
MPSGRP 
MPSGTY 
MPSHAD 
MP$HBT 
MPSHDD 
MPSHTM 
MPSHWA 
MPSIAT 
MP$IDE 
MPSIDP 
MPS I  HO 
MPSINA 
HPSIND 
HPSINI 
MPSITI 
MPSLAA 
MPILAN 
MPSLAR 
MPSLAS 
MPSLBS 
MPSLCO 
MPSLCT 
MPSLHL 
MPSLLE 
MPtLLO 
MPSLHB 
MPSLMX 
MPSLNA 
MPILNG 
MPILOA 
MPSLOG 
MPSLOO 
MPSLTM 
MPSLTY 
MPSLUI 
HPSMAC 
MPSMAD 
MPSMAP 
MPSMAR 
MPSMAV 
MPSMBN 
MPSMBR 
MPSMBU 
MPSMCB 
MPSMCO 
MPSMDE 
MPSHHO 
MPSMLB 
MPSMLK 
MPSMLN 
MPSMLP 
MPSMRB 


000311 
001752 
002222 
002225 
002115 
000541 
002224 
001757 
002142 
000162 
001612 
002210 
001322 
000144 
006327 
000215 
002177 
002204 
002201 
000776 
000251 
000254 
000202 
000012 
000203 
000226 
000156 
000232 
000227 
004432 
002152 
002200 
000144 
000255 
000170 
004514 
000620 
001615 
004535 
000250 
004420 
001630 
006525 
001635 
006521 
001656 
001637 
001642 
000156 
001652 
004421 
001633 
000202 
001506 
001631 
006553 
002171 


DDCl    T  h< 
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PRSLOG 
C 
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1U 
115 
116 
117 
118 
119 
120 
121 
122 
12? 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 

138  00006A 

139  000064 

140  000070 

141  000072 

142  000076 
1<,3  000100 

144  000104 

145  000106 

146  000112 


016700  OOOOOOG 

002406 

005767  OOOOOOG 

001003 

010067     OOOOOOG 

000402 

062716     000002 

0002C7 


.SBTTL   CKEVEB  -  CHECK  EVENT  RANGE  BEGINNING 

••♦  CKEVEB  -  CHECK  EVENT  RANGE  BEGINNING 

FUNCTION: 

ENSURE  THAT  NUMBER  IS  GROSSLY  WITHIN  RANGE  AND  SAVE  IT  AS  IF  IT  WERE 
THE  BEGINNING  OF  A  RANGE  OF  NUMBERS. 

INPUTS: 

.PNUMB  -  LOW  ORDER  WORD  OF  PARSED  NUMBER 
.PNUMH  -  HIGH  ORDER  WORD  OF  PARSED  NUMBER 

OUTPUTS: 

SEVBEG-  PARSED  NUMBER 

REGISTERS  R3,  R4,  R5  ARE  PRESERVED 


GET  NUMBER 

BR  IF  NUMBER  <  0 

CHECK  HIGH  ORDER  WORD 

BR  IF  NOT  WORD  VALUE 

SAVE  1ST  NUMBER  TO  WAIT  FOR  2ND 

FINISH  UP 

REJECT    THE    TRANSITION 


PROCEDURE 

BODY 

EVEB:: 

MOV 

.PNUMB.RO 

BLT 

10$ 

TST 

. PNUMH 

BNE 

10$ 

MOV 

RO.$EVBEG 

BR 

20i 

$:    ADD 

#2,(SP) 

20$: 


RETURN 


DDci  r\r 
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MOri'  -  PARSE  CLEAR  TIMER 

.S8TTL   .MOCLT  -  PARSE  CLEAR  TIMER 

•  .MOCLT  -  PARSE  CLEAR  TIMER 


101 

102 

10? 

10^ 

10S 

106 

107 

108 

109 

110  00010'!. 

Ill  000104 

005767 

112  000110 

001007 

113  000112 

105767 

11..  000116 

001004 

11'.  000120 

116767 

116  000126 

000207 

117  000150 

000167 

OOOOOOG 
000001 G 

OOOOOOG  OOOOOOG 
000352 


INPUTS 
OUTPUT 

'.MOCLT: 


.TPARS  VARIABLES. 

$CLT  =  PARSED  CLEAR  TIMER 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


10$: 


TST 
BNE 
TST8 
BNE 

Move 

RETURN 
JMP 


.PNUMH 

10$ 

.PNUMBtl 

10$ 

.PNUMB.tCLT 

ILLNUM 


HIGH  ORDER  WORD 

REJECT  IF  TOO  HIGH 

TEST  HIGH  BVTE 

BR  If   ILLEGAL  NUMBER 

MOVE  VALUE  TO  PARSED  AREA 


./fiQ  n^k  c=.«'i..-Wi 
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PR5MO0  -  PARSE  ACTION  ROUMNES 
.MOCNN  -  PARSE  CHANNEL  NUMBER 


352 
353 
354 
355 
356 
357 
358 
359 
360 
561 

362  000560 

363  000560  005767 
36A  00056'i  001350 

365  000566  016701 

366  000572  001 7A5 

367  000574  020127 

368  000600  101342 

369  000602  012700 

370  000606  062710 

371  000612  061000 

372  000614  020027 

373  000620  101002 

374  000622  010110 

375  000624  000207 
376 

377  000626  012767 

378  000634  000727 
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.SBTIL   .MOCNN  -  PARSE  CHANNEL  NUMBER 
•♦  .MOCNN  -  PARSE  CHANNEL  NUMBER 
INPUTS       .TPAfiS  VARIABLES. 
OUTPUT 


THE  PARSED  NUMBER  IS  PUT  INTO  THE  CHANNEL  LIST. 
THE  TRANSITION  IS  REJECTED  IF  THERE  IS  NO  ROOM. 


OOOOOOG 

OOOOOOG 

007777 

OOOOOuG 
000002 

OOOOOOG 


.MOCNN; 


TST 
BNE 
MOV 
BEO 
CMP 
BHI 
MOV 
ADD 
ADD 
CMP 
BHI 
MOV 
RETURN 


379 


OOOOOOG  OOOOOOG  CHNERR:  MOV 
BR 


.  PNUMH 

ILLNUM 

.PNUMB.RI 

ILLNUM 

R1,*4095. 

ILLNUM 

#$CHNLS,RO 

#2,(R0) 

(RO).RO 

R0,#$CHNND 

CHNERR 

R1,(R0) 


#ERRCHN,$ERROR 
REJECT 


TEST  HIGH  ORDER  WORD 

IF  NE,  TOO  HIGH 

GET  NUMBER 

IF  EQ,  TOO  LOW 

CHECK  HIGH  BOUND 

IF  HI,  REJECT  TRANSITION 

POINT  TO  CHANNEL  LIST 

ALLOCATE  AN  ENTRY 

POINT  TO  FIRST  FREE  SPACE 

IS  THERE  ROOM  ? 

IF  HI,  NO 

LOAD  UP 


ERROR  IN  CHANNEL  LIST 


CFEUPD   -   JPDA'E    THE    CEMB   FIlE 
MACRC   DEHNIMONS 

136 

13^ 

138  0001?0 

139 

UO 

141 

U2  000170 

143  000170 

U4  000170 

145  000170 

146  000170 

147  000170 

148  000170 

149  000170 

150  000170 

151  000170 

152  000170 

153  000170 

154  000170 

155  000170 

156  000170 

157  0001 70 

158  000170 

159  000170 

160  000170 

161  000170 

162  000170 

163  000170 

164  000170 

165  000170 

166  000170 

167  000170 

168  000170 

169  000170 
'.70  000170 

171  000170 

172  000170 

173  000170 

174  000170 

175  000170 

176  000170 
177 

178  000170 

179  000170 
180 

181  000170 

182  000170 
183 

184  000170 

185  00017^ 
186 
187 

1  gg 

189  000170 
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INITIALIZE  TABLE  GENERATION 


ISTAT$   UPDSTB,UPDKT8 
SEARCH  TABLE  FOR  DEFINITION 
STATES 


TRANS 

XBUF$DFX,SEXIT,SUP8UF 

TRANS 

XFEASDFX.SEXIT.SUPFEA 

TRANS 

XDECSDFX.SEXIT.SUPDEC 

RANS 

XLLCSDFX,SEXIT,SUPLLC 

TRANS 

XDLCSDFX.SEXIT.SUPDLC 

TRANS 

5!DDMSDFX,SEXIT,SUPDDM 

TRANS 

5!CNT$DFX,$EXIT,SUPCNT 

TRANI 

XSLTSDFX.SEXIT.SUPSLT 

TRANS 

XUNTSDFX.SEXIT.SUPUNT 

TRANS 

"DSDFX,SEXIT,SUPNOD 

TRANS 

.RSDFX.SEXn.SUPPAR 

TRANS 

,  TASDFX.SEXIT.SUPSTA 

TRANS 

X08JSDFX,$EXIT,SKIPIT 

TRANS 

3;logsst2,sexit,suplog 

TRANS 

XEVTSDFX.SEXIT.SKIPIT 

TRANS 

XREMSDFX.SEXIT.SKIPIT 

TRANS 

XStR$DFX,$EXn,SKIPIT 

TRANS 

XFILSDFX.SEXIT.SKIPIT 

TRANS 

XROUSDFX.SEXIT.SUPROU 

TRANS 

XPSNSDFX,SEXIT,SKIPIT 

TRANS 

XX3PSDFX,SEXIT,SK1PIT 

TRANS 

XDTESDFX.SEXIT.SKIPIT 

TRANS 

XCHNSDFJ1,SEXIT,SK1PIT 

TRANS 

XPVCSDFX,$EXIT,SIC!PIT 

TRANS 

5:CUGSDF!!,SEXIT,SKiPIT 

TRANS 

XDSTSDFX.SEX  T.SKIPIT 

TRANS 

XDSA$DFX,$EXIT,SKIPIT 

TRANS 

XDSCSDFX,SEXIT,SKIPIT 

TRANS 

XRDTSDFX.SEXIT.SKIPIT 

TRANS 

XX2PSDF5;,SEXir,SKIPIT 

TRANS 

XSVCSDFX.SEXIT.SKIPIT 

TRANS 

5;X29SDFX,SEXIT,SKIPIT 

TRANS 

lEND.SEXIT.CLENUP 

TRANS 

SlAMDA,SEXIT,SHOVIT 

;  "END" 

STATES 

END 

TRANS 
;  "$" 

STATES 

"END", DOLLAR 

DOLLAR 

TRANS 

•S,DF 

;  "DF" 

STATES 

uF 

TRANS 

"DF",$EXIT 

;  FINAL  STATE 

STATES 

N     2 
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MACRO  CROSS  REFERENCE  CREF       OA.OO 

MACRO  NAME  REFERENCES 

DBGTPI  #5-f38  #5-UA  #5-U5  #5-U6  #5-147  #5-148  #5-149  #5-150  #5-151  #5-152 

#5-153  #5-154  #5-155  #5-156  #5-157  #5-158  #5-159  #5-60  #5-6  #5-62 

#5-163  #5-164  #5-165  #5-166  #5-167  #5-168  #5-169  #5-170  #5-171  #5-172 

#5-173  #5-174  #5-175  #5-176 

DIRS  #4-90  #13-397  13-397  13-400         #13-409  13-409 

EPRINT  #4-75  6-243 

ERRORS  #4-64  6-214  6-230  6-250 

GTIMSS  #4-90  13-409 

GTSKSS  #4-90  13-397 

ISTATS  #4-89  5-133 

MOVS  #13-397  13-397         #13-409  13-409 

MTRANS  #5-138 

OFFS  #13-397  #13-409 

OPENSR  #4-89 

S       £i  #r-i^^3    "A-Vd    ii-Ws    n:z    irM'?    #5-i48    #5-149    #5-150    #5-151 

#5-152  #5-153  #5-154  #5-155  #5-156  #5-157  #5-158  #5-159  #5-60  #5-6 

#5-162  #5-163  #5-164  #5-165  #5-166  #5-167  #5-168  #5-169  #5-170  #5-171 

#5-172  #5-173  #5-174  #5-175  #5-176  #5-179  #5-182  #5-185 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


000012 


000001 


.TITLE  EVTTei  -  EVENT  LOGGING  TABLES 

.IDENT  /V05.00/ 

.ENABL  LC 

.RADIX  10 

Copyright  (c)  1982,  1983,  1985  by 

Digital  Equipment  Corporation,  Maynard,  Mass. 

This  software  is  furnished  under  a  license  and  may  be  used  and  copied 
only  in  accordance  with  the  terms  of  such  license  and  with  the 
inclusion  of  the  above  copyright  notice.  This  software  or  any  other 
copies  thereof  may  not  be  provided  or  otherwise  made  available  to  any 
otner  person.  No  title  to  and  ownership  of  the  software  is  hereby 
transferred, 

The  information  in  this  software  is  subject  to  change  without  notice 
and  should  not  be  construed  as  a  commitment  by  Digital  Equipment 
Corporation. 

Digital  assumes  no  responsibility  for  the  use  or  reliability  of  its 
software  on  equipment  which  is  not  supplied  by  Digital. 

Module  Description: 

CFE/NCP/VNP  -  Event  Parameter  Table 


Distributed  Systems  Software  Engineering 

Ident  history: 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

OECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


.SBTTL  Macro  calls 

...N  =  1 

.IRP    <0, 1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11,12, 13, 14, 15> 

$$$B'...'       =  ...N 

...N  =  2*...N 

.ENDR 

.MACRO   ...eiS  W,B 
$$$U'U  =  $$$W'W  I  I$i   3 


N  A 

PRMPTS  -  PROMPTS,  STRING  ASSEMB  MACRO  V05.03b  Saturday  29-Jun-85  17:01 
Table  ot  contents 

4-  59    'MACROS  AND  SYMBOLS  AND  INITIALIZATION 

5-  73    PROMPTS 


N  S 
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1 
2 
5 

5 
6 
7 
8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
A1 
A2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


$GOFF 
PRMPTS 


PROMPTS,  STRING  ASSEM8LV 


PRMPTO  -  PROMPTS,  OFFSET  ASSEMBLY 


.IF  NDF 

.TITLE 

.IFF 

.TITLE 

.ENDC 

.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  C. -PRORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COrdJ TMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT 


PROMPTS 


DISTRIBUTED  SYSTEMS  SOFTWARt  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

2.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNEi-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


PRSACT  -  PARSE  ACTION  ROUTINES 


56 
57 
58 
59 
60 
61 

62  000002 

63  000000  002  103 
6A  OOOO-il  002  103 
65  000105  002  103 
66 

67 
68 
69 
70 

71  000000 

72  000000 

73  000000 
7A  000002 

75  000004 

76  000010 
77 

78  000150 
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*** 
LOCAL  DATA 


.ENABL  LC 

.NLIST  BEX 

FX$ERR=2 

106  ERRNAM:  .ASCIZ  <EX$ERR>/CFE  - 

106  ERRADD:  .ASCIZ  <EX$ERR>/CFE  - 

106  ERREXE:  .ASCIZ  <EX$ERR>/CFE  - 

.LIST  BEX 

.EVEN 

DEFINE  REMOTE  BLOCK  OFFSETS 

.ASECT 

.=0 

.BLKW  1 

.BLKW  1 

C.NAM:   .BLKW  2 

C.ADD:   .BLKW  1 

.PSECT 


Page  4 


Noae  name  already  in  use/ 
Node  address  already  in  use/ 
Executor  node  not  allowed/ 


C.LNK 

C.STS 

REMOTE  NODE  NAME 

REMOTE  NODE  ADDRESS 


PRSACT 
FNDNAM 


PARSE    ACTION  ROUTINES 
FIND   NODE   NAME 


N  / 
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455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 

468  001254 

469  001254 

470  001260 
-,71  001262 

472  001264 

473  001266 

474  001274 

475  001276 

476  001304 

477  001306 

478  001314 

479  001316 

480  001320 
481 


012700 
011000 
000261 
001415 
122760 
001371 
026760 
001365 
026760 
001361 
000241 
000207 


.SBTTL 
»»*  -  FNDNAM 
INPUTS 


FNDNAM  -  FIND  NODE  NAME 
-  FIND  NODE  NAME 


SNODNA  =  2  WORD  RAD50  NODE  NAME 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 

RO  =  TEMPLATE  ADDRESS  IF  SUCCESS 


OOOOOOG 


FNDNAM: 
10$: 


OOOOOOG  OOOOOOG 
0000006  000004 
000002G  000006 


20$: 


MOV 

MOV 

SEC 

BEQ 

CMPB 

BNE 

'MP 

BNE 

CMP 

BNE 

CLC 

RETURN 


#$TMLST,RO 
(RO),RO 


20$  , 

*CS.REM,C.STS(RO; 

10$ 

$NODNA,C.NAM(H0) 

10$ 

$NODNA+2,C.NAM+2(R0) 

10$  ;  IF 


GET  START  OF  TEMPLATES 

GET  NEXT  TEMPLATE 

ASSUME  FAILURE 

IF  EQ,  NO  MORE  ..  ERROR 

;  IS  THIS  A  REMOTE  TEMPLATE 

IF  NE,  NO 

IS  THIS  THE  RIGHT  TEMPLATE 
IF  NE,  NO  ..  KEEP  LOOKING 
"  ;  ARE  WE  SURE  ? 
NE,  NO 


INDICATE  SUCCESS 


PRSCIR  -  PARSE  A  CIRCUIT-ID 
PRSCIR  -  PARSE  AN  ASCII  CIRCUIT 

89 

90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10^ 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123  000004 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


!:'D 
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■ID 


000004 

000010  010405 

000012  012700  000026 

000016  005024 

000020 


PARSE  AN  ASCII  CIRCUIT-ID 
PARSE  AN  ASCII  LINE-ID 


.S8TTL  PRSCIR 
.IF  DF  R$$11S 

.SBTTL  PRSLIN 
.IFTF 

♦♦-PRSCIR-PARSE  AN  ASCII  CIRCUIT-ID 

.IFT 

•*-PRSLIN-PARSE  AN  ASCII  LINE-ID 

.ENDC 

THIS  ROUTINE  PARSES  AN  ASCII  IMAGE  CIRCUIT-IO  STRING  INTO 
DEVICE,  CONTROLLER,  UNIT  AND  TRIBUTARY  NUMBERS.  WILD  CARDS 
ARE  ALLOWED  IN  CONTROLLER,  UNIT  AND  TRIBUTARY  FIELDS. 

INPUTS: 

Rl  =  ADDRESS  OF  IMAGE  CIRCUIT-ID  STRING 
R4  =  ADDRESS  OF  OUTPUT  PARAMETER  BLOCK 

OUTPUTS: 

C-BIT  CLEAR:  ,      ,,   .    .  , 

Rl  =  ADDRESS  OF  NEXT  BYTE  AFTER  CIRCUIT-ID  (unless  X.25  circuit) 
R4  =  ADDRESS  OF  THE  PARAMETER  BLOCK 

C-BIT  SET: 

INVALID  CIRCUIT-ID  SYNTAX  OR  UNRECOGNIZED  CIRCUIT  (ERROR  CODE  IN  RO) 

For  X.25  permanent  circuits,  L$SLT  contains  the  unmapped  address 

of  the  PVC  name  block. 

For  new  X.25  permanent  circuits,  LSSLT  is  0  and  L$TPT  is  -1. 


REGISTERS: 

R3,  R4. 


R5  ARE  PRESERVED 


PRSCIR:: 

.IF  DF  R$$11S 
TST 


(PC)  + 


PRSLIN: 
.ENDC 

10$: 


SEC 
ROR 

CALL 

MOV 

MOV 

CLR 

SOB 


ENTTYP 

$SAV,L 
R4,R5 

#^L$PDV/2>,R0 
(R4)  + 
R0,10$ 


.IF  DF  S'iSBAS  1  RStRTR 

CALL  STRCIR 

BCC  120$ 

.ENDC  ;  DF  S$$BAS  I  R$$RTR 

.IF  NDF  R$$11S  £  R$$PR0 


CLEAR  CARRY  FOR  CIRCUIT 


SET  CARRY  FOR  LINE 
SAVE  ENTITY  INDICATOR 

SAVE  ALL  REGISTERS 

COPY  BUFFER  POINTER 

SET  LENGTH  OF  BUFFER  TO  CLEAR 

INITIALIZE  OUTPUT  AREA 


Translate  logical  name 
it  CC,  parsing  all  done 


N  9 

PRSCIR  -  PARSE  A  CIRCUIT-ID     MACRO  V05.03b  Saturday  29-Jun-85  15:20 
CH<WLD  -  CHECK  FOR  WILD  CARD  FIELD 
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639 

6A0 

6U 

6A2 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663  001372 

664  001372 

005002 

665  001374 

121027  000052 

666  001400 

001013 

667  001402 

005200 

668  001404 

005202 

669  001406 

020400 

670  001410 

001410 

671  001412 

122003 

672  001414 

001005 

673  001416 

020400 

674  001420 

001404 

675  001422 

103402 

676  001424 

005002 

677  001426 

000401 

678 

679  001430 

000261 

680  001432 

681 

682 

683 

634 

000001 

.SBTTL  CHKULD  -  CHECK  FOR  WILD  CARD  FIELD 

**-CHKWLD-CHECK  FOR  UILD  CARD  FIELD 

THIS  ROUTINE  CHECKS  FOR  LEGAL  WILD  CARD  SYNTAX. 

INPUTS: 

RO  =  ADDRESS  OF  NEXT  BYTE  IN  STRING 

R3  =  LEGAL  TERMINATING  CHARACTER 

R4  =  ADDRESS  OF  THE  END  OF  THE  STRING  +  1 

OUTPUTS: 

C-BIT  CLEAR: 

RO  =  ADDRESS  OF  NEXT  BYTE  IN  STRING 

R2  =  COMPLETION  CODE  (  0  =  MORE  IN  THE  STRING) 

(  ,MOT  0  =  NO  MOPE  IN  THE  STRING) 
C-BIT  SET: 
R2  =  COMPLETION  CODE  (  0  =  *  NOT  FOUND) 

(  1  =  *  FOUND,  NOT  FOLLOWED  BY  VALID  TERMINATOR) 


REGISTERS: 

R3,  R4, 


CHKWLD: 

CLR 

CMPB 

BNE 

INC 

INC 

CMP 

BEQ 

CMPB 

BNE 

CMP 

BEQ 

BLO 

CLR 

BR 

10':    SEC 
20$:    RETURN 


R5  ARE  PRESERVED 


R2 

(RO),*'* 

10$ 

RO 

R2 

R4,R0 

20i 

(R0)+,R3 

10$ 

R4,R0 

20i 

10$ 

R2 

20$ 


ASSUME  '*'  NOT  FOUND 

WILD  CARD  ? 

IF  NE,  NO  -  RETURN 

SKIP  OVER  CHARACTER 

ASSUME  END  OF  STRING 

AT  END  OF  STRING  YET  ? 

IF  EQ,  YES 

LEGAL  TERMINATOR  ? 

IF  NE,  NO  -  RETURN 

AT  END  OF  STRING  ? 

IF  EQ,  YES  -  RETURN 

IF  LO,  ERROR 

ELSE,  INDICATE  MORE  IN  STRING 

AND  RETURN 


.DSA8L  LSe 
.END 
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55 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT,RO 

CALL  SPRINT 

.ENDM  PRINT 


OOOWO 
000004 


**** 
LOCAL  DATA 


STRMX   =  32. 
C.ADD   =  4 


POINT  RO  AT  ADDRESS  Of  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


MAXIMUM  OF  32.  CHARS  IN  A  NODE  ID  STRING 
OFFSET  0''  MAX  NODE  ADDRESS  IN  ROUTING  TEMPLATE 


PRSEXE  - 
.EXINA  - 

A35 
1,% 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 


N  11 
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EXECUTOR  INACTIVITY  TIMER 

.SSTTL   .EXINA  -  EXECUTOR  INACTIVITY  TIMER 

*    .EXINA  -  EXECUTOR  INACTIVITY  TIMER 


001076 
001076 
001104 
001106 
001112 
001114 
001120 

001122 
001130 


116767 
001406 
005767 
001003 
105767 
001405 

01276' 
0627,6 


OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOIG 


OOOOOOG  OOOOOOG  10$: 
000002 


INPUTS: 

OUTPUT: 

iEXINA: 


001134  000207 


20$: 


Move 

BEQ 

TST 

BNE 

TST8 

BEQ 

MOV 
ADD 

RETURN 


TPARS  CONVENTIONS. 

$EINA   =  PARSED  EXECUTOR  INACTIVITY  TIMER 


.PNUMB.SEINA 

10$ 

.PNUMH 

10$ 

.PNUMB+I 

20$ 

#tRRILN,$ERR0R 
#2,(SP) 


MOVE  IT 
IF  EQ,  ERROR 
TOO  HIGH  ? 
IF  EQ,  OK 
BYTE  VALUE? 
BR  IF  YES  -  OK 

ERROR  IN  NUMBER 

ELSE  REJECT  TRANSITION 


PRSLIN  -  PARSE  A  LINE- 
BIT  DEFINITIONS 


ID 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000360 


000001 
000002 
OOOOOA 


000010 
000020 
000040 
040000 
100000 


000001 
000002 
000004 


N  12 
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.SBTTL  BIT  DEFINITIONS 
PARSE  TLAG  DEFINITIONS  (L$PFG) 


LPSUNT 
LPSTRB 
LPSMUX 
LPSMPT 
LPSWDV 
LPSWCN 
LPSUUN 
LPSUTR 
LPSWLD 


1 

2 

4 

10 

20 

40 

100 

200 


UNIT  NUMBER  FOUND 

TRIBUTARY  NUMBER  FOUND 

DEVICE  IS  MUX 

LINE  IS  MULTIPOINT 

WILD  CARD  DEVICE  NAME  FOUND 

!LD  CARD  CONTROLLER  NUMBER  FOUND 
WILD  CARD  UNIT  NUMBER  FOUND 
WILD  CARD  TRIBUTARY  NUMBER  FOUND 


LP$WDV!LP$WCNILP$WUNlLPiWTR  ;  WILD  CARD  FIELD  MASK 


FLAGS  WORD  BIT  DEFINITIONS  (L$FLG) 

LFSREA  =  1 
LFSZER  =  2 
LFSSKP  =  4 


LF$VR2  =  10 

LF$END  =  20 

LFSSIG  =  40 

LFSMLT  =  40000 
LFSSEG  =  100000 

BIT  POSITION  DEFINITIONS 


READ  COUNTERS  OPERATION 

ZERO  COUNTERS  OPERATION 

SKIP  NEXT  "FIND  NEXT  LINE"  OPERATION. 

THIS  IS  USED  TO  FORCE  AN  EXTRA  PASS 

FOR  A  MULTIPOINT  LINE  TO  RETURN  THE 

CONTROLLER  COUNTERS  AS  WELL  AS  ALL 

OF  THE  TRIBUTARY  COUNTERS. 

CONNECTED  TO  VERSION  2.0  NCP 

EXECUTOR  IS  AN  ENDNODE 

SHOWING  SIGNIFICANT  LINES/CIRCUITS 

MULTIPLE  ADJACENCY  FLAG 

SEGMENTED  RESPONSE  IN  PROGRESS 


BITO 
RIT1 
dIT2 


000010 

BIT3  =  10 

000020 

B  T4  =  20 

000040 

B  T5  =  40 

000100 

BIT6  =  100 

000200 

BIT7  =  200 

000400 

BITS  =  400 

001000 

BIT9  =  1000 

002000 

BIT10  =  2000 

004000 

BIT11  =  4000 

010000 

BIT12  =  10000 

020000 

BITi3  =  20000 

040000 

BIT14  =  40000 

100000 

BIT15  =  100000 

64 

PRSLIN  -  PARSE  ^   LINE 
Symbol  table 


-ID 
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MP$MRO 

MPSMRP 

MPSMRT 

MPIMRV 

MPtMSB 

MPSMVE 

MPSMVI 

MPSMVR 

MPSMUN 

MPSMXB 

MP$MXC 

MPSMXR 

MPSMXW 

MPSNAA 

MPSNAC 

MPSNAP 

MPSNCT 

MPSNET 

MPSNLI 

MPSNNA 

MPSNOD 

MPSNRA 

MP$NRB 

MPSNSA 

MPSNTI 

MPSNUM 

MPSNVE 

MP$NXN= 

MPSOAC 

MPSOAN 

MPSOCO 

MPSOHO 

MPSONA 

MPSONR 

HPSOOL 

MPSOTI 

MP$OTY 

MPSOUS 

MPSOVE 

MPSOUN 

MPSPAR 

MPSPAS 

MPSPCH 

MPSPCO 

MPS'^CT 

(«IP$PDT 

MPSPHA 

MPSPHY 

MPSPLI 

MP$PLN 

MPSPLO 

MPSPMC 

MPSPNT 

MPSPRI 

MPSPRO 

MPSPSS 

MP$PST 


001605 

006322 

002153 

006320 

000170 

0001A5 

00165A 

001751 

00215-; 

002172 

000466 

001630 

002H3 

006335 

001130 

006326 

000240 

0021U 

000765 

000764 

000500 

006334 

000214 

001617 

002141 

001642 

001274 

001476 

000632 

000620 

000776 

000214 

000764 

002114 

001453 

000777 

001022 

000777 

001010 

004374 

000036 

000513 

0021 '2 

000024 

000144 

002114 

000170 

000012 

000025 

002140 

000012 

004374 

002126 

004411 

002130 

001763 

001762 


MPSRET 

MPSRFA 

MPSRMX 

MPtRPA 

MPSRPR 

MPSRRT 

MPtRST 

MPSRSV 

MPSRSZ 

MPSRTI 

MPSRTM 

MPSRVE 

MPSRVT 

MPSSAC 

MPSSAD 

MPSSCA 

HPSSCO 

MPSSCT 

HPSSDU 

MPSSDV 

HPSSEH 

HPSSER 

MPSSET 

MPSSGZ 

MPSSID 

MPSSIN 

MPSSLI 

MPSSLO 

MPSSMX 

MPSSND 

MPSSNP 

MPSSNU 

MPSSOB 

MPSSPA 

MPSSPR 

MPSSPS 

MPSSTA 

MPSSTI 

MPSSTT 

MPSSTY 

HPSSUB 

MPSSUR 

MPSSUS 

MPSSVR 

MPSSWI 

MPSSYP 

MPSTFL 

MPSTH! 

MD$TH2 

MP$TH3 

MPSTLN 

MPSTLO 

MPSTPA 

MPSTRI 

MPITST 

MPSTYP 

MPSUCS 


001631 

001323 

002201 

004374 

001606 

002213 

002212 

001754 

001756 

001616 

001611 

001604 

000156 

000514 

000543 

000310 

000144 

002176 

000203 

000160 

004401 

000144 

000000 

01/644 

000176 

000310 

000156 

000171 

002202 

000500 

006332 

000542 

000524 

000157 

000536 

000513 

000000 

002140 

002201 

000175 

000001 

000156 

000512 

000163 

002260 

002424 

000156 

002206 

002205 

002202 

000202 

000172 

004375 

002164 

000144 

002130 

004407 


HPSUSR 

MPSVEC 

MPSVFR 

MPSWDF 

MPSWMX 

MPSXHT 

MPSXPF 

MPSXPL 

MPIXPT 

MPSXXX 

MP$5ST 

MSSACT 

MSSADU 

MSSALO 

MSSASE 

MSSATR 

MSSAUT 

MSSCLE 

MSSDED 

MSSDIE 

MSSDUM 

MSSFAJ 

MSSGLO 

HSSHOL 

MSSINA 

MSSLOA 

MSSLOO 

MSSOFF 

MS$ON 

MSSPRO 

MSSREA 

MSSREF 

MSSRES 

MS$RSr 

MSSRSX 

MS$RT 

MSSSER 

MSSSHU 

MSSSRV 

MSSSTA 

MSSSYN 

MSSTER 

MSSTOP 

MSSTRI 

HSSUNR 

MSSVMS 

MS. DON 

MS.MOR 

MS. PAR 

MS. sue 

MT$AR4 

MTSASC 

MTSBIL 

MTSBYS 

MT$CI 

MTSCLE 

MTSCOD 


001750 
004410 
004406 
002165 
002177 
002166 
000242 
000244 
000240 
177777 
004406 
000001 
000010 
000007 
000006 
000011 
000000 
000003 
000004 
000003 
000004 
000013 
000000 
000002 
000002 
000003 
000002 
000001 
000000 
000006 
000004 
000001 
000003 
000001 
000002 
000005 
000002 
000002 
000007 
000000 
000012 
000001 
000003 
000005 
000005 
000004 
177600 
000002 
000003 
000001 
000003 
000100 
000001 
000011 
000007 
000077 
000200 


MT$CON 

MTSDMC 

MTSETH 

MTSHEX 

MTILPB 

MTSMAX 

MTSMUL 

MTSNLE 

HTSNON 

MT$NR4 

MTSNTY 

MT$OCT 

MTSPHA 

MTSPOl 

MT$QP2 

MTSROU 

MT$R04 

MTSSEC 

MT$SGD 

MTSSYS 

MTSTER 

MTSTRI 

MTSTYP 

MTSUSD 

MT$X25 

MUtINC 

MUSOUT 

MUSPER 

MVSni 

MVSIV 

MXSACT 

MXSCIR 

MXSCLN 

MXSCNM 

MXSCON 

MXSDAC 

MXSDTE 

HXSFIL 

MX$LGC 

MXSLIN 

MXSLON 

MXSNMS 

MXSNOD 

MXSOBJ 

MXSOUN 

MXSPAR 

MXSPAS 

MXSRAC 

MXSRID 

MX$RPS 

MXSSID 

MXSSNK 

MXSTYP 

MX$UID 

M$$CRB= 

M$$CRX= 

M$$FCS= 


000001 
000004 
000006 
000040 
000005 
000037 
000100 
000017 
000001 
000005 
000060 
000060 
000002 
000000 
00001C 
000000 
000004 
000000 
000020 
000002 
000001 
000002 
007777 
000000 
000003 
000001 
000002 
000000 
000000 
000001 
000020 
000020 
000020 
000006 
000006 
000020 
000020 
000034 
000777 
000020 
000006 
000454 
000006 
000006 
000040 
000036 
000010 
000047 
000047 
000047 
000040 
000377 
000077 
000020 
000124 
000000 
000000 


M$$HGE= 

M$$NET= 

M$$OVR= 

NM.CLN 

NM.INI 

NM.OPR 

NM.\/R2 

NM.VR3 

N$$ACC= 

N$$8UF= 

N$$LD\/= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PDVAD 

PDVID  = 

PDVTA  = 

PRSLIN 

P$$P45= 

P$$URD= 

Q$$OPT= 

R$RO  = 

R$R1  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SFSANH 

SFSDNM 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLTMA  = 

SLTNH  = 

S$$WRG= 

S$$YSZ= 


.COST 
S.FLG 
S.LEN 
S.NMST 
S.OUNR 
T$$KMG= 
T$$HIN= 
V$$CTR= 
X$$DBT= 
ZF.COU= 
ZF.DDM= 
ZF.DIA= 
Zf  .DLC  = 


000000 

000000 

000000 

003400 

002400 

003000 

002401 

002402 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

0J0001 

000662R 

******  GX 

******  GX 

OOOOOORG 

000000 

000000 

000010 

******  GX 

******  GX 

000000 

000001 

000000 

000000 

000001 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

******  GX 

******  GX 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

001000 

000000 

001000 

000001 

004000 

000002 
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U8 
U9 
150 
151 
152 
153 
ISA 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 

172  OOOIU 

173  OOOIU 

174  000120 

175  000122 

176  000126 

177  C00150 

178  000134 
179 

180 
181 

182  000152 

183  000156 

184  000160 

185  000164 

186  000170 

187  000174 

188  000176 

189  000202 


005767 
001026 
016700 
002423 
020027 
003020 
000006 


010067 
005000 
012701 
012702 
004767 
000402 
062716 
000207 


.S8TTL  CKEVEC  -  CHECK  EVENT  CLASS 

»»•  CKEVEC  -  CHECK  EVENT  CLASS 

FUNCTION: 

CHECK  RANGE  OF  EVENT  CLASS,  SAVE  IT,  AND  INITIALIZE  EVENT  MASK. 

INPUTS: 

.PNUMB  -  LOW  ORDER  WORD  OF  PARSED  NUMBER 
.PNUMH  -  HIGH  ORDER  WORD  OF  PARSED  NUMBER 

OUTPUTS: 

SEVENT  -  32  ZERO  BITS  FOR  EVENT  MASK 
SCLASS  -  EVENT  CLASS  (BITS  6-15) 

REGISTERS  R3,  R4,  R5  ARE  PRESERVED 


PROCEDURE  BODY 


OOOOOOG 
OOOOOOG 
000777 

OOOOOOG 

OOOOOOG 

000010 

000074 

000002 


CKEVEC: 


10$: 
20$: 


TST 

BNE 

MOV 

BLT 

CMP 

BGT 

.REPT 

ASL 

.ENDR 

MOV 

CLR 

MOV 

MOV 

CALL 

BR 

ADD 

RETURN 


RO 


. PNUMH 

10$ 

.PNUMB, 

10$ 

R0,#511 

lOi 

6 

RO 


RO, SCLASS 

RO 

#$EVENT,R1 

#8.,R2 

SPRAY 

20$ 

#2,(SP) 


CHECK  HIGH  ORDER  WORD 

BR  IF  HIGH  ORDER  WORD  <>  0 

GET  NUMBER 

BR  IF  CLASS  <  0 

COMPARE  CLASS  TO  511. 

BR  IF  CLASS  <=  511. 

GET  EVENT  CLASS  IN  BITS  6-15 

SAVE  CLASS  FOR  LATER 

SET  UP  TO  ZERO  BIT  ACCUMULATOR 

ADDRESS  OF  BIT  ACCUMULATOR 

ZERO  64  BITS  WORTH 

DO  IT 

REJECT  TRANSITION 


PRSMOD   -   PARSE    ACTION  ROUTINES 
.MODFtl  -   PARSE    DEFAULT    DAU 


119 
120 
121 
122 
12? 
124 
125 
126 
127 

128  000134 

129  000134 

130  OOOUO 
151   0OOU2 

132  000146 

133  000152 

134  000154 

135  000160 

136  000162 

137  000166 
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.SBTTL   .MOPFD  -  PARSE  DEFAULT  DATA 

•»  .MODFD  -  PARSE  DEFAULT  DATA 

INPUTS       .TPARS  VARIABLES. 

OUTPUT        $DFD  =  PARSED  DEFAULT  DATA 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


005767  OOOOOOG 

001'!62 

016700  OOOOOOG 

020027  000025 

103555 

020027  002005 

101152 

010067  OOOOOOQ 

000207 


TST 

.PNUMH 

BNE 

ILLNUM 

MOV 

.PNUMB.RO 

CMP 

R0,#21. 

BLO 

ILLNUM 

CMP 

R0,#1029. 

BHI 

ILLNUM 

MOV 

R0,$DfD 

RETURN 


HIGH  ORDER  WORD 

REJECT  IF  TOO  HIGH 

GET  PARSED  VALUE 

CHECK  LOW  BOUND 

IF  LO,  OUT  OF  RANGE 

CHECK  HIGH  BOUND 

IF  HI,  OUT  OF  RANGE 

MOVE  VALUE  TO  PARSED  AREA 


B 

C 

1 
1 

J 

5 

5 

f]8 

0 

1 

L 

5  PRMPTO 

G  10 

E 

1 

M 

5 

H  10 

F 

1 

N 

5 

I  10 

G 

1 

B 

6 

J  10 

H 

1 

C 

6 

K  10 

1 

1 

CFEUPD 

D 

6 

L  10 

J 

1 

E 

6 

M  10 

K 

1 

F 

6 

N  10 

L 

1 

G 

6 

B  1 

M 

1 

H 

6 

C  1 

N 

1 

I 

6 

D  1 

B 

2 

J 

6 

E  1 

r 

2 

K 

6  PRSACT 

f  1 

D 

2 

L 

6 

s  ] 

E 

2 

M 

6 

H  1 

F 

2 

N 

6 

I  1 

G 

2 

B 

7 

J   3 

H 

2 

C 

7 

K  1 

I 

2 

D 

7 

L  1 

J 

2 

E 

7 

M  1 

K 

2 

F 

7 

N  1 

L 

2 

G 

7 

B  12 

M 

2 

H 

7 

C  12 

N 

2 

I 

7 

D  12 

B 

3 

CFEUSB 

J 

7 

E  12 

C 

3 

K 

7 

F  12 

D 

3 

L 

7 

G  12 

E 

3 

M 

7 

H  12 

r 

3 

N 

7 

I  12 

G 

3 

B 

8 

J  12 

H 

3 

C 

8 

K  12 

I 

3 

D 

8 

L  12 

J 

3 

E 

8 

M  12 

K 

3 

F 

8 

N  12 

L 

3 

EVTT8L 

G 

8  PRSCIR 

B  13 

M 

3 

H 

8 

C  13 

N 

3 

I 

8 

D  13 

B 

h 

J 

8 

E  13 

C 

4 

K 

8 

F  13 

0 

I, 

L 

8 

G  13 

E 

L, 

M 

8 

H  13 

F 

4 

N 

8 

I  13 

G 

4 

B 

9 

J  13 

H 

A 

NOSNA 

C 

9 

K  13 

I 

"1 

D 

9 

L  13 

J 

4 

E 

9 

M  13 

< 

<i 

F 

9 

N  13 

L 

4 

G 

9 

B  14 

"1 

U 

PRMPTS 

H 

9 

C  14 

N 

t. 

I 

9 

D 

4 

B 

5 

J 

9 

E 

4 

r 

5 

K 

9 

F  ■ 

4 

D 

5 

L 

9 

G 

4 

E 

5 

M 

9 

H  1 

4 

F 

5 

N 

9 

I  14 

G 

5 

B 

10 

i\\ 

H 

5 

C 

10 

I 

5 

D 

10 

1 1 

4 

PRSEXE 


PRSLIN 


PRSLCG 


M 

14 

N 

•4 

R 

S 

C 

D 

■  5 

F 

•) 

F 

•5 

fi 

■b 

H 

IS 

1 

IS 

,1 

1S 

K 

IS 

1 

IS 

M 

IS 

H 

IS 

R 

16 

r 

1A 

D 

16 

F 

16 

F 

16 

R 

16 

H 

16 

I 

16 

,1 

16 

K 

16 

1 

16 

M 

16 

PRSMOD 
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MOCRN  -  MARK  CM 


381 
382 
383 
38'. 
38^ 
3bo 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
598 


on  routines 
nel  range 
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.SBTTL   .MOCRN  -  HARK  CHANNEL  RANGE 
**  .MOCRN  -  MARK  CHANNEL  RANGE 


000636 

000636  012700     OOOOOOG 

000642  061000 

000644  005760     177776 

000650  100766 

000652  052710     100000 

000656  000207 


INPUTS 
OUTPUT 

.MOCRN: 


SCHNLS  -  CHANNEL  LIST 


MOV 
ADD 
TST 
BKI 
BIS 
RETURN 


THE  LAST  CHANNEL 
THE  BEGINNING  OF 
IF  ANOTHER  RANGE 


#$LHNLS,RO 
(RUKRO 
-2(R0) 
CHNERR 
#100000, (RO) 


IN  THE  LIST  IS  MARKED  AS 

A  RANGE.  THE  TRANSITION  IS  REJECTED 

IS  CURRENTLY  ACTIVE. 


POINT  TO  CHANNEL  LIST 
POINT  TO  CURRENT  ENTRY 
CHECK  FOR  OTHER  RANGE  ACTIVE 
IF  MI,  YES  -  REJECT  TRANSITION 
MARK  RANGE  AS  ACTIVE 
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3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 
50 
51 
52 
53 


.TITLE  P.'(SOBJ  -  PARSE  OBJECTS  ACTION  ROUTINES 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  T, 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 


?5  BY 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  rgpiED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  Oi  "^ 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HERE  ■ 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  PARSE  ACTION  ROUTINES  ASSOCIATED  WITH  OBJECTS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENf  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-S? 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JiJL-85 

OECnet-IIM/S  V4.2 
DECne--11M-Plus   V3.0 
DECnet-Micro/RSX   Vl.G 


ITS 


C  2 
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ORSPRO  - 
.PRNCT  - 

106 
107 
108 
109 
110 
111 
112 
113 
lU 
115 
116 
117 
118 
119 
120 
121 
122 
123 
■124 
125 
126 
127 
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510RE  NUMBER  OF  CO^JTROLLER  %,oLES  SPECIFIED 


000116 
000116 
0001 2A 
000132 
0001 3A 
OOOHO 


116767 
026727 
10K05 
062716 
012767 


0OOU6  000207 


000001 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

000002 

OOOOOOG  OOOOOOG 


.SBTTL   .PRMCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES  SPECIFIED 
***  -  .PRNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES  SPECIFIED 
INPUT: 


OUTPUT 


.PRNCT: 


.PNUne  =  NLIM8ER  OF  CONTROLLER  TABLE  TO  BE  SET  IN  PROCESS  SPACE 
NUMBER  IS  VALIDATED  AND  THE  TRANSITION  IC  ACCEPTED/REJECTED 


10$: 


M0V8 

.PNUMB.SNCT 

STORE  TH:  CONTROLLER  COUNT 

CMP 

.PNUMB,#$MXNCT 

VALUE  IN  RANGE  ? 

BLOS 

10$ 

IF  LOS,  YES 

ADD 

#2,(SP) 

ELSE,  REJECT 

MO^ 

#ERRILN,$ERROR 

INVALID  NUMBER 

RETURN 

.END 


C  3 


^SPRG 


I.  J 
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OOOOOOG 


PRSREM  -  PARSE  ACTION  ROUTINES 
FILE  PARSING  ACTION  ROUTINES 


376 
377 
378 
379 
380 
381 
38^ 
383 
38^ 
385 

386  000736 

387  000736  005067 

388  0OO7';2  000207 
389 

390 
391 
392 
393 
394 
395 
396 
397 

398  0C07A4 

399  00074-;  026727 
AOO  000752  101366 
401 

402  000754  0167J1 

403  000760  016700 

404  000764  122721 

405  000770  001402 

406  000772  077004 

407  000774  000412 

408  000776  020027 

409  001002  003402 

410  001004  012700 

411  001010  122721 

412  001014  001402 

413  001016  077004 

414  001020  00C743 
415 

416  001022  016702 

417  001026  062702 

418  001032  00016^ 
419 

420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
4  52  00103c 
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.SBTTL   FILE  PARSING  ACTION  ROUTINES 
**  .RNCLF  -  CLEAR  TARGET  FILE  ADDRESS 
INPUTS:  NONE. 
OUTPUT:  THE  TARGET  FILE  ADDRESS  IS  CLEARED. 


OOOOOOG  000036 


OOOOOOG 
OOOOOOG 
000133 


000012 

000012 
000135 


OOOOOOG 

000000 

000000 


.RNCLF: 


CLR 
RETURN 


.RNFSP 


CLEAR  TARGET  FILE  ADDRESS 


**  CKFSP  -  check  parsed  fUespec  string 

Inputs:      .TPARS  variables. 

Output:      F.DEV(.RNFSP)=  parsed  fUespec  string 
The  transition  is  accepted/reiec ted 


CKFSP: 


5$: 


10$: 
15$: 

20$: 


CMP 
BHI 

MOV 

MOV 

CMPB 

BED 

SOB 

BR 

CMP 

OLE 

MOV 

CMPB 

BEQ 

SOB 

BR 

MOV 
ADD 
CALLR 


•♦  MOVSTR 
Inputs: 

Output: 

MOVSTR: 


.PSTCN,#MXFSP 
REJI 

.PSTPT.RI 

.PSTCN.RO 

#'C,(R1)< 

10$ 

R0,5$ 

20$ 

R0,*10. 

15$ 

*10.,R0 

#'3,(R1)t 

20$ 

R0,15$ 

REJI 

. RNFSP, R2 

#F.DEV-1,R2 

"OoTR 


Check  length 

If  HI,  too  long 

Cherk  for  UIC,  9  or  less  chrs  in  "[] 

Address  of  string 

Byte  count  of  string 

"heck  for  UIC  start 

tound  it,  go  check  UIC 

else,  cycle 

no  uic  is  ok,  continue 

got  more  than  10.  chrs  left? 

if  not,  use  current  count 

else,  only  look  at  10.  chrs 

Check  for  UIC  end 

found  it  in  time —  continue 

else,  cycle  some  more 

no  "J"  within  range,  reject  transition 

continue 

Point  to  parsed  data  area 

Move  it  to  parsed  data  area 


move  string 

.PSICN  =  length 

.PSTPT  =  string  address 

R2     =  target 

counted  string  moved  to  (R2). 

RO,  R1,  and  R2  are  clobbered. 


C     4 
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PhSSVS  -  PARSE  SYSTEM  ACTION  RO  MACRO  V05.05b  Saturday  29-Jun-85  05:20  Page  8 
.SYCBN  -  SET  MUMBER  OF  CCB'S 


K6 
1A7 
H8 
U9 
150 
151 
153 
153 
154 
155 
156 
157 
158 
159 

160  000156 

161  000156 

162  00C164 

163  000170 
16A  000172 
165  000200 
V:  000202 

167  000210 

168  ■■'■?!  2 

169  OU'  ;i6 
VO  000224 


.SBTTL   .SVCBN  -  SET  NUMBER  Of  "CB'S 
»*♦  -  .SrCBN  -  SET  NUMBER  OF  CCB'S 
INPUT: 


.PNUM8  -  CC8  NUMBER 

.PNUMK   CCB  NUMBER  (HIGH  ORDER) 


OUTPUT: 


SCCBNM  =  THE  NUfBER  OF  CCB'S 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.SYCBN: 


016767  OOOOOOG  0000006 

005767  OOOOOOG 

001010 

022767  OOOOOA  OOOOOOG 

00300A 

022767  000310  OOOOOOG 

002005 

062716  000002         5$: 

012767  OOOOOOG  OOOOOOG 

000207  10$: 


MOV 

.PNUMB, SCCBNM 

rsT 

.PNUMH 

BNE 

5$ 

CMP 

#4.,.PNUMB 

BGT 

5$ 

CMP 

*200.  ,.P^'l)MB 

BGE 

10$ 

ADD 

#2,;sp) 

MOV 

#ERRILN,$ERROR 

RETUPN 

STORE  THE  NUMBER  OF  CCB'S 

IS  IT  A  WORD  VALUE  ? 

IF   N'    ,    NO    ..    REJECT 

THE     lUMBER  OF    CCB'S   MUST   X  WHERE: 

4.    <■=   X   <=   200. 

ELSE  REJECT  THE  TRANSITION 
INVALID  NUMBER 
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PURMOD  - 
tPUXPR  - 

108 
109 
110 
111 
112 
113 
11A 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
"5 
127 
128 
12Q 


B  6 

PURGE  MODULE   MACRO  V05.03b  Saturday  29-Jun-85  05:20  Page  6 
PURGE  MODULE  X25-PROrOCOL 


.SBTTL  SPUXPR  -  PURGE  MODULE  X25-PROTOCOL 
'»**  -  iPUXPR  -  PURGE  MODULE  X25-PR0T0C0L 
INPUT: 


SOPRND  =  REQUEST  CODE 


OUTPUT: 


000500 
000500 
00050A 
0C0512 
00051 A 
000520 
000526 
000530 
000534 


004767 
032767 
001A02 

032767 
00KC2 

000207 


$PUX°R: 


001336 

OOOOOOC  OOOOOOG 


OOOOOOC  OOOOOOG  10$: 


20$: 


THE  REQUESTED  DTF  OR  GROUP  IS  PURGED. 


CALL  TSTPSI         ;  MAKE  SURE  THIS  IS  A  PSI  SYSTEM 

BIT  #XP.KNDIXP.DTE,$OPRMD  ;  PURGE  DTES  ? 

BEQ  10$  ;  IF  EQ,  NOT  DTES 

CALLR  PURDTE         ;  PURGE  DTES 

BIT  *XP.KNG:XP.CUG,$OPRND  ;  PURGE  GROUPS  ? 

BEQ  20$  ;  IGNORE  PURGE  CHARACTERISTICS 

CALLR  PURCUG         ;  PURGE  GROUPS 

RETURN 


PURMOD  -  PURGE  MODULE   MACRO  V05.03b  Saturday  29-Jun-85  05:20 
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PURMOD     CREATED  61     MACRO  ON  29-JUH-85  AT  05:20 
SYMBOL  CROSS  REFE.  NCE 


SYMBO-  VALUE 


CHKOTE 
CS.CHN 
CS.CUG 
CS.DSA 
CS.D5C 
CS.DST 
CS.DTE 
CS.LLC 
CS.MOD 
CS.PVC 
CS.RDT 
CS.X29 
CtHLEN 
CSLENX 
CSULEN 
CSUNAM 
C.STS 

DEALC 

DSADLN 

DSALEN 

DSCLEN 

DSCVLN 

DSFLNX 

DSSLEN 

DSSNAM 

D$5TYP 

DSTADR 

OSTCT 

DSTHSH 

DSTLEN 

ERRDLM 

ERRDST 

ERRNDT 

ERRIVSD 

ERRNSG 

ERRPSI 

ERRXSV 

tRRX29 

EXSERR 

GSLENX 

LSLCTM 

LSLENX 

LSlNAM 

PURCUG 

PURDTE 

P$VLEN 

P$\/nWN 

R$DLEN 

RSDNAM 

RSLENX 

SPCDST 


00100^ 

*  *  t  »  »  * 

*  t*  *** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

00206A  R 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


-   ****** 
=   ****♦•* 


****  ** 


****** 

*  **  *  Jr* 


000354  R 
900432  R 
000C67  R 
000016  R 
000150  R 
000313  R 
000173  R 
000243  R 
000002 

**♦»**  Q 
******  c 
******   f] 

******  c 
001120  R 
000536  R 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


OCOOOO  R 


GX 
GX 
GX 
GX 
GX 


REFERENCES 

7-171 

7-181 

7-189 

10-349 

10-354 

10-317 

7-151 

11-391 

11-396 

7-185 

13-447 

12-417 

7-180 

7-183 

7-188 

9-260 

7-151 

10-349 

7-178 

10-351 

10-352 

10-357 

10-356 

10-146 

10-347 

10-323 

10-319 

7-156 
♦7-166 

7-173 

7-177 
#5-102 
#5-103 
#5-97 
#5-9l. 
#5-98 
#5-101 
#5-99 
#5-100 
#5-95 

7-18? 
.11-395 

7-176 

11-593 

6-127 

6-124 

7-184 

8-227 
13-457 
13-451 
13-456 
#5-88 


#8-216 
8-221 
8-225 


8-225 


9-265 

9-266 

9-262 

7-181 

10-354 

9-267 


10-325 
8-232 


8-250 

10-371 

7-201 

10-375 

9-278 

14-486 

11-401 

12-424 

5-96 


#9-250 
#7-141 


15-4  53 
10-332 
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CREF       04.00 


9-256 


7-185 

11-391 

10-548 


10-338 


7-189 

♦11-596 

10-555 


10-340 


8-221 

12-4:7 
10-358 


8-223  8-225 

13-447 

13-458         #15-510 


9-256 


10-317 


15-469 


5-97 


5-98 


5-99 


5-100 


5-1C1 


5-102 


5-103 


PURMOD 


CREATED  BY      MACRO     ON  29-JUN-85   AT    05:20  PAGE    2 
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PURREM  -  PURGE  REMOTE  NODE     MACRO  V05.03b  Saturday  29-Jun-85  05:20 
PRGFIL  -  PURGE  SERVICE  FILE  BLOCKS 
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302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313  000522 

3K  00052A 

315  0OC53O 

316  000532 

317  00053A 

318  0005AO 

319  000542 

320  0005A6 

321  000550 

322  000552 

323  000554 

324  000560 
325 

326  000562 

327  000564 
328 

329  C00566 

330  000566 

331  0'^0572 

332  000576 
335  000602 

334  000606 

335  000612 
336 


.S8TIL   PPGFiL  -  PURGE  SERVICE  FILE  BLOCKS 
»»  PRGFIL  -  PURGE  SERVICE  FILE  BLOCKS 
INPUTS:       SOPRND  =  PARSED  OPTIONS 
OUTPUT:       THF  SPECIFIED  FILE(S)  ARE  PURGED. 
REGISTERS:    R5  IS  PRESERVED. 


012704 
012400 
001413 
032467 
001773 
066700 
011002 
001767 
005010 
004767 
000763 


000207 


000004 
000006 
000010 
000012 
000014 
000000 


000566' 

OOOOOOG 
177236 

000034 


OOOOOOG 
lOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


PRGFIL: 
1C$: 


20$: 


FT8L: 


SAVRG 

R4 

MOV 

#FT8L 

H4 

MOV 

(R4)  + 

R( 

BEQ 

20$ 

BIT 

(R4)  + 

$0PRND 

BEU 

10$ 

ADD 

FILPT 

H> 

MOV 

(R0l,R2 

BEO 

10$ 

CLR 

(RO) 

CALL 

DEAFII 

BR 

10$ 

RESRG 

R4 

RETURN 

.WORD 

F$StC 

RN.SLO 

.WORD 

F$TER 

RN.TLO 

.WORD 

F$LD, 

RN.LOD 

.WORD 

'^$DIA 

RN.DIA 

.WORD 

F$DUM 

RN.DMP 

.WORD 

0 

SAVE  NODE  ADDRESS 

POINT  TO  CONTROL  TABLE 

PICK   UP  ivtXT   OFFSET 

IF    EQ,    DONE 

PURGE  THIS  FILE  ? 

NOPF 

POIM  TO  FILE  NAME  BLOCK  ADDRESS 

GET  NAME  BLOCK  ADDRESS 

IF  EQ,  NO  FILE  TO  PURGE  .' 

DISASSOCIATE  NAME  WITH  NODt 

TRY  TO  DEALLOCATE  FILE  NAME  BLOCK 

CONTINUE 

RESTORE  NODE  ADDRESS 


Secondary  loader  file  name 
Tertiary  loader  file  name 
Load  file  n=;me 
Diagnostics  fi^e  name 
Dumo  tile  name 


PURREM  -  "^URGE  REMOTE  NODE 
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SE'BUF  - 

SET  BU 

FFER  PA 

SSEBUF  - 

SETUP 

BUFFER 

215 

216 

000412 

032767 

217 

000420 

001403 

218 

000422 

016765 

219 

000430 

000405 

220 

221 

222 

223 

000432 

224 

000442 

000261 

225 

000444 

012t05 

226 

0OC.46 

000207 

227 

228 

000001 

B  9 

MACKJ  V05.03b  Saturday  29-Jun-85  05:20  Page  5-1 


OOOOOOG  OOOOOCG  40$ 
0000002  000020 


40$: 
50$: 

BIT     #0S.^HR, 
BEQ     50$ 
M?V     $THRSH,C 
BR      105$ 

EOPRND  ; 
.THSH(R5! 

NEW  THRESHOLD  VALUE  ? 

IF  EQ,  NO 

;  UPDATE  THE  THRESHOLD  VALUE 

RETURN  0  CALLER 

;  ERROR 

CONDITIONS 

101$: 
105$: 

ERROR$  #ERR8UF 

SEC 

^10V     (SP)t,R5 

RETURN 

CANNOT  FIND  BUFFER  TEMPLATE 
INDICATE  FAILURE 
RESTORE  TPARS  REGISTER 
RETURN  TO  CALLER 

.END 


ScIBUF   -   SET   BUFFER  PARAMETERS     MACRO  V05.03b   Saturday  29-Jun-85 


55:20 
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SEKNT  CREATED  BY      MACRO     ON  29-JUN-e5   AT   05:21  PAGE    2 

MACRO  CROSS   REi^ERENCE  CRE'        0^.00 

MACRO  NAME  REFERENCES 

5-172  5-184 


EPRINT 

»A-75 

ERRORS 

#A-6A 

PRINT 

#4-59 

C  10 

•F!LE>«ID'»SEUUG 
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SETDTE  -  SET  LOCAL  DTE  PARAMETE  MACRO  V05.03b  Saturday  29-Jun-85  05:21 

Table  ot  contents 

5-  82    LOCAL  DATA 

6-  99    SSEDTE  -  SET  LOCAL  DTP  PAHAMETERS 

7-  19A    INSDTE  -  INSERT  DTE  TEMPLATE  IN  LIST 

8-  229    SETLIN  -  SET  LINE  ID  IN  DTE  TEMPLATE 

9-  26^    SETCHN  -  CREATE  CHANNEL  LIST 
10-  327    DSTATE  -  CHANGE  DTE  STATE 
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SETDTE  CREATED  BY     MACRO     OM  29-JUN-85   AT   05:21  PAGE   2 

SYMBOL    CROSS  REFERENCE  CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SDTE 

- 

****** 

GX 

6-123 

6-153 

SDVNAM 

- 

****** 

GX 

8-2^8 

SEDMSG 

:: 

****** 

GX 

10-367 

SFLAGS 

~ 

****** 

GX 

8-253 

8-256 

SMC  I 

- 

****** 

GX 

6-16A 

6-170 

SOPRND 

~ 

****** 

GX 

6-121 

6-135 

6-151 

6-181 

SP5IPT 

- 

****** 

GX 

7-207 

SRLBF 

:; 

****** 

GX 

9-29A 

SRQBF 

- 

****** 

GX 

6-1A1 

9-507 

$SEDTF 

00013'; 

RG 

#6-112 

SSWICH 

- 

****** 

GX 

6-137 

6-159 

6-162 

6-171 

6-1  7« 

STMLST 

- 

****** 

GX 

6-116 

*7-224 

*9-291 

»9-311 

10-3';5 

SXXAVL 

- 

****** 

GX 

6-139 

9-293 

9-305 

6-177  10-313  10-372 
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SETLOG  -  SET  LOGGING  PARAMETER  MACRO  V05.03b  Saturday  29-Jun-85  05:21 
Symbol  table 
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CS  EVT= 

*•*•»  GX 

X$WAR= 

000000 

ADD 

000015 

0M.C0N= 

******   GX 

$CFERR= 

«♦**♦♦  GX 

CS.LOG= 

******   GX 

F.ADD= 

000020 

fEV 

000030 

0M.EVE= 

******   GX 

$^^55  = 

♦♦♦***  GX 

CS.MOD= 

,..***  GX 

F.CIR= 

000040 

CIR 

000024 

0M.KEV= 

******   GX 

$EV[NT= 

******   GX 

C  CLS 

OOOOO'i 

F.CON= 

000001 

CLS 

000002 

0M.M0N= 

*«»«»«  GX 

$KNEVT= 

*»*♦*«  GX 

C  EVT 

000006 

F.F1L= 

000002 

FVI 

000004 

OM.STA= 

******   GX 

$0PRND= 

******  GX 

C  LEN  - 

000020 

F.HST= 

040000 

FLG 

000014 

PROEVT 

000774R 

$QINSN= 

******  GX 

C.LEN1= 

000005 

F.LIN= 

000010 

LEN 

000016 

SNKT8L 

OOOOOOR 

$RQBF  = 

******  GX 

C  SN< 

000016 

F.MOD= 

000100 

LENX= 

******   GX 

SW.LON= 

♦***«»  GX 

$SAVAl= 

**♦«*♦  GX 

C  STA 

000004 

F.MON= 

0000C4 

LIN 

0C002C 

TMPLOC= 

000004 

ISELOG 

000160RG 

C.STS  = 

■F.MSK= 

000077 

LNK 

000000 

WC.EVE= 

•*»***  GX 

$SWICH= 

******  GX 

ERRBUF 

000010R 

■F.PRT= 

000200 

MOD 

000022 

WC.LOG= 

»**«««  GX 

$TMLST= 

******  GX 

ERREV 

0001 16R 

"F.QUL- 

000370 

.REM 

000026 

$BVTMN= 

*•**♦•  GX 

$W1LD  - 

******  GX 

ERRLOG 

O0O052R 

"F.REM= 

100000 

.SEV 

000004 

$BYTXT=: 

******   GX 

$XXAVL= 

»*«**«  GX 

EXtERR= 

000002 

-INEVT 

000730R 

.CUST= 

074000 

.  ABS. 

000040 
001070 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 

Errors 

detec  ted: 

0 

••*   Assembler   statistics 

Work      file      reads:  0 

Work      file   writes:  0 

Size  of   work   file:  9204   Words      (   36  Pages) 

Size  of   core   -jool  :  14440  Words      (    55   Paqes) 

Operating      system:  R5X-11M/PLUS 

SYfsETLOGlv2![°3^??34]SETLOG/CR/-SP=SY:ri,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]SETLOG 


SETLOG 


CREATED   BY      MACRO     ON   29-JUN-85    AT   05:21 


PAGE    1 


C  13 
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SETD3C    -    SET   DSCSDF    PARAMETERS 
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?65 

26A 

265 

266 

267 

268 

269 

270 

271 

272 

273  001A02 

21U  00Hr2 

275  OOUIO 

276  00U12 

277  00H16 

278  00142A 

279  00U26 

280  001A5A 

281  00U36 

282  00UA2 

283  001AA6 
28A   001A50 

285  001A56 

286  001 A62 

287  00K6A 

288  O0H70 

289  00U74 

290  001 A76 

291  001500 

292  001502 

293  001 50A 
29A 

295  001512 

296  001520 

297  001522 

298  001526 

299  001 53A 

300  001536 

301  001 5AA 

302  001 5A6 

303  001552 
30A  001556 

305  001560 

306  001 56A 

307  001566 

308  001572 

309  001576 

310  001602 

311  001606 

312  001612 

313  001620 
3K  00162A 

315  001626 

316  001632 
517  001636 

318  001640 

319  00''6A2 


.SBTTL   SETDSC  -  SET  DSCSDF  PARAMETERS 


052^67 
001AA0 
016701 
032767 
001006 
032762 
001515 
116201 
120167 
001103 
116762 
012700 
010201 
062701 
0127A6 
012021 
005316 
003375 
005726 
052762 

032767 
001A55 
016701 
032767 
001006 
032762 
001A56 
116201 
120167 
001037 
116200 
005100 
066700 
062700 
0A27OO 
060067 
060067 
116762 
012700 
010201 
062701 
0127A6 
012021 
005316 
003375 


*•  SETDSC 
INPUTS 

OUTPUT 


SET  DSCSDF  PARAMETERS 

R2  =  ADDRESS  OF  DSCSDF  TEMPLATE 
SOPRND  =  PARAMETERS  SELECTED 

DSCSDF  TEMPLATE  UPDATED. 


OOOOOOG  OOOOOOG 

177776G 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
177776G 

177776G  OOOOOOG 
OOOOOOG 

OOOOOOG 
000013 


SETDSC: 


5S: 


10S: 


000000"  OOOOOOG 

OOOOOOG  OOOOOOG  20S: 

177776G 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 


OOOOOOG 
177776G 

OOOOOOG 

177776G 

000003 

000003 

0000006 

OOOOOOG 

177776G  OOOOOOG 

OOOOOOG 

OOOOOOG 
000013 


25S: 


30S: 


BIT 

BEQ 

MOV 

BIT 

BNE 

BIT 

BEQ 

MOVB 

CMP8 

BNE 

MOVB 

MOV 

MOV 

ADD 

MOV 

MOV 

DEC 

BGT 

TSf 

BIS 

BIT 

BEQ 

MCV 

BIT 

BNE 

BIT 

BEQ 

MOVB 

CMPB 

BNE 

MOVB 

COM 

ADD 

ADD 

BIC 

ADD 

ADD 

MOVB 

MOV 

MOV 

ADD 

MOV 

MOV 

DEC 

BGT 


*XS.CLM,SOPRND 
20S 

SCLV-.  n 
#XS.CL*/,SOPRND 

5t  ( 

#CS.VAL,C.STS(R2) 

102$ 

DSlVLN(R2),R1 

R1,SCLM-2 

101$  , 

SCLM-2,DSCMLN(R2) 

#SCLM,RO 

R2,R1 

*D$CMSK,R1 

i»11.,-(SP) 

(R0)+,(R1)t 

(SP) 

10$ 

(SP)+  , 

#CS.MSK,C.ST5(R2) 

#XS.CLV,SOPRND 

A0$ 

$CLM-2,R1 

#XS.CLM,SOPRND 

'5$  , 

»:S.MSK,C.STS(R2) 

103$ 

D$CMLN(R2),R1 

R1,SCLV-2 

101$ 

D$CVLN(R2),R0 

RO 

$CLV-2,R0 

*3,R0 

#3,R0 

R0,$ByTMN 

R0,$8YTXT       , 

$CLV-2,DSCVLN{R2) 

#SCLV,RO 

R2,R1 

#D$CVAL,R1 

#11.,-(SP) 

(RO)t,(Rl)» 

(SP) 

30$ 


CALL  MASK  PRESENT? 

IF  EQ,  NO 

GET  LENGTH  OF  PARSED  VALUE 

VALUE  PRESENT  ON  COMMAND  LINE 

IF  NE  rES,  COMPARE 

;  CALL  VALUE  PRESENT  IN  TEMPLATE 

IF  EQ,  NO  -  PARAMETER  MISSING 

GET  LENGTH  OF  TEMPLATE  VALUE 

DO  'LENGTHS  MATCH 

IF  NE,  NO 

;  S,  VE  LENGTH 

POINT  TO  PARSED  VALUE 

COPY  ADDRESS 

POINT  TO  TARGET 

WORD  COUNT 

MOVE  A  WORD 

DECREMENT 

UNTIL  DONE 

CLEAN  STACK 

;  REMEMBER  OPTION 

CALL  VALUE  PRESENT? 

IF  EO,  NO 

GET  LENGTH  OF  PARSED  VALUE 

MASK  PRESENT  ON  COMMAND  LINE 

IF  NE  YES,  COMPARE 

;  CALL  MASK  PRESENT  IN  TEMPLATE  1 

IF  tO,  NO  -  PARAMETER  MISSING 

GET  LENGTH  OF  TEMPLATE  VALUE 

DO  LENGTHS  MATCH 

IF  NE,  NO 

GET  LENGTH  OF  CALL  VALUE 

MAKE  IT  NEGATIVE 

GET  DIFFERENCE 

ROUND  UP  TO  A  BYTE  BOUNDARY 

UPDATE  BYTE  MINIMUM 

UPDATE  BYTE  ALLOCATION 

;  SAVE  LENGTH 

POINT  TO  PARSED  VALUE 

COPY  ADDRESS 

POINT  TO  TARGET 

WORD  COUNT 

MOVE  A  WORD 

DECREMENT 

UNTIL  DONE 


c  u 
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SYMBOL    CROSS   REFERENCE 
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PAGE   2 

CREF       CA.OO 


SYMBOL 

VALUE 

REFERENCE 
5-102 

S 

5-103 

5-104 

LSLCTM 

r     w  •  t  **•* 

GX 

•10-362 

LSLNAM 

-     »  *  tt *• 

GX 

10-358 

PtSPOR 

-      n  ***** 

GX 

10-348 

•10-352 

RQCB 

005012 

R 

13-464 

14-540 

#16-604 

RSDADR 

r     ****** 

GX 

14-556 

RSDLEN 

-     ****** 

GX 

14-539 

RSDNAM 

~     ****** 

GX 

14-525 

14-527 

•14-546 

•  14-5'.7 

RSLENX 

=     ****** 

GX 

14-542 

14-543 

SETOSA 

0011/0 

R 

6-171 

*8-227 

SETDSC 

00U02 

R 

6-176 

#9-273 

SETDST 

001066 

R 

6-166 

#7-200 

TSTPSl 

002770 

R 

6-133 

14-513 

#15-582 

XA.KND 

~      ****** 

GX 

14-523 

14-534 

14-560 

XA.NUM 

-      ****** 

GX 

14-536 

14-552 

XSVCHA 

0017U 

R 

6-127 

#10-342 

XS.CLM 

=      ****** 

GX 

9-274 

9-298 

XS.CLV 

=      ****** 

GX 

9-277 

9-295 

XS.CTM 

-      ****** 

GX 

6-134 

10-360 

11-586 

XS.CUG 

-      ****** 

GX 

8-228 

XS.OST 

-      ***»;** 

GX 

13-451 

X5.DTE 

-      ****** 

GX 

8-233 

XS.KND 

-      ****** 

GX 

6-149 

6-159 

6-177 

XS.MXC 

-      **  ^*** 

GX 

6-134 

10-343 

11-389 

XS.OBI 

-      ****** 

GX 

7-208 

13-453 

XS.OBJ 

-      ****** 

GX 

7-204 

13-453 

XS.PRi 

r     ****** 

GX 

7-201 

13-455 

15-457 

X5.SUB 

r     ****** 

GX 

8-251 

X$9CT 

-     ****** 

GX 

•11-388 

X$9MXC 

-     ****** 

GX 

•11-391 

X29CHA 

OO205A 

R 

6-132 

#11-580 

SBYTMN 

.-   ****** 

GX 

•8-241 

•9-510 

•10-550 

•15-467 

•14-542 

SBYTXT 

r      ****** 

GX 

•8-242 

•9-311 

•10-351 

•15-468 

•14-545 

SCfERR 

r      ****** 

GX 

6-184 
14-566 

9-326 
14-569 

9-328 
15-585 

9-550 

10-568 

1^-396 

13-490 

13-492 

13-494 

$CLM 

-      ****** 

GX 

9-282 

9-284 

9-285 

9-297 

$CLV 

~      .***** 

GX 

9-276 

9-305 

9-507 

9-512 

9-515 

$CT 

-      ****** 

GX 

10-362 

11-588 

$CUG 

=     -v**  **  *■ 

GX 

8-230 

8-251 

$DST 

-     ***♦*, 

GX 

6-151 

6-153 

15-482 

13-485 

14-525 

14-527 

14-546 

14-547 

$DTE 

■-     ****** 

GX 

8-235 

8-244 

14-554 

SMC  I 

-     ****** 

GX 

•10-346 

10-347 

10-552 

11-591 

SOP  J 

r     ****** 

GX 

7-206 

7-210 

7-211 

SOF^NO 

-     ****** 

GX 

6-134 

6-149 

6-159 

6-177 

7-201 

7-204 

7-208 

8-228 

8-233 

8-251 

9-274 

9-277 

9-295 

9-298 

10-343 

10-560 

11-386 

11-389 

13-451 

13-453 

15-455 

•15-457 

14-525 

14-534 

14-556 

14-552 

14-560 

$PR! 

—     ****** 

GX 

7-203 

•13-458 

SPSPT 

-     ****** 

GX 

6-140 

10-345 

1',-514 

15-583 

$RQB- 

r     ****** 

GX 

16-605 

SSEXAC 

002A72 

RG 

#14-512 

$SE»SV 

000634 

RG 

*6-l25 

$SE>29 

000646 

RG 

*6-130 

ETMOD 
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SE'NOD  -  5E1  EXECUTOR  NODE  OPIl  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 


Ui 


2     Page  7-2 


CHKADD 

CS.MOD= 

CS.NOD= 

CS.REM-- 

CS.ROU= 

C.ADD 

C.CST 


00030AR 


oocoo^ 

000^06 


GX 
GX 
GX 
GX 


crop 

CMOS 

C.LEN  ■■ 

C.NAM 

C.NID 

C.NUM 

C.RAOD 


000010 
00005A 
000056 
000004 
000010 
OOC052 
000010 


C.STS  : 

*•«**•  GX 

UPDREM 

OOOSSAR 

$NTADD= 

«-•♦♦•  GX 

ERRNOD 

OCOOOOR 

$CFERR= 

******   GX 

$NrNAM= 

»♦*••♦  GX 

EX$ERR= 

000002 

SHOST  = 

******   GX 

SOPRND= 

******   GX 

0E.ADD= 

***•*»  CX 

SID 

******   GX 

SSAVAL= 

**•♦•*  GX 

0E.H0S= 

»*»»••  GX 

$MVASC= 

******   GX 

SSA\/RG= 

******   GX 

OE.ID  = 

»♦♦«»•  GX 

$NODAD= 

**•«*•  GX 

SSENOD 

000034RG 

OE.NAM= 

»»»***  GX 

$N0DNA= 

♦»•♦»»  GX 

SrMLST= 

******   GX 

.  ABS.  000056 
00053A 
Errorc  detected: 


000 
001 
0 


(RU,I.G8L,ABS,0VR) 
(RW,1    '.CL.REL.CON) 


***   Assembler   statistics 

Work     file     reads:  0 

Work      file  writes:  0 

Size  of   work    file:  8410  Words      (   33  Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Ooerating      system:  RSX-11M/PLUS 

SYfsETNOo!v2;[?32?l'54]SEINO[)/CR/-SP=:SY:[1,l]RSXMCM.SML/ML,[130,110]NEILIB/ML.[132,10JiETNIOD 


SETNOD 
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PRSMOD  -  PARSE    ACTION  ROUTINES 
.MODST   -  PARSE   DESTINATION    ID 


AGO 

A01 

^02 

403 

40A 

A05 

A06 

407 

A08 

409 

410  000660 

411  000660 

005067 

000002G 

412  000664 

016700 

OOOOOOG 

413  000670 

005001 

414  000672 

004767 

OOOOOOG 

415  000676 

010167 

OOOOOOG 

416  000702 

103413 

417  000704 

005001 

418  000706 

004767 

OOOOOOG 

419  000712 

010167 

000002G 

420  000716 

022767 

000006  OOOOOOG 

421  000724 

103002 

422  000726 

000261 

423  000730 

C00401 

424  000732 

000241 

425  000734 

000207 

426 

C  1 

MACRO  V05.03b  Saturday  29-Jun-85  05:19  Page  21 


.SBTTL   .MODST  -  PARSE  DESTINATION  ID 

*♦  .MODST  -  PARSE  DESTINATION  ID 

INPUTS        .TPARS  VARIABLES. 

OUTPUT       $DST  =  PARSED  DESTINATION  ID 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.MODST: 


10$: 
20$: 


CLR 

MOV 

CLR 

CALL 

MOV 

BCS 

CLR 

CALL 

MOV 

CMP 

BHIS 

SEC 

BR 

CLC 

RETURN 


$DST+2 

.PSTPT.RO 

R1 

$CAT5 

R1,$DST 

10$ 

R1 

$CAT5 

R1,$DST+2 

#6,.PSTCN 

10$ 

20$ 


CLEAR  THE  SECOND  HALF  OF  THE  DESTINATION 

POINT  RO  AT  DESTINATION 

PERIODS  NOT  ACCEPTABLE 

CONVERT  DESTINATION  TO  RAD50 

STORE  THE  DESTINATION 

IF  CS,  LESS  THAN  3  CHARS  CONVERTED 

PERIODS  NOT  ALLOWED 

CONVERT  REST  OF  DESTINATION  TO  RAD50 

STORE  SECOND  HALF  OF  DESTINATION 

IS  THE  DESTINATION  TOO  BIG  ? 

IF  HIS,  NO  -  OKAY 

ELSE,  INDICATE  FAILURE 

AND  LEAVE 

INDICATE  SUCCESS 


D     1 

DB^Mnn  -  PARSF   ATTinN  RnuTlNFS     MACRO  v05.03b  Saturday  29-Jun-85  05:19     Page  22 


C  2 

PRSGBJ  -  PARSE  OBJECTS  ACTION  R  MACRO  VC5.03b  Saturday  29-Jun-85  05:19  Page  4 


55 
56 
57 
58 
59 
60 
61 
62 
63 


LOCAL  MACROS 


.MACRO  °RIMT   lEXT 

MOV  TEXT.RO 

CALL  SPRINT 

,ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


PRSOR] 


0  2 

PARSE  OBJECTS  ACTION  R  MACRO  V05.03b  Saturday  29-Jun-85  05:19  Page  5 


C  3 

SPRO  -  ACTION  ROUTKJES  FOR  PR  MACRO  VO5.03b  Saturday  29-Jun-85  05:19  Paje  6-1 
Symbol  table 


ERR1LN=  •«•»•«  GX 
ERRPRC=  •••♦♦♦  GX 
ERRPRO=  •>♦»*•*  GX 
$rAT5  =  ••♦***  GX 


$ERROR=  ******  GX 
$FMPRO=  ******  GX 
$MXN.'T=  ******  GX 
$MXMLT=  ******  GX 


$NCT  =  ******  GX 

SNLT  =  ******  GX 

$PRNAM=  ******  GX 

$TMLST=  ******  GX 


.PNUMB=  ******  GX 
.PRNAM  OOOOOORG 
.PRNCT  OO0n6RG 


.PRNLT  000064RG 
.PSTCM=  ******  GX 
.PSTPT=  ******  GX 


.  ABS. 

000000 

000 

(RW, 

,GBl,ABS,OVR) 

000150 

001 

(RW, 

,LCL,REL,C0N) 

Errors 

detected: 

0 

Asiemble'-  statistics 


'.<lork      file  reads;  0 

Work  file  writes:  0 

Size  of  work  file:  51  Words  (  1  Pages) 

Size  of  core  cool:  1A4A0  Words   {  55  Pages) 

Operating  system:  RSX-11M/PLUS 


SV:PR5PRo'v2i[?3^?°3°]PRSPRO/CR/-SP=SY:[1,l]RSXMCM.SML/ML,[130,110]NETLi'B/ML,ri32,10]PRSPRO 


rRFATFn  M      MACRO  ON  J9-JUN-85  AT  05:19 


PAGE  1 


D  3 


PRSREM  -  PARSE  MUm   ROUTINES 
FILE  PARSING  ACTION  ROUTINES 

;33  001036  016700  OOOOOOG 

^,3A  001 0A2  016701   OOOOOOG 

A35  OOlO'-a  110022 

436  0010^0  r2122 

A37  001052  077002 

',58  00105A  000207 


C  A 

MACRO  V05.03b  Saturday  29-Jun-85  05:19  Page  9-1 


10$: 


A39 
i,.'.0 


000001 


MOV 

MOV 

MOVB 

MOVB 

SOB 

RETURN 

.END 


.PSTCN.RO 

.PSTPT.RI 

R0,(R2W 

(R1)t,(R2)< 

RO.IOi 


Get  string  length 
Get  string  address 
Stuff  length 
MOVE... 
...IT 


D     A 
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PR^'-.YS  -  DARSE  SYSTEM  ACTION  RO  MACRO  V05.0?b  Saturday  29-Jun-85  05:20  Page  9 
.SYREN  -  SET  NUMBER  OF  RDB'S 


17? 
173 
174 
175 
176 
177 

1Z° 
1 

181 
182 
183 
18A 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 


.SBTTL   .SYfiBN  -  SET  NUMBER  OF  RDB'S 
h 
***  -  .SYRBN  -  SET  NUMBER  OF  RDB'S 

INPUT: 

.PNUMB  =  NUMBER  OF  RDB'S 

.PNUMH  =  NUMBER  OF  RDB'S  (HIGH  ORDER) 

OUTPUT: 

SRDBNM  =  THE  NUMBER  OF  RDB'S 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


000226 

000226  016767 

00023A  005767 

000240  0C.1004 

0002'.2  022767 

000250  101405 


OOOOOOG  OOOOOOG 
OCOOOOG 

000004  OOOOOOG 


.SYRBN: 


000252  062716  000002         5$ 
OGU256  012767  OOOOOOG  OOOOOOG 
000264  000207  ''0$ 


MOV 

.PNUMB,$RDBNM 

TST 

.PNUMH 

BNE 

5$ 

CMP 

#4.,.PNUMB 

BLOS 

10$ 

6GT 

5$ 

CMP 

#200.,.PNUMB 

BGE 

10$ 

ADD 

#2,(SP) 

MOV 

*ERRILN,$ERPOR 

RETURN 

STORE  THE  NUMBER  OF  RDB'S 

IS  IT  A  WORD  VALUE  ? 

IF  NE,  NO  ..  REJECT 

THE  NUMBER  OF  RDB'S  MUST  BE  X  WHERE: 

IF  LOS,  YES  -  OK 

4.  <=  X  <=  200. 


ELSE  REJECT  THE  TRANSITION 
INVALID  NUMBER 


D  5 
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PURMOD  -  PURGE  MODULE   MACRO  V05.03b  Saturday  29-Jun-85  05:20 
PURDUE  -  PURGE  DTE  DESCRIPTOR 


C  6 

Page  7 


131 

132 

133 

13A 

135 

136 

137 

138 

139 

KG 

1A1  000536 

K2  000536 

U3  0005^0 

UA 

1A5 

1A6 

K8  0005A4 
K9  000546 

150  000550 

151  000552 

152  000560 

153  000562 

154  000570 

155  000572 

156  000574 

157  000600 

158  000604 

159  000610 

160  000612 

161  000614 

162  000616 

163  000620 

164  000622 

165  000630 
"66  000632 
167  000636 
168 

169 
170 

171  000640 

172  000644 
V3  000646 

174  C00652 

175  000654 

176  000656 
17:'  000662 

178  000666 

179  000672 

180  000674 
•'8!  C0070C 

182  000706 

183  000710 

184  000714 

1 85  000720 
'86  00072O 
137  000730 


.SBTTL  PURDTE  -  PURGE  DTE  DESCRIPTOR 
»*  PURDTE  -  PURGE  DTE  DESCRIPTOR 
INPUTS       SOPRND  =  REQUEST  TVPE 
OUTPUT 


THE  REQUESTED  DTE(S)  ARE  PURGED,  ALONG 

WITH  ANY  ASSOCIATED  PVCS,  CHANNELS  AND  CUGS. 


C05C04 
012702 


010205 
011202 
001501 
122762 
001371 
032767 
001013 
010200 
062700 
012701 
012703 
022021 
001354 
005303 
003374 
010604 
032767 
001403 
005062 
000742 


004767 
-03737 
016200 
006300 
006300 
062700 
012701 
004  767 
005000 
012701 
122762 
001767 
012700 
012701 
122762 
001757 
01270G 


PURDTE: 


OOOOOOG 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


OOOOOOG 
OOOOOOG 
000005 


OOOOOOG  OOOOOOG 
OOOOOOG 

000140 
OOOOOOG 


OOOOOCG 
OOOOOOG 
001172 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOi 
OOOOOOG 
OOOOOOG  OOOOOCG 

OOOOOOC 


CLR 

R4 

MOV 

#$TMLST,R2 

;  FIND 

THE  DTE 

DESCRIPTOR 

10$: 

MOV 

R2,fi5 
(r5),R2 

MOV 

BEQ 

40$           ; 
#CS.DTE,C.STS(R2) 

CMPB 

BNE 

10$ 

BIT 

#XP.KND,$0PRND   ; 

BNE 

30$          ; 

MOV 

R2,R0 

ADD 

#D$TADR,RC 

MOV 

#$DTE,R1 

MOV 

#5,R3 

201: 

CMP 

(R0)  +  ,(R1)*- 

BNE 

10$ 

DEC 

R3 

BGT 

20$ 

30$: 

MOV 

SP,R4 

BIT 

*XP.CTM,$OPRND  ; 

BEQ 

35$ 

CLR 

D$TCT(R2) 

BR 

10$ 

■  PURGE 

DTE,  CHANNELS,  PVCS  AND  : 

^5$: 

CALL 

CHKDTE 

BCS 

10$ 

MOV 

D$THSH(R2),R0 

ASL 

RO 

ASL 

RO 

ADD 

#L$LENX,R0 

MOV 

#D$TLEN,R1      ; 

36$: 

CALL 

DEALC 

CLR 

RO 

MOV 

#C$HLEN,R1      ; 

CMPB 

#CS.CHN,C.STS(R2) 

BEQ 

36$          ; 

MOV 

*c$lenx+x$lenx,ro 

MOV 

*P$VLEN,R1 

CMPB 

#CS.PVC,C.STS(R2) 

BEQ 

56$ 

MOV 

#G$LENX,f(0 

NONE  FOUND  YET 
POINT  TO  LISTHEAD 


SAVE  PREVIOUS  ADDRESS 

NEXT  ADDRESS 

BR  IF  END  OF  LIST 

;  CHECK  FOR  DTE  BLOCK 

BR  UNLESS  DTE 

CHECK  FOR  KNOWN  DTES 

BR  IF  WILDCARD 

COPY  TEMPLATE  ADDRESS 

POINT  TO  DTE  ADDRESS 

POINT  TO  PARSED  DTE 

LENGTH  IN  WORDS 

COMPATE  STRINGS 

BRANCH  IF  WRONG  DTE 

REDUCE  COUNT 

BR  IF  MORE 

INDICATE   WILDCARr>S   OR   fOUND 

PURGE  COUNTER  TIMER  ? 

IF  EC,  PURGE  EVERYTHING 

NO  MORE  COUNTER  TIMER 

CONTINUE 

UGS 

MAKE  SURE  DTE  CAN  BE  DELETED 

IF  CS,  TRY  NEXT 

GET  NUMBER  OF  HASH  TABLE  ENTRIES 

2  WORDS  Of  POOL..  PER  ENTRY 

CONVERT  TO  BYTES 

ADD  SIZE  OF  FIXED  PART  OF  DTL  DESCRIPTOR 

LENGTH  OF  A  DTE  TEMPLATE 

DEALLOCATE  IT 

CHANNELS  INCL'  ""^D  IN  HASH  TABLE 

LENGTH  OF  CHANNlL  BLOCK 

:  CHANNEL  LIST  ? 

IF  EQ,  RUN  DOWN  HANNEL  LIST 

;  LENGTH  OF  CIRCUIT  BlOC.  IN  POOL.. 
LENGTH  OF  A  PVC  DESCRIPTOR 
;  PVC  ? 

IF  EQ,  RETURN  PVC  BLOCK 
LENGTH  OF  CUG  BLOCK  \H   i^OOL . . 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENC 

S 

TSTPS! 

0O2OA2 

R 

6-121 

10-308 

13-441 

#14-483 

XA.fCND 

= 

****** 

GX 

13-AA9 

"3-461 

XP.CTM 

- 

****** 

GX 

7-164 

XP.CUG 

r 

****** 

GX 

6-125 

XP.DTE 

r 

****** 

GX 

6-122 

XP.KND 

~ 

****** 

GX 

6-122 

7-153 

7-193 

XP.ICNG 

- 

****** 

GX 

6-125 

9-258 

9-270 

XSVCTM 

001572 

R 

10-302 

#11-38:^ 

XS.CTM 

~ 

****** 

GX 

10-310 

XS.KND 

r 

****** 

GX 

10-321 

10-342 

10-362 

XSLENX 

- 

****** 

GX 

7-183 

X$9iT 

- 

****** 

GX 

*12-';i9 

X29C'-1 

001650 

R 

10-307 

#12-413 

IBUFF 

^ 

****** 

GX 

8-229 

8-234 

S6YTMN 

= 

****** 

GX 

*15-515 

SBYTXT 

- 

****** 

GX 

*15-516 

SCFERR 

- 

****** 

GX 

7-201 

8-234 

9-278 

10-371 

$CUG 

- 

****** 

GX 

9-260 

9-262 

$DST 

~ 

****** 

GX 

10-323 

10-325 

13-451 

13-453 

SDTE 

- 

****** 

GX 

7-157 

SEDMSG 

- 

****** 

GX 

3-233 

SOPRND 

- 

****** 

GX 

6-122 

6-125 

7-153 

7-164 

10-3A2 

10-362 

13-449 

13-461 

SPSIPT 

= 

****** 

GX 

K-A84 

SPIJXAC 

001710 

RG 

z^n-AAO 

SPlIXPR 

000500 

RG 

#6-120 

SPUXSV 

001246 

RG 

#10-300 

$PUXS9 

001260 

RG 

#10-305 

SRLBF 

~ 

*  *  ***y 

GX 

15-521 

SSAVVR 

- 

****** 

GX 

8-217 

STMLST 

= 

****** 

GX 

7-K3 

9-252 

10-313 

11-388 

SXXAVL 

^ 

****** 

GX 

15-520 

.CONER 

= 

****** 

GX 

10-372 

10-373 


7-193 


11-AO''     12-424     13-469 


9-258     9-270     10-310 


14-48 


10-321 


12-414 


13-443    *15-519 


PORMOD 
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338 
339 

3A0 

3A1 

3A2 

5A3 

3AA 

5A5 

3A6 

3A7 

3A8 

3A9 

350 

351 

352 

353  0006U 

35A  00062U 

355 

356  00062? 

35?  000626 

358  000632 

359  000636 

360  000642 

362  0006A6 

363  000652 

364  000*j5A 

365  00^656 

366  000660 
3o7  000662 

368  00066A 

369  000666 

370  000672 

371  000676 

372  000702 
373 

37A  00070A 


005362  000002 
001030 


.SBTTL   DEAFIL  -  DEALLOCATE  A  FILE  BLOCK 
DEAFIL  -  DEALIOCATE  A  FILE  BLOCK 


INPUTS: 
OUTPUT: 


P2 


ADDRESS  OF  SERVICE  FILE  BLOCK 


THE  FILE  NAME  USE  COUNT  IS  REDUCED.   IF  THERE 

ARE  "JO  MORE  USERS  OF  THE  FILE  NAME,  THE  POOL 

BVTE  EXTENSION  ($BrTMN,$8YTXT)  IS  REDUCED  BY 

THE  Si7E  OF  THE  RUN-TIME  SERVICE  FILE  BLOCK,  AND 

THE  CURRENT  FILE  BLOCK  IS  REMOVED  FROM  THE  SERVICE  FILE 

LIST  AND  RETURNED  TO  THE  FREE  LIST. 

R3,  RA  AND  R5  ARE  PRESERVED. 


DEAFIL:  DEC 
BNE 


'^.CNT(R2) 


116200 
062700 
042700 
160067 
160067 

012701 
000402 
011101 
001412 
021102 
001374 
011211 
012701 
012700 
004767 
000207 


000167  OOOOOOG 


000004 

000011 

000003 

OOOOOOG 

OOOOOOG 

OOOOOOG 


000043 

OOOOOOG 

OOOOOOG 


10$: 
15$: 


20$: 
101$: 


MOVB 

F.DEV-1(R2),R0 

ADD 

#6+3, RO 

BIC 

#3,R0 

SUB 

R0,$BrTXT 

SUB 

RO,$BYTMN 

MOV 

#iFILHD,Rl 

BR 

15$ 

MOV 

(R1),R1 

BEG 

101$ 

CMP 

(R1),R2 

BNE 

10$ 

MOV 

(R2),(R1) 

MOV 

#F.LEN1,R1 

MOV 

#$XXAVL,RO 

CALL 

$RL8f 

RETURN 

JMP 


.CONER 


DECREMENT  USE  COUNT 
IF  NE,  DONE 

GET  DEVICE  LENGTH 
COUNT  FIXED  OVERHEAD  AND  ROUND  UP 
ALIGN  ON  4  BYTE  BOUNDARY 
UPDATE  ACTUAL  ALLOCATION 
UPDATE  MINIMUM  ALLOCATION 

POINT  TO  FILE  BLOCK  LISTHEAD 

NEXT 

SHOULD  NEVER  HAPPEN,  BUT.. 
IS  THIS  THE  UNLINK  POINT  ? 
NO  -  KEEP  GOING 
CLOSE  UP  LIST 
LENGTH  OF  FILE  BLOCK 
POINT  TO  FREE  LIST 
RELEAS'^  CORE  BLOCK 


OOPS 
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Symbol  table 
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CH.DUP=  000001 
CH.D11=  000100 
CH.ECH=  000002 
CH.MDT=  000020 
CH.PAR=  000100 
CH.PRM=  000200 
CH.PRT=  000007 
CH.STA=  000040 
CH.SYN=  OOOOOA 
CH.T¥P=  000010 

.  AGS.  000022 
OOOA50 
Errors  detectevi 


rs.BUF= 

CS.MOO= 

C.CBNM 

C.CBSZ 

C.CSR 

C.CUO 

C.CWI 

C.RBNM 

C.RBSZ 

C.SBNM 


* t  **** 
000004 
000006 
000012 
000006 
000010 
000010 
00C012 
OOOOK 


GX 
GX 


C.SBSZ  000016 

C.STS  =  ««*»»»  GX 

C.THSH  000020 

CUNT  000004 

ODM  000002R 

ERRBUF  OOO^O'iR 

ERRTHS  00004'|O 

Ey«r'^R=  000002 

EX$WAR=  000000 


OS.CCB= 

*»♦***  GX 

OS.RBN= 

*«»*»*  GX 

OS.RBS= 

«•»***  GX 

0S.S8N= 

»«»**♦  6X 

OS.THR= 

******   GX 

RATETB 

00012'iR 

RDBSZ 

OOOOOOR 

$BUFF  = 

******   GX 

$CCBNM= 

•**•»*  GX 

$CFERR=    •♦*•♦*   GX 


$EDMSG= 

******   GX 

$OPRND= 

»*«*♦»  GX 

$RDBNM= 

******   GX 

$RDBSZ= 

******   GX 

$SDBNM= 

******   GX 

SSEBUF 

000162RG 

$THRSH= 

******   GX 

$TMLS^= 

******   GX 

000 
001 

n 


(RW,1,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 


^**   Assembler   statistics 


Work  file  reads: 

0 

Work   file  writes: 

0 

Size  of  work  file; 

lOlOA  Words 

40  Pages) 

Size  of  core  pool : 

14440  Words 

55  Pages) 

Operating  system: 

RSX-llM/PLUS 

5y:SETBUF!v2!ri'52?l'34]SETBUF/CR/-SP=SY:[l,1],'?SXMCM.SML/ML,[130,110]NETLI8/ML,[132.10]SET8UF 


r 


SETBUF 
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'SETCUG 

SSSSSSS5 

EEEEEEEEEE 

TTTTTTTTTT 

cccccccc 

uu 

ssssssss 

EEEEEEEEEE 

TTTTTTTTTT 

cccccccc 

uu 

ss 

EE 

TT 

uu 

ss 

EE 

TT 

uu 

ss 

EE 

TT 

uu 

ss 

EE 

TT 

uu 

ssssss 

EEEtEEEE 

TT 

uu 

S3SSSS 

EEEEEEEE 

TT 

uu 

ss 

EE 

TT 

uu 

SS 

EE 

TT 

uu 
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uu    uu 

GGGGGGGG 

uu    uu 

GGGGGGGG 

uu    uu 

GG 

uu    uu 

(,G 

uu    uu 

(i(i 

uu    uu 

GG 

uu    uu 

G(i 

uu    uu 

GG 

uu    uu 

GG 

GGGGGG 

uu    uu 

GG 

GGGGGG 

uu    uu 

G(i 

GG 

uu    uu 

GG 

GG 

uuuuuuuuuu 

GGGGG6 

uuuuuuuuuu 

C 

GGGGG 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTT'TTT 

LL 

SS 

LL 

SS 

lL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLL 

ALL 

SSSSSSSS 

LLLLLL 

.LLL 

SSSSSSSS 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
1A 
15 
16 
17 
13 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 


.TITLE   SETDTE  -  SET  LOCAL  DTE  PARAMETERS 
.IDENT  /V05.00/ 
.ENABL   LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


"OBJECT  TO  CHANGE  WITHOUT  NOTICE 
A  COMMITMENT  BY  DIGITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE  IS 
AND  SHOULD  NOT  BE  CONSTRUED  AS 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  SET  LOCAL  DTE  PARAMETERS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDEN'  HISTORY: 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.l 

4.00  07-N0V-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DLCnet-ilM-Plus  V5.0 
DECnet~Micro/RSX  VI. 0 


ITS 
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SETDTE  CREATED  BY      MACRO     OM  29-JIJN-85   AT    05:21  PAGE    3 

MACRO   CROSS  REFERENCE  CREF        0^.00 

MACRO  »4AME  REFERENCES 

6-187  6-189  10-568 


EPRINT 

#A-70 

•RRORt 

*A-5'. 

PRINT 

OA-S'. 

D  12 

•FILE'*ID»*SETL0G 
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SYMBOL    CROSS  RETERENCF 


C  13 
PAGE    1 

CREF        04.00 


SYMBOL 

VALUE 

REFERFNCE5 

CS.EVI 

r  *  *  *  *  K  * 

6X 

7-220 

7-243 

8-277 

CS.LOG 

r  ****** 

GX 

7-177 

CS.MOD 

=  ****** 

GX 

7-179 

C.CLS 

000004 

*6-132 

7-222 

*7-2^A 

8-?^'' 

8-279 

C.EVT 

000006 

#6-133 

♦7-229 

•7-230 

•7-231 

•7-252 

C.LEN 

=  000020 

*6-135 

7-238 

C.LEN1 

=  000005 

#6-141 

C.SNK, 

000016 

#6-134 

7-224 

•7-245 

8-281 

8-281 

C.STA 

000004 

#6-140 

»7-182 

•7-184 

C.STS 

~      ****** 

GX 

7-177 

•7-179 

7-220 

•7-243 

8-277 

ERRBUF 

000010 

R 

#5-111 

7-241 

ERREVT 

000116 

R 

#5-113 

7-215 

ERRL06 

000052 

R 

#5-112 

7-175 

EXSERR 

=  000002 

#5-109 

5-111 

5-112 

EXSWAk 

=  000000 

#5-110 

5-113 

FF.ADD 

=  000020 

#4-93 

4-93 

FF.CIR 

=  000040 

#4-93 

4-93 

FF.CON 

=  000001 

#4-93 

5-103 

7-157 

7-163 

FF.FIL 

=  000002 

#4-93 

5-104 

7-157 

7-166 

FF.HST 

=  040000 

#4-93 

FF.LlN 

=  000010 

#4-93 

4-93 

FF.MOD 

=  000100 

#4-93 

4-93 

F  F . MON 

=   000004 

#4-93 

5-105 

7-157 

7-160 

FF.MSK 

=   000077 

#4-93 

FF.PRT 

-  000200 

#4-93 

4-93 

FF.QUL 

=  000370 

#4-93 

FF.REM 

=   100000 

#4-93 

FINEVT 

000^30 

R 

7-250 

#8-273 

F.ADD 

000016 

#4-93 

F.CEV 

000030 

#4-93 

F.CIR 

000024 

#4-93 

F.CLS 

000002 

#4-93 

F.EVT 

000004 

#4-93 

F.FLG 

000014 

#4-93 

F.LEN 

000016 

#4-93 

F.LENX 

::  ****** 

GX 

7-252 

7-253 

F.LIN 

000020 

#4-93 

F.LNK 

000000 

#4-93 

F.MOD 

000022 

#4-93 

F.REM 

000026 

#4-93 

F.SEV 

000004 

#4-93 

L.CUST 

=  074000 

#6-122 

9-303 

OM.CON 

-   ****** 

GX 

7-164 

OM.EVE 

r  ****** 

GX 

7-188 

OM.KEV 

=     ****** 

GX 

7-199 

7-256 

OM.MON 

r  ****** 

GX 

7-161 

OM.STA 

-  ****** 

GX 

7-:67 

PROEVT 

000774 

R 

7-213 

#9-302 

SNKIBL 

000000 

R 

#5-103 

7-210 

SU.LON 

r  ****** 

GX 

7-180 

FMPLOC 

=  000004 

#6-131 

6-139 

WC.EVE 

=   **»... 

GX 

7-190 

•7-246 


•7-247 


»7-248 


•7-249 


SETLOG 
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SE'MOD  -  DEFINE  MODULE  MACRO  V05.05b  Monday  01-Jul-85  17:29  Page  9-1 
SETDSr  -  SET  DSC$Df  PARAMETERS 

COOOOOG  OOOOOOG 


5?C  00164', 

321  0016A6 

322  00165^, 
323 

32A 
325 

326  C01656 

327  001666 

328  001670 

329  001700 

330  001702 

331  001712 


005726 
052762 
000207 


000207 
000207 
000207 


40$ 

;  ERRORS 

ion 

102$ 
103$ 


TST 
BIS 
RETURN! 


(SP)*  ; 

#CS.VAL,C.STS(R2) 


ERR0R$ 
RETURN 
ERROR$ 
RETURN 
EPROR$ 
RETURN 


*ERRLEN 
OERRCLV 
/(ERRCLM 


CLEAN  STACK 

;    REMEMBER   OPTION 


CALL   MASK   AND   CALL    VALUE    LENGTH  ERROR 
CALL    VALUE   MISSING 
CALL   MASK   MISSING 


SETMOD   -  DEFINE   MODULE     MACRO  V05.03b  Monday  Ol-Jul-85   17:29     Page  10 
Ic^./rH'V   -   llPnaiF    X?5-SFR\yFR    CHARACTERISTICS 


tclMOD 

CREATED   BV 

MACRO     ON   1-JUL-85   Af    17:29 
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PAGE   3 

jVMBOl. 

CROSS  REFERENCE 

CREF       O-i-DO 

SV«30l 

VALUE 

REFERENCES 

$SUB1 

$SUB2 

$TML5T 

$X\AV1 

.CONER 

r    ......      GX 

=    ......     GX 

=    ......      GX 

.......      GX 

r.      ......         GX 

8-256            8-259 

10-355           11-581         .15-'i79 

13-A60           U-558 

6-185 

.U-550 

SEIMOD 
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SET  NOD 

CREATED  BY     MACRO     ON  J9-JUN-85   AT   05:22 

PAGE    1 

SYMBOL 

CROSS  REFERENCE 

CREf 

SYMBOL 

VALUE                          REFERENCES 

CHKADD 

CS.MOD 

CS.NOD 

CS.REM 

CS.ROU 

C.ADD 

C.CST 

CHC" 

CMOS 

C.LEN 

C.NAM 

C.NID 

C.NUM 

C.RADD 

C.STS 

ERR^:JD 

EYiERR 

jE.ADD 

OE.HOS 

OE.ID 

OE.NAM 

UPDREM 

SCFERR 

$HOST 

SID 

SMVASC 

SNODAD 

SNODNA 

SNTADD 

SNTNAM 

SOPRND 

SSAVAL 

SSAVRG 

SSENOD 

STMLST 


00030^.  R 


GX 
GX 
GX 
GX 


GX 


Z       *  »*  t  ♦♦ 

:;      «  4t  «*« 

~      ****** 

OOOOOA 
00000^ 
0000:0 
0000.'. 
=  00005o 
00000^ 
000010 
000052 
000010 

000000  R 
=  000002 
=  .»***«   GX 
=  ..*...  GX 
=  ......  GX 

:  ...,.»  GX 
00035^   R 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


r  ****** 

-  ****** 

::  ****** 

=  ****** 

=  ****** 

r  ****** 

z  ****** 


****** 

000034   RG 
******   GX 


*6-213 

5-157 

5-155 

7-253 

6-221 

«A-118 

#4-119 

#4-120 

#4-110 

#4-111 

#4-106 

#4-107 

#4-109 

#4-131 

5-155 

',-96 

>4-95 

5-164 

5-187 

5-1 7S 

5-158 

#^-243 

5-198 

5-190 

5-182 

5-185 

•J-165 

5-160 

•5-172 

•5-162 

5-158 

6-214 

7-244 

#5-148 

5-149 


7-281 
6-223 


•5-189 

•5-160 
5-181 

•5-166 
7-255 

•5-15/ 
5-198 
4-96 


5-193 


5-171 
5-161 

•5-163 
5-164 


6-215 
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04.00 


6-225 

•5-192 

•5-161 

5-167 

•7-259 

6-221 


•5-193 


•5-170 

•7-260 

7-253 


•5-171 
7-283 
?-281 


5-172 
7-283 


6-225 
5-162 


5-178 


7-245 


5-163 

5-187 

•7-270 


7-277 


•7-290 


3ETN0D 
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PRSMOD  -  PARSE    ACTION  ROUTINES 
.HOCLM     -  PARSE    CALL   MASK 
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MACRO  V05.03b  Saturday  29-Jun-85  05:19     Page  22 


428 

.SBTTL 

.MOCLM  -  PARSE  CALL  MASK 

429 

.S8TTL 

.MOCLV  -  PARSE  CALL  VALUE 

430 
431 

•♦  .MOCLM  -  PARSE  CALL  MASK 

432 

♦*  .MOCLV  -  PARSE  CALL  VALUE 

433 
434 

INPUTS 

.TPARS  VARAIBLES 

435 
436 

OUTPUT 

CALL  MASK  OR  VALUE  IS  STOrtED  IN 

437 

$CLM,  $CLV  RESPECTIVELY. 

438 
439 

~ 

.ENABLE 

LS8 

440  000736 

MOCLM: 

441  000736 

012702 

000026G 

"mov 

#$CLMt<2*ll.>,R2, 

PARSED  AREA  ADDRESS 

442  000742 

443 

444  000744 

000402 

BR 

10$ 

JOIN  COMMON  PROCESSING 

.MOCLV: 

445  000744 

012702 

000026G 

"mov 

#$CLV+<2*11.>,R2 

TARGET  ADDRESS 

446 

447  000750 

026727 

OOOOOOG  000040 

10$: 

CMP 

.PSTCN,#32. 

CHECK  SIZE  OF  PARSED  STRING 

448  000756 

101030 

BHI 

'-'-"L   ^  ,, 

ILLEGAL  CALL  MASK  OR  VALUE 

449  000760 

016762 

OOOOOOG  177750 

MOV 

.PS:CN,-<2«11.>-2(R2)  ;  STUFF  SUE 

450  000766 

010346 

MOV 

R3,-(SP) 

SAVE  SCRATCH  REGISTER 

451  000770 

010203 

MOV 

R2,R3 

COPY  ADDRESS 

452  000772 

016746 

OOOOOOG 

MOV 

.PSTCN.-(SP) 

#ii.,r6 

-(K35 

PUSH  LENGTH  OF  STRING 

453  000776 

012700 

O00013 

MOV 

INIT  COUNTER 

454  001002 

005043 

15$: 

CLP 

CLEAR  OUT  TARGET 

455  001004 

005300 

DEC 

RO 

REDUCE  COUNT 

456  001006 

003375 

BGT 

15$ 

UNTIL  ALL  32.  CHARS  ARE  BLANKS 

457  001010 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

POINT  TO  INPUT  STRING 

458  001014 

005001 

20$: 

CLR 

R1 

DON'T  ALLOW  PERIODS 

459  001016 

004767 

OOOOOOG 

CALL 

$CAT5 

CONVERT  3  CHARS 

460  001022 

010123 

MOV 

R1,(R3)t 

STUFF  INTO  TARGET  BUFFER 

^  %j\j      \j  \^  \  \j  ^  t— 

461  001024 

162716 

000003 

SUB 

#3,(SP.^ 
20§ 

REDUCE  CHARS  REMAINING  COUNT 

462  001030 

003371 

BGT 

IF  GT,  MORE 

463  001032 

005726 

TST 

(SP)  + 

ELSE  CLEAN  OFF  COUNT 

464  001034 

012603 

MOV 

(SP)+,R3 

RESTORE  REGISTER 

465  001036 

000207 

RETURN 

ACCEPT  TRANSITION 

466 

467  001040 

012767 

OOOOOOG  OOOOOOG 

ILLCAL. 

MOV 

#ERRCAL,$ERROR 

•  ILLEGAL  CALL  ADDRESS/VALL'E 

468  001046 

000622 

BR 

REJECT 

469 
470 

.DSABL 

LS6 

nncunpi 


nADcc     ATTinM    DniiTlMCC       MATDn    \lf)'^    fT^K    <:;ifiirHav    ?Q-l(in-ftS 


u 
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PRSOBJ  -  PARSE  OBJECTS  ACTION  R  MACRO  V05.03b  Saturday  29-Jun-85  05:19 
.OBNUM  -  STORE  THE  OBJECT  NUNMBER 
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65 
66 
67 

.SBTTL 

+ 
*»♦  -  .OBNUM 

.OBNUM  -  STORE  Tf- 
-  STORE  THE  OdJECl 

E  OBJECT  NUNMBtH 
NUMBER 

68 
69 
70 

71 

INPUT: 

. PNUMB 
.PNUMH 

-   THE  OBJECT  NUMBER 

=  THE  OBJECT  NUMBER  (HIGH  ORDER) 

72 
73 
74 
75 
76 
77 

OUTPUT: 

$TNUM  =  THE  OBJECT  NUMBER 

THE  TRANSITION  IS  ACCEPTED/REJECTED 

78 

79  000000 

80  000000 

81  000006 

82  000012 

83  000014 

84  000020 

85  000022 

86  000026 

87  000034 

016767 
005767 
001003 
105767 
001405 
062716 
012767 
000207 

OOOOOOG 
OOOOOOG 

000001G 

000002 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OBNUM:: 

MOV 

TST 

BNE 

TST8 

BEQ 

'0$:    ADD 
MOV 

20$:    RETURN 

. PNUMB, $TNUM 

.PNUMH 

10$ 

. PNUMB +1 

20$ 

#2,(SP) 

#ERfiILN,$ERR0R 

STORE  THE  OBJECT  TASK  NUMBER 

IS  IT  A  WORD  VALUE  ? 

IF  NE,  NO  ..  REJECT 

IS  IT  A  BYTE  VALUE  ? 

IF  EO,  YES  ..  OKAY 

REJECT  IHE  TRANSITION 

INVALID  NUMBER 

E  2 

PARSF  nPiFCTS  AfTIDN  R  MACRO  V05.03b  Saturday  29-Jun-85  05:19 
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PRSPRO     CREATES  BY  MACRO  ON  29-JUN-85  AT  05:19 
SYMBOL  CROSS  REFERENCE 


6-123 


SYMBOL 

VALUE 

REFERENCES 

RRRILN 

- 

****** 

fix 

5-103 

ERRPRC 

X 

****** 

GX 

A-80 

ERRPRO 

- 

****** 

fix 

4-82 

$CAT5 

~ 

****** 

GX 

4-73 

SERROR 

= 

****** 

GX 

*4-80 

SFNPRO 

r 

****** 

fix 

4-78 

SMXNCT 

- 

****** 

GX 

6-120 

SMXNLT 

= 

****** 

GX 

5-100 

$NCT 

- 

****** 

GX 

*6-119 

tNLT 

= 

****** 

GX 

*5-99 

SPRNAM 

- 

****** 

GX 

•  4-74 

STMIST 

= 

****** 

GX 

4-77 

.PNUMB 

~ 

****** 

GX 

5-99 

.PRNAM 

000000 

RG 

#4-70 

.PRNCT 

000116 

r\« 

"6-113 

.PRNLT 

00006A 

RG 

#5-98 

.PSTCN 

= 

****** 

GX 

4-75 

.PSTPT 

= 

****** 

GX 

4-71 

•  4-82 


5-100 


•5-103 


-r9 


D  3 

PAGE  1 

CREF   04.00 


•6-123 


6-120 


**F  tl  F«.Ih*»PS^RFM 


E  3 


PRSREM  -  PAR5E    ACTION   ROUTINES 
Symbol   table 


D  4 

MACRO  V05.03b  Saturday  29-Jun-85  05:19  Pag»  9-2 


C<FSP 

CS.REM= 

C.ADD 

C.LEN  - 

C.NAM 

C.STS  = 

D 

E 

L=(RCID= 

ERRILN= 

ERRNOD= 

ERRPNA= 

F.DEV 


000744RG 
»»«»♦*  GX 

000010 
000012 
OOOOOA 

****** 

000001 
000000 

****** 
****** 
****** 
****** 

000001 


GX 


F.LEN  ^ 

H 

HEX 

ILLNUM 

MOVSTR 

MXFSP 

REJ 

REJ1 

RN.NAM 

SCR 

STR50 

STR50X 

T1 


000037 
177777 
000604R 
00031  OR 
001036R 
000036 
000316R 
000730R 
=  ******  GX 
OOOOOOH 
000530(t 
000540h 
000362R 


T2 

000405F 

) 

WC.CIR= 

****** 

GX 

$CAT5  = 

****** 

GX 

$ERR0R= 

****** 

GX 

$NOPAD= 

****** 

GX 

$NODNA= 

****** 

GX 

$NTADD= 

****** 

GX 

$NTNAM= 

****** 

GX 

$OPRND= 

****** 

GX 

$RNDCP= 

****** 

GX 

$RNDPA= 

****** 

GX 

$RNHAR= 

****** 

GX 

$RNHOS= 

****** 

GX 

$RNSCI= 

****** 

GX 

$RNSDV= 

****** 

GX 

$RNSPA= 

****** 

GX 

$RNXXX= 

****** 

GX 

$TMLST= 

****** 

GX 

$WILD  = 

**  **** 

GX 

.CAT5E= 

**>.*** 

GX 

.PNUMB= 

****** 

(iX 

.PNUMH= 

****** 

GX 

.PSTCN= 

****** 

GX 

.PSTPr= 

****** 

GX 

.RNCHK  000036RG 


.RNCLF 

.RNDCT 

.RNDPA 

.RNFSP= 

.RNHAR 

.RNHOS 

.RNH01 

.RNH02 

.RNIN2 

.RNSCI 

.RNSDV 

.RNSPA 


000736RG 

000246RG 

000230RG 

******  GX 

000A24RG 

0001 72RG 

0001 56R6 

000166RG 

000020R6 

00032ARG 

000212RG 

0006'i2RG 


.  ABS.  000037 
001056 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


♦»♦  Assembler  statistics 


Work  file  reads: 
Work  tile  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


0 

0 

8258  Words     (  33  Pages) 

14440  Words      (   55  Pages) 

RSX-11M/PLUS 


Elapsed   time:    00:00:10.25 

SY: PRSREM. V2,[1 32, 134]PRSREM/CR/-SP=Sv 


ri,1]RSXMCM.SML/ML,i:i30,110]NETLI8/Mr,ri32,10:PRSREM 


i-RFATFD   RY      MACRO      ON   29-JUN-85    AT    05:19 
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E     A 
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.SYRBS   -   SET    SIZE    OF    EACH  RD8 


Page  10 


199 

200 

201 

202 

203 

20^ 

205 

206 

207 

208 

209 

21C 

211 

212 

213  000266 

2U  000266 

215  00027A 

216  000300 

217  000302 

218  000 j06 

219  000312 

220  0003U 

221  000316 

222  00032A 

223  000326 
22'!.  000332 

225  000336 

226  000340 

227  000346 

228  000350 
22'^  00035A 
230  000362 


.S8TIL   .SVHBS  -  SET  SIZE  OF  EACH  RDB 
'*♦*  -  .SYRBS  -  SET  SIZE  OF  EACH  RDB 


INPUT: 


.PNUMB  =  SIZE  OF  EACH  RDB 

.PNUMH  =  SIZE  OF  EACH  RDB  (HIGH  ORDER) 


OUTPUT: 

SRDBSZ  =  THE  SIZE  OF  EACH  RDB 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


016767 
005767 
001023 
012701 
012700 
011000 
001406 
122760 
001372 
012701 
020167 
003004 
022767 
002005 
062716 
012767 
000207 


OOOOOOG  OOOOOOG 
OOOOOOG 

C00105 
OOOOOOG 


.SYRBS: 


1$: 


2$: 


OOOOOOG  OOOOOOG 

000300 
OOOOOOG 

007726  OOOOOOG 


000002        51: 
OOOOOOG  OOOOOOG 

10$: 


MOV 

TST 

BNE 

MOV 

MOV 

MOV 

BEQ 

CMPB 

BNE 

MOV 

CMP 

BGT 

CMP 

dGE 

ADD 

MOV 

RETURN 


.PNUMB.JSDBjZ 

.PNU^rl 

5$ 

#69., R1 

#$TMLST,RO 

(RO),RO 

2$ 

#CS.ROU,C 

1$ 

#192. ,R1 

R1,.PNUMB 

5$ 

#4054.,.PNUMB 

10$ 

#2,(SP) 

#ERRILN,$ERR0R 


STORE  THE  SIZE  OF  EACH  RDB 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO  ..  REJECT 
ASSUME  PSI-ONLY  SYSTEM 
POINT  ''0  TEMPLATE  LISTHEAD 
NEXT 
,  IF  EQ,  END  OF  LIST 
STS(R05  ;  IS  THIS  THE  ROUTING  TEMPLATE 
IF  NE,  NO 

ELSE  DECNET  IS  PRESENT 
THE  RDB  SIZE  MUST  BE  X  WHERE: 
192.  (69.  FOR  PSI  ONLY)  <=  X  <= 


4054. 


ELHE  REJECT  THE  TRANSITION 
INVALID  NUMBER 
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PURMOD  -  PURoE  MODULE   MAChO  V05.03b  Saturday  29-Jun-85  05:20 
PURDTE  -  PURGE  DTE  DESCRIPTOR 


D  6 

Page  7-1 


188  000734  012701  OOCOOOG 


189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 


0007A0  022762  OOOOOOG  OOOOOOG 

0007A6  001747 

000750  010502 

000752  000674 

000754  032767  OOOOOOG  OOOOOOG  40$: 

000762  001002 

000764  005704 

000766  001401 

000770  000207  50$: 


MOV  #C$ULtN,R1      ; 

CMP  *CS.CUG,C.STS(R2) 

BED  36$ 

MOV  R5,fi2 

BR  10$ 

BIT  #XP.KND,$0PRND 

BNE  50$ 

TST  R4 

BEG  101$ 

RETURN 


000772 

001002  000207 


;  ERRORS 
ioi$: 


ERROR$  #ERRNDT 
RETURN 


LENGTH  OF  A  CUG  DESCRIPTOR 

;  iS  THIS  A  USER  GROUP  BLOCK  ? 

If  EQ,  YES  -  PURGE  IT 

PICK  UP  SCAN  WHERE  WE  LEFT  OFF 

CONTINUE 

WILDCARD  OPERATION  ? 

BR  IF  YES 

ANYTHING  FOUND  ? 

BR  IF  ERROR 


NO  SUCH  DTE 


E  6 
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PURMOD  CREATED  BY     MAlRO     ON  29-JUN-85   AT   05:20  PAGE   ? 

MACRO  CROSS  REi'FRENCE  CREF       04.00 

MACRO  NAME  REFERENCES 

^^,^'rI  Itll  I'-m  8-23A  I'^'m  10-371  10-373  11-401  12-424  13-469  14-486 

PRINT  #4-59 


E     7 

»»F1LE»'ID«»PURREM 


PURREM  -  PURGE  REMOTE  NODE 
QREM  -  REMOVE  ENTRY  FROM  QUEUE 


"576 
?77 
578 
379 
380 
381 
382 
383 
38^ 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
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MACRO  V05.03b  Saturday  29-Jun-85  05:20  Page  11 

.SBTTL  QREM  -  REMOVE  ENTRY  FROM  QUEUE 

"*♦•  -  QREM  -  REMOVE  ENTRY  FROM  QUELl' 

INPUTS: 

R5  =  PREVIOUS  ENTRY  IN  QUEUE 
R2  =  ENTRY  TO  REMOVE 
STMLST  =  QUEUE  I.ISTHEAD 

OUTPUTS: 

R5,R2  =  PRESERVED 

ENTRY  IS  REMOVED  FROM  QUEUE 


000710 

000710  011215 

000712  001002 

000714  010567  000002G 

000723  000207 

000001 


QREM: 

MOV     (R2),(R5) 

BNE     10$ 

MOV     R5,$TMLST+2 
10$:    RETURN 

.END 


CLOSE  UP  LIST 

IF  NE,  NOT  LAST  IN  LIST 

SET  NEW  LAST  ENTRY 


PURREM  -  PURGE  REMOTE  NODE 
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SETBUF  CREATED  BY     MACRO     ON  29-JUN-85  AT   05:20 

SYMBOL  CROSS  REFERENCE 
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PAGE   1 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CS.BUF 

=       ****** 

GX 

5-175 

CS.MOR 

=       ****** 

GX 

5-180 

C.CBNM 

000004 

#4--' 39 

*5-183 

C.CBSZ 

000006 

#4-H0 

C.CSR 

000012 

#4-155 

C.CUO 

000006 

#4-153 

C.CWI 

000010 

#4-154 

L.RBNM 

000010 

#4-141 

*5-188 

5-?25 

C.RB3Z 

000012 

#4-142 

5-204 

5-206 

C.SBNM 

0000  K 

#4-143 

5-212 

♦5-214 

C.SBSZ 

C00016 

#4-144 

5-21? 

C.STS 

-  ****** 

GX 

5-175 

♦5-180 

C.THSH 

000020 

#4-145 

5-190 

♦5-192 

CUNT 

OOOOOA 

#4-152 

■DM 

000002 

R 

#4-98 

.RRBUF 

OOOOOA 

R 

#4-107 

5-223 

ERRTHS 

OOOOAl 

R 

#4-108 

5-195 

EXSERR 

=  000002 

#4-106 

4-107 

EX$WAR 

=  000000 

#4-105 

4-108 

0S.CC8 

=    ****** 

GX 

5-181 

OS.RBN 

::      ****** 

GX 

5-185 

OS.RBS 

=      ****** 

GX 

5-201 

OS.SbN 

r     ****** 

GX 

5-209 

OS.THR 

=     ****** 

GX 

5-216 

RATETB 

000124 

R 

#4-115 

RDB52 

OCOOOO 

R 

#4-97 

♦5-206 

SBUFF 

-   ****** 

GX 

5-196 

5-199 

SCCBNM 

~   ****** 

GX 

5-183 

$CFERR 

r     ****** 

GX 

5-199 

5-223 

SEDMSG 

=     ****** 

(iX 

5-198 

SOPRND 

-     ****** 

GX 

5-181 

5-185 

5-201 

SRDBNM 

=:     ****** 

GX 

5-187 

SRDBSZ 

=      ****** 

GX 

5-203 

5-207 

SSDBNM 

=     ****** 

GX 

5-211 

5-214 

SSEBUF 

000162 

RG 

#5-170 

STHRSH 

-      ****** 

GX 

5-218 

STMLST 

~      ****** 

GX 

5-172 

♦5-207 


5-194 


♦5-218 


5-209 


5-216 


SFTBUF 


CREATED  BY     MACRO     ON  29-JUN-85  AT   05:20 
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SETCUG  -  SFT  CLOSE!)  L,.ER  GROUP  MACRO  V05.03b  Saturday  29-Jun-85  05:21 
Table  ot  contents 

5-  86  LOCAL      DATA  ^  ,,..rrr,. 

6-  98  tSECUG   -   SET    CLOSED   USER   i-iROUP   r-Mi^AMETERS 


SETCUG  -   SET   CLOSED  USER  GROUP     MACRO  V05.05b   Saturday  29-Jun-85  05:21      Page   3 


5  10 

05:21 
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SETPTE  -  SET  LOCAL  DTE  PARAMETE  MACRO  V05.03b  Saturday  29-Jun-85  05:21  Page  4 


50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 


•  **  *♦ 

■  LOCAL  MACROS 

;  *  *  n  * 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
lEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


000040 


.IF  DIF  <TEXT><RO> 

MOV  TEXr.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

DEFHSH  =  32. 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCI2  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 

DEFAULT  HASH  TABLE  SIZE  FOR  NEW  DT'  i 
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••F1LE'MD"SETL0G 


5SSSSSSS 

EEEEEEEEEE 

TTTTTTTTTT 

LL 

000000 

GGGGGGGG 

ssssssss 

EEEEEEEEEE 

TTTTTTTTTT 

LL 

000000 

GGGGGGGG 

ss 

EE 

LL 

00 

00 

GG 

ss 

EE 

LL 

UU 

00 

GO 

S5 

EE 

LL 

00 

00 

Ob 

ss 

EE 

LL 

00 

00 

00 

ssssss 

EEEEEEEE 

LL 

00 

00 

00 

SS5SSS 

EEEEEEEE 

LL 

OU 

00 

00 

ss 

EE 

L. 

ou 

00 

00 

GGGGGG 

ss 

EE 

L. 

00 

00 

GO 

■iGGGGG 

ss 

EE 

L. 

00 

00 

00 

GG 

ss 

EE 

LL 

00 

00 

GG 

GG 

ssssssss 

EEEEEEEEEE 

LLLLLLLLLL 

000000 

GGGGGG 

ssssssss 

EEEEEEEEEE 

LLLLLLLLLL 

000000 

GGGGGG 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

.L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLL'  L 

ssssssss 

LLLLLLLLLL 

ssssssss 
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^ETLOfj  CRE/iTED  Bv     MACRO     ON  29-IUN-85   AT  05:21  PAGE   2 

SYMBOL    CROSS  REFERENCE  CREF        O'l.OO 


SYMBOL 

VALUE 

REFERENCES 

WC.LOG 

_ 

GX 

7-158 

7-208 

7-254 

tSYTMN 

- 

****** 

GX 

•7-252 

SBYTXT 

- 

GX 

•7-253 

tCFERR 

- 

****** 

GX 

7-175 

7-215 

7-241 

tCLASS 

- 

****** 

GX 

7-193 

•7-202 

7-222 

7-244 

9-303 

9-306 

SEVENT 

= 

****** 

GX 

•7-20A 
7-2A7 

•7-205 
7-2A8 

•7-206 
7-249 

•7-207 
9-308 

7-229 

7-230 

SKNEVT 

- 

****** 

GX 

7-192 

7-201 

9-305 

SOPRND 

= 

****** 

GX 

7-161 

7-164 

7-167 

7-188 

7-199 

7-256 

SQINSN 

r 

GX 

7-251 

SRQBf 

- 

****** 

GX 

7-239 

tSAVAL 

- 

****** 

GX 

9-302 

SSELOG 

000160 

RG 

#7-156 

SSWKH 

= 

****** 

GX 

7-180 

STMLST 

- 

****** 

GX 

7-172 

7-217 

l-lll 

SWILD 

- 

****** 

GX 

7-158 

7-190 

7-208 

7-254 

SXXAVL 

- 

****** 

GX 

7-237 

7-231  7-232  7-246 
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XS/Ch;  -  UPDATE   X25-SERVER   CHARACTERISTICS 
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333 
33A 

335 
336 
357 
338 
339 
3A0 
341 

342  001 71 A 

343  001714 

344  001722 

345  001724 

346  001750 

347  001754 

548  001740 

549  001744 

350  001746 

351  001752 
552  001756 

355  001764 
554  001770 
Zy.   001772 

356  001774 

557  002002 

558  002004 

559  002012 

560  002014 

561  002022 

562  002024 
365  002052 
564  002040 
565 

56i^ 
567 

568  002042 

569  002052 


052767 
001420 
016700 
005267 
016701 
166001 
006501 
060167 
060167 
016760 
012700 
011000 
001425 
122760 
001572 
026027 
001366 
052767 
001406 
016760 
052760 
000207 


.S8TTL  XSVCHA  -  UPDATE  X25-SERVER  CHARACTERISTICS 

•♦  XSVCHA  -  UPDATE  X25-SERVER  CHARACTERISTICS 

INPUTS  NONE. 

OUTPUT  THE  X25-SERVER  CHARACTERISTICS  ARE  UPDATED. 


OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  055450 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


XSVCHA: 


5$: 
10$: 


20$: 


BIT  #XS.riXC,«OPRND 

BEQ  5$ 

MOV  $PSIPT,RO 

INC  $MC1 

MOV  $MCI,R1 

SUB  P$SPCR(R0),R1 

ASL  Rl 

ADD  R1,$BYTMN 

ADD  R1,$BYTXT 

MOV  $MCI,P$SPOR(R0) 

MOV  *$TMLST,RO 

MOV  (R0),RO 

BEQ  101$  , 

CMPB  #CS.LlC,C.STS(RO) 

BNE  10$ 

CMP  L$LNAM(RO),#<*RNW 

BNE  10$ 

BIT  #XS.CTM,$OPRND 

BEQ  20$ 

MOV  $CT,L$LCTM(R0)   , 

BIS  *CS.MOD,C.STS(R0) 

RETURN 


ERRORS 


000207 


101$: 


ERROR$ 
RETURN 


#ERRXSV 


UPDATE  MAX  CIRCUITS  ? 

BR  IF  NO 

POINT  70  PSN$DF  TEMPLATE 

ALWAYS  FUDGE  AN  EXTRA  ENTRY 

GET  NEU  VALUE 

CALCULATE  DIFFERENCE 

IN  BYTES 

UPDATE  POOL  BYTE  MINIMUM 

UPDATE  POOL  BYTE  ALLOCATION 

SET  MAX  CIRCUIT  PARAMETER 

POINT  TO  TEMPLATES 

NEXT  TEMPLATE 

BR  IK  ERROR 

;  CHECK  TYPE 

BR  IF  NOT  LLC 

>  ;  CHECK  LLC  NAME 

BR  IF  WRONG  LLC 

COUNTER  TIMER  ? 

BR  IF  NO 

UPDATE  COUNTER  TIMER 

;  MARK  TEMPLATE  FOR  UPDATE 


NO  X25-SERVER  DATABASE 
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SETMOO  -  DEFINE  MODULE  MACRO  V0r.05b  Monday  01-Jul-85  17:29  Page  11 
v5Qrui  -  iiPn/STF  vPq-t;FR\;FR  THARAfTFRIST  ITS 


D  15 

SEIMOD  CREATED  BY     MACRO     ON   1-JUL-85  AT   V:29  PAGE   « 

MACRO  CROSS  REFERENCE  CEF       OA.UO 

MACRO  NAME  REFERENCES 

ERRORt  itll  6-184  9-536  9-328  9-550  10-368  11-596  15-490  15-A9?  15-194 

K-566  U-569  15-585 

PRINT  #4-59 


i  15 

»«f!le»«id**';etnod 


SEINOD 

CREATED  BY 

MACRO 

ON  ?9- 

•JUN 

•85 

AT 

05 

?: 

MACRO  (ROSS 

RF 

ERENCE 

MACRO  NAME 

REFERENCES 

EPRINT 
ERRORt 
PRINT 

#4-76 
#4-65 
#4-60 

5 

-198 

D  16 

PAGE  2 

CREF       04.00 


♦♦F1LE«M0«*SETNS" 


i  16 


PR  SHOD  - 
.MOPRI 

472 
473 
474 
475 
476 
477 
t78 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 


PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 
-  PARSE  LIST  INSERTION  PRIORITY 


05:1 


9  Page  23 


.SBTTL  .MOPRI  -  PARSE  LIST  INSERTION  PRIORITY 
';***   .MOPRI  -  PARSE  LIST  INSERTION  PRIORITY 


001050 

001050  005767  OOOOOOG 

001054  001214 

001056  105767  OOOOOIG 

001062  001211 

001064  116767  OOOOOOG  OOOOOOG 

00'' 072  000207 


;  INPUTS 
;  OUTPUT 

.MOPRI: 


.TPARS  VARAIBLES 

LIST  INSERTION  PRIOITY  STORED  IN  $PRI. 


TST 

BNE 

TSTB 

BNE 

MOVB 

RETURN 


.PNUMH 

ILLNUM 

.ONUMB+1 

ILLNUM 

.PNUMB.SPRI 


TEST  FOR  HIGH  ORDER 
IF  NE,  BAD  NUMBER 
CHECK  HI  BYTE 
IF  NE,  BAD  NUMBER 
SAVE  PRIORITY 


nocMnPi 


OADCC     ATTiriM    DmiTtMCC       MATDn    WlTi    H^^K    ^afi.rH;iv    PQ- 


F      1 

iin-fiS   nS:19      Psop   ?^ 
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.OBNAM  -  STORE  THE  OBJECT  TASK  NAME 
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90 

91 

92 

93 

9^ 

95 

96 

97 

98 

99 

100 

101 

102 

103  000036 

104  000036 

005067 

000002G 

105  000042 

016700 

OOOOOOG 

106  000046 

010046 

107  000050 

066716 

OOOOOOG 

108  Cj0054 

117646 

000000 

109  001  060 

112776 

000077  000002 

110  000066 

010701 

111  000070 

004767 

OOOOOOG 

112  000074 

010167 

OOOOOOG 

113  000100 

103414 

114  000102 

010701 

115  000104 

004767 

OOOOOOG 

116  000110 

010167 

000002G 

117  000114 

022767 

000006  OOOOOOG 

118  000122 

103003 

119  000124 

062766 

000002  000004 

120  000132 

112636 

121  000134 

000207 

.SBTTL 
«**  -  .OBNAM 
INPUT 


.OBNAM  -  STORE  THE  OBJECT  TASK  NAME 
STORE  THE  OBJECT  TASK  NAME 


.PSTPT  =  ADDRESS  OF  THE  OBJECT  TASK  NAME 
.PSTCN  =  NUMBER  OF  CHARACTERS  IN  THE  TASK  NAME 

OUTPUT: 

$TNAM  =  THE  OBJECT  TASK  NAME  IN  RAD50 
THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.OBNAM: 


10$: 


CLR 

MOV 

MOV 

ADD 

MOVB 

MOVB 

MOV 

CALL 

MOV 

BCS 

MOV 

CALL 

MOV 

CMP 

BHIS 

ADD 

MOVB 

RETURN 


$TNAM+2 
. PSTPT, RO 
RO,-(SP) 
.PSTCN, (SP) 
a(SP),-(SP) 

#'?,a2(sp) 

PCRI 

$CAT5 

R1,$TNAM 

10$ 

PC,R1 

SCATS 

R1,$TNAM+2 

*6, .PSTCN 

^oi 

#2,4(SP) 

(SP)t,a(SP)+ 


CLEAR  THE  2ND  HALF  OF  THE  TASK  NAME 

POINT  AT  THE  TASK  NAME 

COPY  POINTER 

POINT  TO  LAST  CHAR  AFTER  LAST 

SAVE  CHARACTER 

INSERT  SCAN  STOPPER 

PERIODS  ARE  ACCEPTABLE 

CONVERT  TASK  NAME  TO  RAD50 

STORE  THE  TASK  NAME 

IF  CS,  END  OF  SCAN 

ACCEPT  PERIODS 

CONVERT  2ND  HALF  TO  RAD50 

STORE  THE  2ND  HALF  OF  THE  TASK  NAME 

IS  THE  TASK  NAME  TOO  BIG  ? 

IF  HIS,  NO  ..  EXIT 

ELSE,  REJECT 

RESTORE  CHARACTER  AND  CLEAN  STACK 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CKF'^" 

0007^4 

RG 

#9-398 

CS.REM 

=   ****** 

GX 

5-133 

C.ADD 

000010 

#4-73 

5-135 

C.LEN 

=  000012 

D',-7t, 

C.NAM 

OOOOOA 

#^-72 

C.STS 

:=  ****** 

=  000001 

GX 

5-133 
#7-259 

7-265 

7-265 

7-265 

7-265 

7-265 

7-265 

7-265 

7-265 

\J  \/  V  V   ^r*     1 

7-265 

7-265 

7-265 

7-265 

7-268 

7-268 

7-268 

7-268 

7-268 

7-268 

7-268 

7-268 

7-268 

7-268 

7-268 

7-268 

E 

=  000000 

#7-258 

7-265 

7-268 

ERRCID 

=  ****** 

GX 

6-246 

ERRILN 

~    ****** 

GX 

6-219 

ERRNOD 

=  ****** 

GX 

5-142 

ERRPNA 

r  ****** 

GX 

5-139 

F.DEV 

000001 

#4-61 

9-417 

F  .LEN 

=  000037 

#4-62 

H 

=  177777 

#7-260 

7-265 

7-265 

7-265 

7-265 

7-265 

HEX 

000604 

R 

7-287 

#7-330 

8-362 

ILLNUM 

000310 

R 

6-210 

6-212 

#6-219 

1$$AS 

=  ****** 

6-215 

MOVSTR 

001036 

R 

9-418 

#9-432 

MXFSP 

=  000036 

#4-56 

4-61 

9-399 

REJ 

000316 

R 

#6-221 

6-247 

7-279 

8-359 

8-363 

REJI 

000730 

R 

7-284 

7-288 

#8-372 

9-400 

9-414 

RN.NAM 

=      ****** 

GX 

5-115 

R$$EIS 

=   ****** 

6-215 

RSSIID 

r  ****** 

6-215 

SCR 

000000 

R 

#4-80 

7-273 

7-292 

8-352 

8-367 

STR50 

000550 

R 

6-244 

#7-304 

STR50X 

0005A0 

R 

7-295 

#7-306 

8-370 

T1 

000362 

R 

#7-265 

7-274 

T2 

000A05 

R 

#7-268 

7-277 

WC.CIR 

=  ******* 

GX 

6-241 

SCATS 

=  ****** 

GX 

6-18C 

SERROR 

=  ****** 

GX 

*5-139 

♦5-142 

♦6-219 

♦6-246 

SNOOAD 

-  ****** 

GX 

5-126 

5-135 

6-158 

6-165 

♦6-166 

SNODNA 

=  ****** 

GX 

5-117 

5-119 

SNTADD 

=  ****** 

GX 

5-126 

SNTNAM 

=   ****** 

GX 

5-117 

5-119 

SOPRND 

-       r ***** 

GX 

5-115 

SRNDCP 

=       »***♦* 

GX 

*6-216 

SRNDPA 

-   ****** 

GX 

*6-194 

♦6-195 

SRNHAR 

-   ****** 

GX 

7-294 

SRNHOS 

=   ****** 

GX 

4-91 

♦6-158 

6-16^. 

♦6-165 

SRNSCI 

-   ****** 

GX 

6-243 

$RN"D>' 

-       ♦♦**♦* 

GX 

♦6-181 

SRNSPA 

r  ***»«* 

GX 

8-369 

SRNXXX 

-  ****** 

GX 

4-93 

t^MLST 

r  ****** 

GX 

5-129 

SWILD 

=     ****** 

GX 

6-241 

.CAT5E 

-  ****** 

GX 

7-312 

.PNUMB 

r  ****** 

GX 

6-194 

6-209 

roPSTcn  nv      iviarRn     niu  ?9-lliW-SS   AT   05:19 
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232 
233 
23'!. 
235 
236 
237 
238 
239 
2^0 
241 
2A2 
243 
244 
245 

246  000364 

247  000364 

248  000372 

249  000376 

250  000400 

251  000406 

252  000410 

253  000416 

254  000420 

255  000424 

256  000432 


.SBTTL  .SYSBN  -  SET  NUMBER  OF  SDB'S 
*♦*  -  .SYSBN  -  SET  NUMBER  OF  SDB'S 
INPUT: 


.PNUMB  =  NUMBER  OF  SDB'S 

.PNUMH  -  NUMBER  OF  SDB'S  (HIGH  ORDER) 


OUTPUT 


SSDBNM  =  THE  NUMBER  OF  SDB'S 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


016767 
005767 
001010 
022767 
003004 
022767 
002005 
062716 
012767 
000207 


OOOOOOG  OOOOOOG 
OOOOOOG 

000003  OOOOOOG 

000310  OOOOOOG 

c  :oo2 

uOOOOOG  OOOOOOG 


.SYSBN: 


5$: 
10$: 


MOV 

.PNUMB, SSDBNM 

TST 

.PNUMH 

BNE 

5$ 

CMP 

#3.,. PNUMB 

B6T 

5$ 

CMP 

#200.,. PNUMB 

BGE 

10$ 

ADD 

*2,(SP) 

MOV 

#ERRILN,$ERROR 

STORE  THE  NUMBER  OF  SDB'S 

IS  IT  A  WORD  VALUE  ? 

IF  NE,  NO  ..  REJECT 

THE  NUMBER  OF  SDB'S  MUST  BE  X  WHERE: 

3.  <=  X  <^  200. 


ELSE  REJECT  THE  TRANSITION 
INVALiD  NUMBER 


RETURN 
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205 
206 
207 
208 
209 
210 
211 
212 
213 
2H 
215 

216  C01004 

217  001 OOA 

218  001010 

219  001012 

220  0010U 

221  001016 

222  001024 

223  001026 
22A  001 03A 

225  001036 

226  001044 
22^  001046 

228  001054 

229  001056 

230  001062 

231  001066 

232  001070 

233  001074 

234  001100 

235  001110 

236  001112 

237  001114 

238  001116 
239 


.SBTTL  CHKDTE  -  CHECK  DTE  ELIGI81LITY  FOR  DELETION 

^*  CHKDTE  -  CHECK  DTE  ELIGIBILITY  FOR  DELETION 

INPUTS:      R2  =  ADDRESS  OF  DTE  TEMPLATE 

OUTPUT:       CARRY  CLEAR  -  DTE  IS  ELIGIBLE  FOR  DELETION 

CARRY  SET  -  DTE  CANNOT  BE  DELETED  (IT  HAS  DLM  PVCS) 
ERROR  MESSAGE  PRINTED 


CHKDTE. 

004267 

OOOOOOG 

JSR 

R2,$SAVVR 

• 

SAVE  VOLATILE  REGISTERS 

010201 

MOV 

R2,R1 

; 

COPY  TEMPLATE  ADDRESS 

011101 

10$: 

MOV 

(R1),R1 

; 

NEXT  TEMPLATE 

001437 

BEQ 

20$ 

• 

BR  IF  END  OF  LIST 

126127 

OOOOOOG 

OOOOOOG 

CMPB 

C.STS(R1),*CS 

CHN 

;  CHANNEL  DEF'N? 

001772 

BEQ 

10$ 

• 

IF  EQ,  CONTINUE  SCAN 

12t)l  27 

OOOOOOG 

OOOOOOG 

CMPB 

C.STS(R1),#CS 

CUG 

;  CUG  DEF'N? 

001766 

BEQ 

10$ 

■ 

IF  EQ,  CONTINUE  SCAN 

126127 

OOOOOOG 

OOOOOOG 

CMPB 

C.STS(R1),*CS 

.PVC 

;  PVC  DEF'N 

001023 

BNE 

20$ 

• 

IF  NE,  END  OF  SCAN 

026127 

OOOOOOG 

015355 

CMP 

P$V0WN(R1),#'' 

^DLM 

;  DLM  PVC  ? 

001356 

BNE 

10$ 

IF  NE,  NO  -  STILL  OK  TO  DELETE 

012700 

OOOOOOG 

MOV 

#$8UFF,R0 

• 

POINT  TO  MESSAGE  BUFFER 

012701 

000354' 

MOV 

#ERRDLM,R1 

COPY  FORMATTING  STRING 

112120 

MOVB 

(R1)+,(R0)+ 

MOVE  STATUS  BYTE  TO  OUTPUT  BUFFER 

062702 

OOOOOOG 

ADD 

#D$TADR,R2 

• 

POINT  TO  RAD50  DTE  ADDRESS 

G04767 

OOOOOOG 

CALL 
ERROR$ 

$EDMSG 
#$8UFF 

•: 

CONVERT  RAD50  TO  ASCII 

ERROR  -  CAN'T  DELETE  DTE  WITH  DLM  PVCS 

000261 

SEC 

' 

RETURN  FAILURE 

000401 

BR 

30$ 

000241 

20$: 

CLC 

I 

RETURN  SUCCESS 

000207 

30$: 

RETURN 

PllRMOR  -  PlIRGF  MODULE   MACRO  V05.03b  S 
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CS.FIL= 

CS.REM= 

CS.SER= 

CPRM  = 

C.STS  = 

OEAFIL 

ERRN0D= 

FILPT 

FTBL 

FSDIA 

FSDUM 

F$LD 

F$LEN  = 

F$SEC 

F$TER 

F.CNT 


*•««•»  GX 

•*♦♦♦*  GX 

».♦»♦»  GX 

»»»»««  GX 

«»«»*•  GX 

0006KR 

******  GX 

OOOOUiR 

000566R 

000012 

OOOOK 

000010 

000016 

OOOOOA 

000006 

000002 


F.DEV 

F.LEN1-- 

F.LNK 

HXFSP  = 

PRGFIL 

PRG5ER 

PURDLL 

QREM 

REMIEN= 

RN.DCT= 

RN.DIA= 

RN.DMP= 

RN.DPA: 

RN.HAR= 

RN.HOS: 


000005 
OOOOA? 
000000 
000036 
000522R 
000432R 
000174R 
00071  OR 
000012 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


RN.L0D= 

RN.NAM= 

RN.SCI= 

RN.SDV= 

RN.SL0= 

RN.SNV= 

RN.SPA= 

RN.rL0= 

R.LENX= 

SERPT 

SF.ADD=: 

SF.CIR= 

SF.DEV= 

SF.DPA= 

SF.DPC= 


******  GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

000002R 

000001 

000010 

000020 

000100 

000200 


SF.HAD= 

SF.HST= 

SF.PH3- 

SF.PSS= 

STBL 

SUCC 

SSADD 

S$CIR 

S$DEV 

SSDPA 

S$DPC 

S$FLG 

S$HAD 

S$HST 

SSLEN  = 


000004 

000002 

OOOAOO 

000040 

000460R 

OOOOOOR 

000006 

000022 

000032 

000050 

000054 

000004 

000012 

000010 

000056 


SSPSS 

000034 

S.LENX=: 

****** 

GX 

WC.NOD= 

****** 

GX 

$BYTMN= 

****** 

GX 

$8/1X7= 

****** 

GX 

$CFERR= 

****** 

GX 

$FILHD= 

****** 

GX 

$NODAD= 

****** 

GX 

$OPRND= 

****** 

GX 

$PUREM 

000006RG 

$RLBF  = 

****** 

GX 

$THLST= 

****** 

GX 

$WILD  = 

****** 

GX 

$XXAVL= 

****** 

GX 

.CONER= 

****** 

GX 

.  ABS.   000056 
000722 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


»*♦  Assembler  statistics 


0 

0 

8375  words  (  33  Pages) 

14440  Words  (  55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  f  i le  writes : 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 
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MAi.RO  CROSS  REFERENCE  CREF        04.00 

MACRO  NAME  REFERENCES 

4-91 

5-199  5-223 


CHADFS 

#4-89 

EPRINT 

#4-76 

ERRORS 

#4-65 

PRINT 

#4-60 
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26 

27 

28 

29 

30 

31 

32 
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.TITLE  SETCUG  -  SET  CLOSED  USER  GROUP  PARAMETERS 
.IDENT  /VOr.OO/ 
.ENABL  LC 

COPYRIGHT  ;C)  1981,  1982,  1983,  1985  BY 
DIJITAl  equipment  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NCTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SET  CLOSED  USER  GROUP  PARAMETERS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  26-0CT-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-32 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro'RSX  VLO 
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SETDTE  -  SET  LOCAL  DTE  PARAMETE  MAf'JO  V05.03b  Saturday  29-Jun-85 

LOCAL  DATA 


I  11 

05:2 


21  Page  5 


82 
85 
8^^ 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9^ 
95 
96 
97 


.SBTTL  LOCAL  DATA 
.NLIST  BEX 


LOCAL  DATA 


000000 
900005 


OOOG 
OOOG 


000000 

000002 

000012    002 

000052    COO 

000106    OiO 


OOOG 
OCOG 


103 
103 
157 


i.'iOG  f'RDLST: 
OOOG 


.B'TE 
.B'TE 


CS.PSN,  CS.X3P,  CS.X2P,  CS.A(r9,  CS.DTE 
CS.CHN,  CS.PVC,  CS.SVC,  CS.CUG,  0 


EXSUAR  =  0 

EXtERR  =2 
106  ERRP1I:  .ASCIZ  <EX$ERR>'CFE  —  Missing  parameter:  LINE/ 
106  ERRLIN:  .ASCII  <EX$WAR>/CFE  ~  DTE  i!5R  not  enabled,/ 
16A         . ASCIZ         /  other  DTE  using  line/ 

.EVEN 

.LIST  BEX 
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SETLOG  -  SET  LOGGING  PARAMETER  MACRO  V05.03b  Saturday  29-Jun-85 
Table  ot  contents 

MACRO  CALLS 

LOCAL  DATA 

LOCAL  SYMBOL  DEFINITIONS 

$SELOG  -  SET  LOGGING  PARAMETERS 

UNEVT  -  FIND  NEXT  EVENT  IN  LIST 

PROEVT  -  PROCESS  CVENT  MASK 


Esli 


4- 

SU 

S- 

4S 

fi- 

116 

1- 

H4 

8- 

9- 

285 
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SETLOG     CREAIfO  Bv  MACRO  ON  29-JUN-85  AT  05:21 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


E  13 

PAGE  3 

CREf   04.00 


EPRINT 
ERRORt 
FLTDFt 
PRINT 


#',-81 
#4-70 
#4-91 
#4-65 


7-175 
4-93 


7-215 


7-241 
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SETMOD  -  DFFINE  MODULE  MACRO  V0".03b  Monday  Ol-Jul-85  17:29 
X29CHA  -  UPDATE  X29-SERVEft  CHARACTERISTICS 


E  U 
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37) 
372 
373 
374 
375 
376 
377 
378 
379 
580  002054 

381  002054 

382  002060 

383  002062 

384  002064 

385  002072 

386  002074 

387  002102 

388  002104 

389  002112 

390  002120 

391  002122 

392  002130 
393 

394 
395 

396  002132 

397  002142 
598 


.SBTTL  X29CHA  -  UPDATE  X29-SERVER  CHARACIERISTKS 
•♦  X29CHA  -  UPDATE  X29-SERVER  CHARACTERISTICS 
INPUTS       NONE. 
OUTPUT       THE  X29-SERVER  CHARACTERISTICS  ARE  UPDATED. 


012700 
011000 
001425 
122760 
001372 
032767 
001405 
016760 
032767 
001405 
016760 
000207 


000207 


OC^OOOG 


X29CHA.- 
10$: 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 


?0$: 


50$: 


MOV 

MOV 

BEQ 

CMPB 

BNE 

BIT 

BEQ 

MOV 

BIT 

BEQ 

MOV 

RETURN 


ERRORS 


40$: 


ERR0R$ 
RETURN 


#$TMLST,RO 

(R0),R0 

40$  , 

#CS.X29,C.STS(R0) 

10$ 

#XS.CTM,$0PRND 

20$ 

$CT,X$9CT(R0) 

#XS.MXC,$OPRND 

50$ 

IMCI,X$9MXC(R0) 


#ERRX29 


POINT   TO  LISTHEAD 

NEXT 

IF  EO,  NO  X29  SUPPORT 

;  CHECK  FOR  X29  DATABASE 

KEEP  ON  LOOKING 

COUNTER  TIMER  ? 

BR  IF  NO 

UPDATE  COUNTER  TIMER 

MAX  CIRCUITS? 

BR  IF  NO 

UPDATE 


NO  X29  SUPPORT 


SETMOD  -  DEFINE  MODULE  MACRO  V05.03b  Monday  Ol-Jul-85  17:29 

ruh-ncT       _    rucrt-    c  no    nCQT'MATmM    TFMPI  ATF 
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.MODSl   -  PARSE  DESTINATION  SUBADDRESS  RANGE 


490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 

502  001074 

503  001074 

504  001100 

505  001106 

506  001110 

507  001110 

508  001114 

509  001120 

510  001122 

511  001126 

512  001132 

513  001134 
514 

515 
516 

517  001136 

518  001144 

519  001150 
520 


012700 
012767 
000402 

012700 
005767 
001006 
016710 
021027 
101001 
000207 


012767 
062716 
000207 


.SBTTL 
.SBTTL 


.MODSl 

.raDS2 


PARSE  DESTINATION  SUBADDRESS  RANGE 
PARSE  DESTINATION  SUBADDRESS  RANGE 


♦*  .MODSl  -  PARSE  DESTINATION  SUBADDRESS  RANGE 
♦*  .M0DS2  -  PARSE  DESTINATION  SUBADDRESS  RANGE 

INPUTS        .TPARS  VARAIBLES 

OUTPUT       THE  DESTINATION  SUBADDRESS  IS  SAVED  IN 
THE  PARSED  DATA  AREA 


.ENA6L 
.MODSl:: 
OOOOOOG  MOV 

17^777  OOOOOOG        MOV 
BR 
.M0DS2:: 


OOOOOOG 
OOOOOOG 

OOOOOOG 
023417 


10$: 


MOV 
TST 
BNE 
MOV 
CMP 
BHI 
RETURN 


LS3 

#$SUB1,R0 
#-l,$SUB2 
10$ 

#$SU82,R0 

.PNUMH 

ILLNU2 

.PNUMB.CRO) 

(R0),#9999. 

ILLNU2 


TARGET  ADDRESS 

NO  SECOND  ADDRESS,  YET 


TARGET  ADDRESS 
CHECK  HIGH  WORD 
BR  IF  BAD  NUMBER 
SAVE  NUMBER 
CHECK  HIGH  BOUND 
BR  IF  OUT  OF  RANGE 


.DSA8L  LSB 


OOOOOOG  OOOOOOG  ILLNU2:  MOV 
000002        REJEC2:  ADD 

RETURN 


#EfiRJLN,$ERR0R 
#2,;SP) 


wAC  n7k  c -,*■ 


r^-H=;  n^.10 
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OBCOP  -  STORE  THE  NUMBER  OF  OBJECT  TASK  COPIES 
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125 
12A 
125 
126 
127 
128 
"29 
130 
131 
132 
133 
134 
135 
136 

137  000136 

138  000136 

139  OOOKA 
UO  0001A6 
HI  000152 
H2  000154 
U3  000162 
H4  000164 

145  000166 

146  000172 

147  000174 

148  C00200 

149  000206 
150 

151 
152 


.SBTTL 
»•♦  -  .OBCOP 
INPUT 


.OBCOP  -  STORE  THE  NUMBER  OF  OBJECT  TASK  COPIES 
STORE  THE  NUMBER  OF  OBJECT  TASK  COPIES 


.PNUMB  =  THE  NUMBER  OF  OBJECT  TASK  COPIES 

.PNUMH  =  THE  NUMBER  OF  OBJECT  TASK  COPIES  (HIGH  ORDER) 


OUTPUT 


HOPES  =  THE  NUMBER  OF  OBJECT  TASK  COPIES 
THE  TRANSITION  IS  ACCEPTED/REJECTED. 


016767 
001413 
005767 
001010 
022767 
103404 
001010 
005067 
000405 
062716 
012767 
000207 


000001 


OOOOOOG  OOOOOOG 

OOOOOOG 

000100  OOOOOOG 

OOOOOOG 

000002        10$: 
OOOOOOG  OOOOOOG 

20$: 


.OBCOP:: 


MOV 

BEQ 

TST 

BNE 

CMP 

BLO 

BNE 

CLR 

BR 

ADD 

MOV 

RETURN 


.END 


. PNUMB, $COPES 

10$ 

.PNUMH 

10$ 

#100,. PNUMB 

10$ 

20$ 

SCOPES 

20$ 

#2,(SP) 

#ERRILN,$ERROR 


STORE  THE  NUMBER  OF  COPIES 

IF  EQ,  BAD  NUMBER  OF  COPIES 

IS  THIS  A  WORD  VALUE  ? 

IF  NE,  NO  ..  REJECT 

IS  THE  NUMBER  OF  COPIES  <=  100 

IF  LO,  NO  ..  REJECT 

IF  NE,  IT  IS  STRICTLY  <  100 

ELSE,  ZERO  THE  NUMBER  OF  COPIES 

AND  LEAVE 

REJECT  THE  TRANSITION 

INVALID  NUMBER 
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Table  of  contents 

4-  51    DEFINITIONS  AND  DATA  AREA 

^-  82    .RNIN2  -  INITIALIZE  REMOTE  NODE  OPTIONS 

5-  97    .RNCHK  -  CHECK  REMOTE  NODE  OPTIONS 

6-  U9  .RNH01  -  PARSE  REMOTE  NODE  HOST 
6-  150  .RNHOS  -  PARSE  REMOTE  NODE  HOST 
6-  170    .RNSDV  -  PARSE  SERVICE  DEVICE 

6-  185    .RNDPA  -  PARSE  DUMP  ADDRESS 

6-  199    .RNDCT  -  PARSE  DUMP  COUNT 

6-  227    .RNSCI  -  STORE  SERVICE  CIRCUIT 

7-  2A9    .RNHAR  -  STORE  HARDWARE  ADDRESS 

8-  342    .RNSPA  -  STORE  SERVICE  PASSWORD 

9-  376    FILE  PARSING  ACTION  ROUTINES 


DDCRfM  -  p4R';f   arrinM  RniiTINFS 
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PRSREM  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:19 

SYMBOL   CROSS  REFERENCE 


F     4 

PAGE   ? 

CREF       04.00 


SYMBOL      VALUE 


.PNUMH 
.PSTCN 
.PSTPT 
.RNCHK 
.RNCLF 
.RNDCT 
.RNDPA 
.RNFSP 
.RNHAR 
.RNHOS 
.RNHOl 
.RNH02 
.RNIN2 
.RN3CI 
.RNSDV 
.RNSPA 


=  *****rt 


****** 
****** 

000036  RG 
000736  RG 
0002A6  RG 
000230  RG 

****** 

00042A  RG 
000172  RG 
000156  RG 
000166  RG 
000020  RG 
00032A  RG 
000212  RG 
000642  RG 


GX 


REFERENCES 

6-195 

6-239 

6-179 
#5-111 
#9-386 
#6-208 
#6-193 
*9-387 
#7-271 
#6-163 
#6-157 
#6-161 
#4-90 
#6-238 
#6-178 
#8-351 


6-211 
7-278 
7-272 


9-416 


7-305 
7-304 


8-356 
8-360 


9-399 
9-402 


9-403 
9-434 


9-433 


DDCDCM 


rDC  A  Tcr\     DV 


IW-RS    4T    nS:!? 
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258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 

272  000434 

273  000434 

274  000442 

275  000446 

276  000450 

277  000456 

278  000460 

279  000464 

280  000466 

281  000472 

282  000474 

283  000500 

284  000506 
285 

286 
287 


.SBTTL   .SYTHR  -  SET  MINIMUM  NUMBER  OF  RDB'S  FOR  POOL 
'*♦*  -  .SYTHR  -  SET  MINIMUM  NUMBER  OF  RDB'S  FOR  POOL 
INPUT: 


.PNUMB  =  MINIMUM  NUMBER  OF  RDB'S  FOR  POOL 

.PNUMH  =  MINIMUM  NUMBER  OF  RDB'S  FOR  POOL  (HIGH  ORDER) 


OUTPUT 


STHRSH  =  THE  MINIMUM  NUMBER  OF  RDB'S  FOR  POOL 
THE  TRANSITION  IS  ACCEPTED/REJECTED. 


.SYTHR: 

016767 

0000006 

OOOOOOG 

MOV 

.PNUMB, STHRSH 

005767 

OOOOOOG 

TST 

.PNUMH 

001012 

BNE 

5$ 

022767 

000001 

OOOOOOG 

CMP 

#1.,. PNUMB 

003006 

BGT 

5$ 

016700 

OOOOOOG 

MOV 

$RD8NM,R0 

005300 

DEC 

RO 

020067 

OOOOOOG 

CMP 

RO,. PNUMB 

002005 

BGE 

10$ 

062716 

000002 

5$: 

ADD 

#2,(SP) 

012767 

OOOOOOG 

OOOOOOG 

MOV 

#ERRILN,$ERRDR 

000207 

10$: 

RETURN 

STORE  THE  MINIMUM  NUMBER  OF  RDB'S  FOR  POOL 

IS  IT  A  WORD  VALUE  ? 

IF  NE,  NO  ..  REJECT 

THE  MIN.  #  OF  RDB'S  MUST  BE  X  WHERE: 

1.  <=  X  <=  (NUMBER  OF  RDB'S  -  1.) 


ELSE  REJECT  THE  TRANSITION 
INVALID  NUMBER 


000001 


.END 
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241 
2^.2 
243 
244 
245 
246 
247 
248 
249 

250  001120 

251  001120 

252  001122 

253  001126 

254  001130 

255  001132 

256  001134 

257  001142 

258  001144 

259  001152 

260  001154 

261  001162 

262  001164 

263  001172 

264  001174 

265  001176 

266  001202 

267  001206 

268  001212 

269  001214 

270  001216 

271  001224 

272  001226 

273  001230 

274  001232 
275 

276 
277 

278  001234 

279  001244 
280 


.SBTTL  PURCUG  -  PURGE  CLOSED  USER  GROUP 
♦*  PURDTE  -  PURCUG  -  PURGE  CLOSED  USER  GROUP 
INPUTS       SOPRND  =  REQUEST  TYPE 
OUTPUT       THE  REQUESTED  CUG  DESCRIPTOR(S)  ARE  PURGED. 


005004 
012702 
010205 
011202 
001431 
122762 
001371 
032767 
001010 
026762 
001361 
026762 
001355 
010604 
012700 
012701 
004767 
010502 
000744 
032767 
001002 
005704 
001401 
000207 


000207 


PURCUG: 


OOOOOOG 


10$: 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 


OOOOOOG 
OOOOOOG 
000652 


20$: 


OOOOOOG  OOOOOOG  30$: 


40$: 


CLR 

MOV 

MOV 

MOV 

BEQ 

CMPB 

BNE 

BIT 

BNE 

CMP 

BNE 

CMP 

BNE 

MOV 

MOV 

MOV 

CALL 

MOV 

BR 

BIT 

BNE 

TST 

BEQ 

RETURN 


ERRORS 


101$: 


,R2 


,C.STS(R25 


ERROR$ 
RETURN 


R4 

#$TMLST 

R2,R5 

(R2),R2 

30$ 

#CS.CUO 

10$ 

#XP.KNG,$OPRND 

20$ 

$CUG,C$UNAM(R2) 

10$ 

TCUG+2,C$UNAM+2 

10$ 

SP,R4 

#C$LENX,RO 

#C$ULEN,R1 

DEALC 

R5,R2 

10$ 

#XP.KNG,$OPRND 

40$ 

R4 

101$ 


#ERRNSG 


NONE  FOUND  YET 
POINT  TO  LISTHEAD 
SAVE  PREVIOUS  ADDRESS 
NEXT  ADDRESS 
BR  IF  END  OF  LIST 
;  CHECK  FOR  DTE  BLOCK 
BR  UNLESS  DTE 
CHECK  FOR  KNOWN  DTES 
BR  IF  WILDCARD 
CHECK  FIRST  PART  OF  NAME 
BR  IF  WRONG  CUG 
(R2)  ;  COMPARE  SECOND  WORD 
IF  NE,  I'.EEP  LOOKING 
INDICATE  WILDCARDS  OR  FOUND 
LENGTH  OF  CUG  IN  POOL.. 
LENGTH  OF  A  CUG  TEMPLATE 
DEALLOCATE  IT 
RESUME  SEARCH  CORRECTLY 
CONTINUE 

WILDCARD  OPERATION  ? 
IF  NE,  YES 
ANYTHING  FOUND 
IF  EQ,  NOPE 


NO  SUCH  GROUP 
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Table  ot  contents 

;-   45    MACRO  DEFINITIONS 

5-  70    LOCAL  DATA 

6-  UA  PURREM  -  PURGE  REMOTE 

7-  200  PURDLL  -  PURGE  DLL  INFO        .„...„. 

8-  268  PRGSER  -  PURGE  SERVICE  BLOCK  PARAMETERS 
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CREF        OA.OO 


SYMBOL  VALUE 


CS.FIL 
CS.REM 
CS.SER 
CPRM 
C.STS 
DEAFIL 
ERRNOD 
FILPT 
FTBL 
FSDIA 
FtDUM 
FtLD 
FSLEN 
F$SEC 
FSTER 
F.CNT 
F.DEV 
F.LEN1 
F.LN< 
MXFSP 
PRGFIL 
PRGSER 
PURDLL 
QREM 
REMLEN 
RN.DCT 
RN.DIA 
"■■  DMP 
"IPA 
F..,.HAR 
RN.HOS 
RN.LOD 
RN.NAM 
RN.SCI 
RN.SDV 
RN.SLO 
RN.SNV 
RN.SPA 
RN.TLO 
R.LENX 
SERPT 
SF.ADD 
SF.CIR 
SF.DEV 
SF.DPA 
SF.DPC 
SF.HAD 
SF.HST 
SF.PH5 
SF.PS5 
STBL 
SUCC 


****** 
****** 
****** 
****** 
****** 

0006U 
****** 
000004 
000566  R 
000012 
OOOOU 
000010 
000016 
OOOOOA 
000006 
000002 
000005 
0000A3 
000000 
000036 
000522  R 
000432  R 
000174  R 
000710  R 
:  000012 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

:  ****** 

r  ****** 

:  ****** 

:  ****** 

:  ****** 

;   ****** 

r  ****** 
I  ****** 

000002 
=  000001 
=  000010 
=  000020 
=  000100 
=  000200 
=  000004 
=  000002 

-  0004CO 

-  000040 
000460 
000000 


GX 
GX 
GX 
GX 
GX 

GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

7-226 

6-166 

7-219 

6-170 

6-166 

9-323 

6-197 
#5-142 

9-314 
#5-118 
#5-119 
#5-117 
#5-120 
#5-115 
#5-116 
#5-131 
#5-133 
#5-134 
#5-130 
#5-126 

7-232 

7-231 

6-185 

6-179 
#5-139 

8-297 

7-255 

7-255 

8-296 

8-292 

8-291 

7-255 

6-177 

8-293 

8-294 

7-255 

8-298 

8-295 

7-255 

6-183 
#5-141 
#5-98 
#5-101 
#5-102 
#5-104 
#5-105 
#5-100 
#5-99 
#5-106 
#5-103 

8-281 
#5-140 


7-219 
#10-353 

♦7-225 
#9-329 
9-333 
9-334 
9-332 
7-259 
9-330 
9-331 
*10-353 
10-356 
10-369 

5-133 
7-256 
#8-280 
#7-210 
7-249 
6-180 

9-333 
9-334 


9-332 
7-229 

9-330 


9-331 

6-184 

•7-223 

7-238 

8-293 

8-294 

8-296 

8-297 

8-292 

8-291 

8-298 

8-295 

#8-290 

•6-159 


7-226 
7-240 


7-257 


9-319 


#9-313 
7-258 


#11-391 


7-237 


•6-176 


6-189 
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55 
56 
57 
58 
59 
60 
61 
62 
65 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8'. 


***  * 
LOCAL  MACROS 


.MACRO  PRINT   TEXT 


MOV 

CALL 

.ENDM 


TEXT.RO 

SPRINT 

PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV     TEXT.RO 

.ENDC 

CALL   .  SCFERR 

.ENDM   ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERl 

.ENDM  EPfiINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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99 
100 
10'' 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 

112  0001 3A 
113 
1U 
115 

116  000134 

117  OOOHO 

118  000U2 

119  OOOUA 

120  000152 

121  000154 

122  000162 

123  000164 

124  000170 

125  000172 

126  000176 

127  000202 

128  000204 

129  000206 

130  000210 

131  000212 
132 

133 
134 

135  000214 

136  000222 

137  000224 

138  000232 

139  000234 

140  000240 

141  000244 

142  000250 

143  000252 

144  000260 

145  000266 

146  000274 

147  000300 

148  000304 

149  000312 

150  000314 

151  000320 

152  000326 

153  000330 

154  000334 

155  000336 


.SBTTL  SSEDTE  -  !^.T  LOCAL  DTE  PARAMETERS 
'«*♦  -  SSEDTE  -  SET  LOCAl  DTE  PARAMETERS 
INPUT; 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

THE  DTESDf  TEMPLATE  IS  UPDATED 


SSEDTE 

;  LOOK 

FOR  EXISTING  DTE  TEMPLATE 

012705 

OOOOOOG 

MOV 

#STMLST,R5 

011505 

lOS: 

MOV 

(R5),R5 

001424 

BEQ 

20$           ; 

122765 

OOOOOOG  OOOOOOG 

CMPB 

#CS.DTE,C.STS(R5! 

001372 

BNE 

10$ 

032767 

OOOOOOG  OOOOOOG 

BIT 

#XP.KND,$0PRND  ; 

001074 

BNE 

40$ 

012700 

OOOOOOG 

MOV 

#$DTE,RO 

010502 
062702 

OOOOOOG 

MOV 
ADD 

R5.R2         ; 
#D$TADR,R2     ; 

012701 

000005 

MOV 

#5,R1 

022022 

15$: 

CMP 

(R0)+,(R2)t 

001355 

BNE 

10$ 

005301 

DEC 

R1 

003374 

BGT 

15$ 

000442 

BR 

30$ 

;   DTE 

TEMPLATE 

NOT  IN  SYSTEM 

032767 

OOOOOOG  OOOOOOG 

JoS: 

BIT 

ffXP.KND, SOPRND  ; 

001133 

BNE 

99$ 

032767 

OOOOOOG  OOOOOOG 

BIT 

#XP.LIN,$SWICH  ; 

001535 

BEQ 

102$ 

012700 

OOOOOOG 

MOV 

#$XXAVL,R0 

012701 

OOOOOOG 

MOV 

*D$TLEN,R1 

004767 

OOOOOOG 

CALL 

$RQ8F 

103521 

BCS 

101$ 

062767 

000200G  OOOOOOG 

ADD 

#L$LENX+<DEFHSH*4 

062767 

000200G  OOOOOOG 

ADD 

#L$LENX+<DEFHSH*4 

012760 

OOOOOOG  OOOOOOG 

MOV 

#CS.DTE.C.STS(R0) 
D$TCT(RO) 

005060 

OOOOOOG 

CLR 

005060 

OOOOOOG 

CLR 

DSTSTA(RO)      ; 
#DEFHSH,D$THSH(RO 

012760 

000040  OOOOOOG 

MOV 

010005 

MOV 

R0,R5 

004767 

000222 

CALL 

INSDTE         ; 

032767 

OOOOOOG  OOOOOOG 

30$: 

BIT 

#XP.DTE,$OPRND  ; 

001412 

BEQ 

40$ 

012700 

OOOOOOG 

MOV 

#$DTE,R0       ; 

010501 

MOV 

R5.R1 

#DSTADR,R1      ; 

062701 

OOOOOOG 

ADD 

GET  START  OF  TEMPLATE  LIST 

NEXT  TEMPLATE 

IF  EQ,  NO  MORE 

;  IS  THIS  A  DTESDF  TEMPLATE  ? 

IF  NE,  NO  -  KEEP  LOOKING 

IS  THIS  KNOWN  DTES  ? 

IF  NE,  YES 

POINT  TO  PARSED  DTE  STRING 

COPY  TEMPLATE  POINTER 

POINT  TO  DTE  STRING 

LENGTH  OF  STRING  IN  WORDS 

COMPARE  3  CHARACTERS 

IF  NE,  NEXT  TEMPLATE 

COUNTDOWN 

UNTIL  STRINGS  COMPARED 

BR  IF  DTE  'LREADY  IN  CONFIGURATION 


KNOWN  DTES  ? 

IF  NE,  YES  -  ALL  DONE 

LINE  ID  IS  REQUIRED  FOR  NEW  TEMPLATE 

IF  EQ,  PARAMETER  MISSING 

POINT  AT  END  OF  TASK  LISTHEAO 

GET  LENGTH  OF  A  DTE  TEMPLATE 

TRY  TO  ALLOCATE  A  TEMPLATE 

IF  CS,  ERROR 
>,$BYTMN  ;  UPDATE  BYTE  MINIMUM 
>,$BYTXT  ;  UPDATE  BYTE  ALLOCATION 

;  INDICATE  ITS  A  DTE  TEMPLATE 

INITIALIZE  COUNTER  TIMER 

INITIALLY  OFF 
);  HASH  TABLE  SIZE 

COPY  POINTER 

INSERT  DTE  TEMPLATE  IN  THE  RIGHT  PLACE 

ID  STRING  SPECIFIED  ? 

IF  EQ,  NO 

POINT  TO  PARSED  DTE  ADDRESS 

COPY  POINTER 

POINT  TO  DTE  ADDRESS  AREA 
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.TITLE  SETLOG  ■ 
.IDENT  /V05.00/ 
.NLIST  BEX 


SET  LOGGING  PARAMETERS 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  SET  EVENT  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Ptus   V3.0 
DECnet-Mi'cro/RSX   Vl.O 
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400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 

413  002144 

414  002146 

415  002150 

416  0C2152 

417  002154 

418  002156 

419  002162 

420  002164 

421  002170 

422  002172 

423  002176 

424  002200 

425  00220/. 

426  002206 

427  002214 

428  002216 

429  002220 

430  002222 

431  002224 
432 


.S8TTL  CHKDST  -  CHECK  FOR  DESTINATION  TEMPLATE 


••  CHKDST 
INPUTS 


CHECK  FOR  DESTINATION  TEMPLATE 


R2 
R3 


TEMPLATE  ADDRESS 
LINK  ADDRESS 


R3  =  NEW  LINK  ADDRESS 

CARRy  CLEAR  IF  TEMPLATE  IS  DSTSDF 


OUTPUT 

••  THIS  CODE  DEPENDS  UPON  THE  ORDERING  OF  TEMPLATE  TYPE  CODES 


010201 
005721 
005703 
001001 
010503 
122711 
001417 
122711 
001412 
121127 
002410 
121127 
101005 
122763 
001401 
010203 
005727 
000261 
000207 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 


CHKDST. 

MOV 

R2,R1 

TST 

(Rl)  + 

TST 

R3 

BNE 

10$ 

MOV 

R5,R3 

10$: 

CMPB 

#CS.DST,(R1) 

BEO 

40$ 

CMP8 

#CS.DSC,(R1)    ; 

BEQ 

20$ 

CMPB 

(R1),#CS.PSN 

BLT 

30$ 

CMP8 

(R1),#CS.DSC 

BHI 

30$           ; 

CMPB 

#CS.DSC,C.STS(R3) 

BEQ 

30$ 

20$: 

MOV 

R2,R3 

30$: 

TST 

(PC)t 

40$: 

SEC 

COPY  POINTER 

POINT  TO  C.STS 

IS   THERE   ANY   LINK  ADDRESS? 

IF  NE,  YES 

ELSE  DEFAULT  TO  PREVIOUS 

CHECK  FOR  DESTINATION 

IF  EQ,  GOT  ONE 

GOOD  PLACE  TO  LINK  NEU  BLOCK? 

IF  EO,  YES 

BEFORE  PSJ  TEMPLATES  ? 

IF  LT,  DON'T  LINK  HERE 

AFTER  ACCEPTABLE  LINK  LOCATIONS? 

IF  HI,  DON'T  LINK  HERE 

;  IS  OLD  LINK  ADDRESS  BETTER  ? 

I."  EO,  YES 

UPDATE  LINK  ADDRESS 

RETURN  NOT  FOUND 

RETURN  FOUND 


RETURN 
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Table  ot  contents 

SET  NODE  PARAMETERS 
CHECK  EXECUTOR  NUDE 
UPDATE  AREA  OF  REMOTE  DEHNITI0N5 


■;- 

136 

$SENOD 

ft- 

201 

CHKADD 

7- 

2?1 

UPDREM 
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PRCMOD  -  PARSE  ACTION  ROUTIMES 
MOOB^J  -  PARSE  OBJECT  NUMBER 


522 
S25 
^^ 
525 
526 
527 
528 
529 
550 

531  001152 

532  001152  005767 

533  001156  001367 

534  001160  105767 

535  001164  001364 

536  001166  116767 

537  001174  000207 
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.SBTTL 
*»  .MOOBN 
INPUTS 
OUTPUT 


.M008N  -  PARSE  OBJECT  NUMBER 
-  PA^SE  OBJECT  NUMBER 
.TPARS  VARAIBLES 
OBJECT  NUMBER  STORED  IN  SOBJ 


OOOOOOG 
000001 G 
OOOOOOG  OOOOOOG 


.MOOBN:: 


TST 

BNE 

TSTB 

BNE 

M0V8 

RETURN 


.PNUMH 

ILLNU2 

.PNUMB+1 

ILLNU2 

.PNUM8,$0BJ 


HIGH  ORDER  WURD  ? 
BR  IF  TOO  HIGH 
HIGH  ORDER  BYTE  ■> 
BR  IF  TOO  HIGH 
SAVE  OBJECT  NUMBER 


H  1 

^QC  AC . 1 C 
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Symbol  table 

ERRILN=  ••«*••  GX 
$CAT5  =  .»«..•  GX 
$COPtS=  «»*«**  GX 


ABS.  000000 
000210 
Errors  detected: 


000 
001 
0 


$ERROR=  ***»♦♦  GX 
$TNAM  =  *»♦*♦♦  GX 
$TNUM  =  ***«»♦  GX 

(RW,I,GBL,ABS,0VR) 
(RU,I,LCL,REL,CON) 


.06C0P  0001 36RG 
.OBNAM  000036RG 
.OBNUM  OOOOOORG 


.PNUMB=  »***♦*  GX 
.PNUMH=  ******  GX 


.PSTCN=  *•♦***  GX 
.PSTPT=  ******  GX 


*»»  Assembler  statistics 


Work   file  reads:  C 

Work  f 1 le  writes:  0 

Size  of  work  file:  117  Words   (  1  Pages) 

Size  of  core  pool:  KAAO  Words  (  55  Pages) 

Operating  system:  RSX-HM/PLUS 
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.TITLE  PRSREM  -  PARSE  ACTION  ROUTINES 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1983,  1984,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  PARSE  ACTION  ROUTINES 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 
IDENT  HISTORY: 


1.00 


01-AUG-83 

CREATED  FOR  NEW  REMOTE  NODE  PARAMETERS. 


4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLU5  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PIus  V3.0 
DECnet-Micro/HSX  VI. 0 


.MCALL   SAVRG,RESRG,ASR$ 


Mflrnn      >/AC      A7k       Cr.fiir<rl^ 


H    3 


PRSREM     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:19 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


G  4 

PAGE  3 

CREF   04.00 


rtSR$ 

#5-48 

6-215 

RESRG 

#3-48 

7-320 

SAVRG 

#3-48 

7-306 

H  4 


G  5 

PRSSYS  -  PARSE  SYSTEM  ACTION  RO  MACRO  V05.03b  Saturday  29-Jun-85  05:20 
Symbol  table 


CS.ROU=  *»*•»* 
C.STS  =  »■»♦•«« 
ERRILN=  ****** 
SBYT  =  ****** 
$CAT5  =  ****** 
$CCBNM=:  ****** 

.  ABS.   000000 
000510 
Errors  detected: 


GX 
GX 
GX 
GX 
GX 
GX 


$ERROR=  ******  GX 


$SDBNM=  ******  GX 


Page  12-1 


.PSTCN=  ******  GX 


$PARNA=  ****** 

GX 

$THRSH=  ****** 

GX 

.PSTPT= 

******  GX 

$POLNA=  ****** 

GX 

$TMLST=  ****** 

GX 

.SYBYT 

000124RG 

$RDBNM=  ****** 

GX 

.PNUMB=  *»•♦*♦ 

GX 

.SYCBN 

000156RG 

$RDBSZ=  ****** 

GX 

.PNUMH:  ****** 

GX 

.SVPAR 

OOOOOORG 

000 
001 
0 


(RW,1,GBL,ABS,0VR) 
(RU,I,LCL,REL,CON) 


***  Assembler  statistics 


0 


Work   file  reads: 

Work   file  writes:  . 

Size  of  work  file:  117  Words   (  1  Pages) 

Size  of  core  pool:  U440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SY:^RSSYr.V2![132?°3°]PRSSYS/CR/-SP=SY:Cl,13RSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10]PR5SYS 


.SYPOL  000052RG 

.SYRBN  000226RG 

.SVRBS  000266RU 

.SYSBN  000364RG 

.SYTHR  00043';RG 


_oc:  ftT  nt:  .tn 
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SPUXSR-  PURGE  MODULE  X25-SERVER 


G  6 

Page  10 


282 
283 
28A 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 

300  001246 

301  001246 

302  001252 

303  001256 
304 

305  001260 

306  001260 

307  001264 

308  001270 

309  001274 

310  001276 

311  001304 

312  001306 

313  001310 

314  001314 

315  001316 

316  001320 

317  001322 

318  001330 

319  001332 

320  001336 

321  001340 

322  001346 

323  001350 

324  001356 

325  001360 

326  001366 

327  001370 
328 

329 
330 
331 

332  001372 

333  001376 

334  001400 

335  001402 

336  001404 

337  001406 
358  0014-0 


.SBTTL     $PUXSR-  PURGE  MODULE   X25-SERVER 
.SBTTL     $PUX9S-  PURGE  MODULE  X29-SERVER 

-  $PUXSR-  PURGE  MODULE  X25-SERVER 

-  $PUX9S-  PURGE  MODULE  X29-SERVER 


INPUT: 


$OPRND  =  REQUEST  CODE 

$DST   =  PARSED  DESTINATION  NAME 


OUTPUT: 

THE  REQUESTED  DESTINATION  DESCRIPTOR  AND  THE 
COMPANION  DESTINATION  ADDRESS  AND  DESTINATION 
CALL  DESCRIPTORS  ARE  PURGED. 


.ENABL  LS8 


$PUXSV: 


012704 

115443 

MOV 

#<*RX25>,R4 

012702 

001572' 

MOV 

#XSVCTM,R2      ; 

000404 

$PUXS9: 

BR 

10$ 

012704 

115447 

MOV 

#<*RX29>,R4     ; 

012702 

001650' 

MOV 

#X29CTM,R2 

004767 

000546 

10$: 

CALL 

TSTPSI 

005003 

CLR 

R3 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#XS.CTM,$0PRND  ; 

001401 

BEQ 
CALLR 

20$ 

(R2)          ; 

012702 

OOOOOOG 

20$: 

MOV 

/l'$TMLST,R2      ; 

010205 

30$: 

MOV 

R2,R5 
(rJ),R2 

or  202 

MOV 

00  502 

BEQ 

100$          , 
#CS.DST,C.STS(R2) 

122762 

OOOOOOG 

OOOOOOG 

CMPB 

001371 

BNE 

30$ 

020462 

OOOOOOG 

CMP 

R4,D$STYP(R2)   , 
30i 

001366 

BNE 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#XS.KND,$OPRND  , 

001010 

BNE 

40$ 

026762 

OOOOOOG 

OOOOOOG 

CMP 

$DST,D$SNAM(R2)  , 

001356 

BNE 

^0*  , 

026762 

000002G 

000002G 

CMP 

$DST+2,D$SNAM+2(f 

001352 

BNE 

30$ 

005203 

40$: 

INC 

R3 

■  CHECK 

FOR  SPECIAL  DESTINATIONS 

012700 

177774' 

MOV 

#SPCDST-4,R0 

005720 

50$: 

TST 

(fiO)  + 

005720 

60$: 

TST 

(RO)t 

001415 

BEQ 

70$ 

020420 

CMP 

R4,(R0)t 
50t 

001373 

BNE 

022062 

OOOOOOG 

CMP 

(R0)+,D$SNAM{R2) 

ONLY  X25  DESTINATIONS 

ACTION  ROUTINE  IF  COUNTER  TIMER 

BR  IF  NO 


ONLY  X29  DESTINATIONS 
IN  CASE  PURGE  COUNTER  TIMER 
MAKE  SURE  THIS  IS  A  PSI  SYSTEM 
NONE  FOUND  YET 
IS  THIS  PURGE  COUNTER  TIMER 
IF  EQ,  NO 

ELSE  DISPATCH  TO  ROUTINE 
POINT  TO  LISTHEAD 
SAVE  PREVIOUS  ADDRESS 
TRAVERSE  LIST 
BR  IF  END  OF  LIST 
;  IS  THIS  A  DESTINATION  DESCRIPTOR 
BR  IF  NO 

CHECK  DESTINATION  TYPE 
IF  NE,  WRONG  TYPE 
WILDCARD  DESTINATIONS  ? 
BR  IF  YES 

COMPARE  FIRST  WORD  OF  NAME 
BR  IF  WRONG  DESTINATION 
2)  ;  COMPARE  SECOND  PART  OF  NAME 
IF  NE,  KEEP  LOOKING 
INDICATE  FOUND  OR  WILDCARD 


POINT  TO  SPECIAL  DESTINATION  TABLE 
POINT  TO  NEXT  SPECIAL  DESTINATION 

1F"eQ,  no  more  TO  CHECK 
ELSE  COMPARE  DESTINATION  TYPES 
IF  NE,  WRONG  DESTINATION  TYPE 
COMPARE  FIRST  PART 


tsiiDMnh    _    DiiDrC    MnfMilF  MAfDn    \/n^    n?h    ^atiirriflv    P9- 
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PURREM  -  PURGE  REMOTE  NODE 


1 
2 
i 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
21^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
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.TITLE  PURREM  -  PURGE  REMOTE  NODE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1983,  1984,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  PERFORM  PURGE  COMMAND 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00     07-NOV-83 

DECNET-llM   V4.0 
DECNET-11M-PLUS   V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Muro/RSX   Vl.O 


m  irtrc     ncMnri:    KinrvE 


MATDn     \l(\K     nXK     ^atiirrtAV     ?Q- 


H    7 

liin-RS   nS:?n      P3ap   4 
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SYMBOL    CROSS  REFERENCE 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SSADD 

000006 

#5-85 

7-221 

S$C1R 

000022 

#5-88 

SSDEV 

000032 

#5-89 

S$DPA 

000050 

#5-91 

S$DPC 

00005A 

#5-92 

StFLG 

000004 

#5-8A 

7-238 

•8-286 

SSHAD 

000012 

#5-87 

S$HST 

000010 

#5-86 

S$LEN 

=  000056 

#5-93 

7-250 

S$PSS 

00003A 

#5-90 

S.LENX 

r  ****** 

nx 

7-253 

7-254 

WC.NOD 

-  ****** 

GX 

6-168 

6-186 

6-191 

SBVTMN 

=     ****** 

GX 

•6-183 

•7-253 

•10-360 

SBYTXT 

-     ****** 

GX 

•6-184 

•7-254 

•10-359 

SCFERR 

=     ****** 

GX 

6-197 

SFILHD 

r  ****** 

GX 

10-362 

SNODAD 

:;:  ****** 

GX 

6-171 

SOPRND 

-  ****** 

GX 

6-177 

7-229 

♦7-255 

8-284 

SPUREM 

000006 

RG 

#6-157 

SRLBF 

-   ****** 

GX 

6-182 

7-252 

7-261 

10-371 

STMLST 

=      ****** 

GV 

6-158 

7-211 

•11-394 

$WILD 

r  ****** 

GX 

6-168 

6-186 

6-191 

SXXAVL 

-  ****** 

GX 

6-181 

7-251 

7-260 

10-370 

.CONER 

r  **  Jt*** 

GX 

7-266 

10-374 

9-317 


D.  idde:m 


r-DCATcn   Qv      Mfiron      nw   PQ- inw-R5    AT    05:20 
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SETCNT  -  SET  CONTROLLER  OPTIONS  MACRO  VO5.03b  Saturday  29-Jun-85  05:21 
Table  ot  contents 


5- 
6- 


111 
189 


SSECNT 
UPDDDi"! 


SET  CONTROLLER  PARAMETERS 
UPDATE  THE  DDM  PRIORITY 


H  9 
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SETCUG  -  SET 
LOCAL  DATA 

86 
87 


89 
90 
91 

92  000000 
9S  0000A1 
OA  000100 
95 
96 


CLOSED  USER  GROUP  MACRO  V05.03b  S.iturday  29-Jun-85 


V-^ 


1  Page  5 


000002 
002 
002 
002 


103 
103 
103 


106  ERRNSD 
106  ERRDTE 
106  ERRNUM 


.SBITl 
ERROR  TEXT 


.NLIST 

EXSERR 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.LIST 

.EVEN 


LUCAL  DATA 


BEX 

=  2 

<EX$ERR>/CFE  —  DTF  not  in  configuration/ 

<EX$ERR>/CFE  —  Missing  parameter:  DTE/ 

<EX$ERR>/CfE  —  Missing  parameter:  NUMBER/ 

BEX 


H  10 


SETCUG  -  SET  CLOSED  USER  GROUP  MACRO  V05.03b  Saturday  29-Jun-85  05:21  Page  6 


SEIDIE 
SSEDTE 


S  11 

SET   LOCAL   DTE   PARAMETE  MACRO  V05.05b  Saturday  29-Jun-85  05:21 
SET    LOCAL   DTE    PARAMETERS 
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156 
157 
158 

159  00035^ 

160  000362 

161  00036A 

162  000572 

163  000^00 

164  000402 

165  000406 

166  000412 

167  000414 

168  000416 

169  0004?: 

170  000426 

171  000434 

172  000442 

173  000444 

174  000450 

175  000456 

176  000460 

177  000464 

178  000472 

179  000474 

180  000500 

181  000502 

182  000510 

183  000512 
184 

185 
186 

187  000514 

188  000524 

189  000526 

190  000536 

191  000540 
192 


000005 


032767 
001403 
016765 
032767 
001415 
016700 
166500 
006300 
006300 
060067 
060067 
016765 
032767 
001402 
004767 
032767 
001402 
004767 
032767 
001403 
004767 
103405 
032767 
001213 
000207 


000404 

000261 
000207 


OOOOOOG  OOOOOOG  40$: 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  50$: 

OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  60$: 

000406 

OOOOOOG  OOOOOOG  70$: 

000122 

OOOOOOG  OOOOOOG  80$: 

000174 

OOOOOOG  OOOOOOG  90$: 

99$: 


.REPT 

MOV 

.ENDR 

BIT 

BEQ 

MOV 

BIT 

BEQ 

MOV 

SUB 

ASL 

ASL 

ADD 

ADD 

MOV 

BIT 

BEQ 

CALL 

BIT 

BEQ 

CALL 

BIT 

BEQ 

CALL 

BCS 

BIT 

BNE 

RETURN 


ERRORS 


ioi$: 

102$: 
110$: 


,R0 


5 
(RO)+,(Rl)t 

*XP.C0U,$SW1CH 

50$ 

$CT,D$TCT(R5) 

#XP.MCI,$SW1CH 

60$ 

$MCJ,RO 

D$THSH(R5), 

RO 

RO 

RO,$BYTMN 

RO,$BYTXT 

$MCi,D$THSH(R5) 

#XP.STA,$SWICH 

70$ 

DSTATE 

#XP.LIN,$SW1CH 

80$ 

SETLIN 

#XP.CHN,$SWICH 

90$ 

SETCHN 

101$ 

#XP.KND,$OPRND 

10$ 


ERROR$ 

BR 

ERROR$ 

SEC 

RETURN 


#ERRALL 

110$ 

OERRPMI 


MOVE  IT 

COUNTER  TIMER  SPECIFIED  ? 

If  EQ,  NO 

ELSE  UPDATE  IT 

MAXIMUM  CIRCUITS  ? 

IF  EQ,  NO 

GET  NEW  ALLOCATION  IN  ENTRIES 

CALCULATE  DIFFERENCE 

CONVERT 

TO  BYTES 
UPDATE  MINIMUM  BYTE  ALLOCATION 
UPDATE  ACTUAL  BYTE  ALLOCATION 
UPDATE  IT 
CHANGE  OF  STATE  ? 
IF  EQ,  NOPE 
ELSE  CHANGE  DTE  STATE 
CHANGE  OF  LINE  ? 
IF  EQ,  NO 
UPDATE  LINE 

CHANNEL  LIST  SPECIFIED? 
IF  EQ,  NO 

CREATE  CHANNEL  LIST 
IF  CS,  ALLOCATION  FAILURE 
KNOWN  DTES  ? 
IF  NE,  CONTINUE 


ALLOCATION  ERROR 
PARAMETER  MISSING 


H  11 
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SETLOG  -  SET  L 
MACRO  CALLS 

54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

n 

73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
37 
88 
89 
90 
91 
92 
93  000000 


\.'\ 
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.SBTTL  MACRO  CALLS 


**** 
LIBRARY  MACRO  CALLS 

**** 


LOCAL  MACROS 
♦  *** 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.]F  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 


.MCALL 
FLTDFS 


FLTDFS 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 

DEFINE  FILTER  BLOCK  SYMBOLS 
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SETMOD  -  DEFINE  MPDbLE  MACRO  VO5.03b  Monday  01-Jul-85  17:29 

Table  ot  contents 

4-  55  MACRO  DEflMTIONS 

■=-  82  LOCAL  DATA  ,^   „  ^ 

>^-  109  SSEXSV-  DEFINE  MODULE  X25-SERVER 

6-  110  t5EX29-  DEFINE  MODULE  X29-SERVER 

?-  190  SETDST  -  SET  DSTSOF  PARAMETERS 

8-  217  SETOSA  -  SET  DSASDF  PARAMETERS 

9-  265  SETD5C  -  SET  DSCSDF  PARAMETERS   _„,^,,,, 

10-  535  XSVCHA  -  UPDATE  X25-SERVER  CHARACTERISTICS 

11-  571  X29CHA  -  UPDATE  X29-SERVER  CHARACTERISTICS 

12-  400  CHKDST   -  CHECK  FOR  DESTINATION  TEMPLATE 

13-  434  ALCDST  -  ALLOCATE  A  DESTINATION  DESCRIPTOR 

14-  498  SSEXAC  -  DEFINE  MODULE  X25-ACCESS 

15-  572  TSTPSI  -  TEST  FOR  PSl  IN  SYSTEM 

16-  590  RQCB  -  REQUEST  CORE  BLOCK 


H  13 
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SETMOD   -  DEFINE   MODULE     MACRO  V05.03b  Monday  01-Jul-85   17:29 
ALCDST    -   ALLOCATE    A  DESTINATION  DESCRIPTOR 


G 

Page 


]\ 


43A 
435 
A36 
A37 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 

450  002226 

451  002226 

452  002234 

453  002236 

454  002244 

455  002246 

456  002254 

457  002256 

458  00:264 
459 

460  002272 

461  002276 

462  002302 

463  002306 

464  002312 

465  002316 

466  002320 

467  002322 

468  002330 

469  002336 

470  002340 

471  002344 

472  002350 

473  002352 

474  002354 

475  002360 

476  002364 

477  002366 

478  002370 

479  002372 

480  002376 

481  002404 

482  002406 

483  002414 

484  002422 

485  002426 

486  002430 
487 

488 
489 
490  002432 


.SBTTL  ALCDST  -  ALLOCATE  A  DESTINATION  DESCRIPTOR 

•♦  ALCDST  -  ALLOCATE  A  DESTINATION  DESCRIPTOR 

INPUT        R3  =  ADDRESS  TO  LINK  NEW  BLOCK 

R4  =  RAD50  DESTINATION  TYPE  (X25  OR  X29) 
SOPRND  =  PARSED  PARAMETERS 
SXXAVL  =  FREE  LIST 


OUTPUT 


REGISTERS 


032767 
001503 
032767 
001504 
032767 
001006 
052767 
012767 

012700 
012701 
062701 
062701 
004767 
103445 
010002 
062767 
062767 
010010 
062720 
012710 
014000 
010010 
062720 
012710 
014000 
011310 
001002 
010067 
012760 
010213 
016762 
016762 
010462 
000241 
000207 


OOOOOOG  OOOOOOG 

OOOOOOC  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
000177  OOOOOOG 

OOOOOOG 
OOOOOOC 
OOOOOOC 
OOOOOOC 
000474 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


ALCDST: 


10$: 


OOOOOOC 
OOOOOOG 


OOOOOOC 
OOOOOOG 


000002G 

OOOOOOG  000002  20$: 

OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOG 


R2  =  ADDRESS  OF  NEW  TEMPLATES. 

THE  NEW  TEMPLATES  ARE  INITIALIZED  AND 

LINKED  INTO  THE  LIST. 

RO,  Rl  ARE  CLOBBERED. 


BIT 
BEQ 
BIT 
BEQ 
BIT 
BNE 
BIS 
MOV 

MOV 

MOV 

ADD 

ADD 

CALL 

BCS 

MOV 

ADD 

ADD 

MOV 

ADD 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

MOV 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLC 

RETURN 


#XS.DST,$OPRND  ;  DESTINATION  NAME  PRESENT 
40$  ;  IF  EQ,  ERROR 

#XS. OBJ  I  XS. OBI, SOPRND  ;  OBJECT  PRESENT  ? 
IF  EQ,  ERROR 
PRIORITY  SPECIFIED  ? 
If  NE,  SPECIFIED 
SET  PRIORITY  OPTION 
SET  DEFAULT  PRIORITY 


50$ 

#XS.PRI,$OPRND 

10$ 

#XS.PRI,$OPRND 

#DEFPRI,$PRI 


#$XXAVL,RO      ;  POINT  TO  FREE  LIST 
*<D$SLENt38*C3>,R1  ;  DSTSDF  SIZE  ROUNDED  UP 
#<D$ALENt38*C3>,R1  ;  DSASDF  SIZE  ROUNDED  UP 
#<D$CLENt3&*C3>,R1  ;  DSCSDF  SIZE  ROUNDED  UP 


RQCB 

30$ 

R0,R2 

*D$FLNX,$BYTMN 

#D$FLNX,$BYTXT 

RO,(RO)        , 

#D$SLENt3£»C3,(R0) 


#CS.DST,(RO) 

-(RO),RO 

RO,(RO) 


tf  \,  J  .  VJn  .  \ 

-(RO),RO 

(R3),(R0) 

20$ 

R0,STMLST+2 

#CS.DSC,2(R0) 

R2,(R3) 

$DST,D$SNAM(R2) 


REQUEST  CORE  BLOCK 

IF  CS,  ALLOCATION  FAILURE 

SAVE  POINTER 

UPDATE  MINIMUM  ALLOCATION 

UPDATE  ACTUAL  ALLOCATION 

SET  TO  SELF 

SET  LINK  TO  DSASDf 


SET  UP  TEMPLATE  TYPE 
POINT  TO  DSASDF 
,w,>,w,        .  SET  LINK  TO  SELF 
#DiALENt3S"C3,(R6)+     ;  SET  LINK  TO  DSCSDF 
#CS.DSA,(RO)    ;  MARK  TEMPLATE  TYPE 
POINT  TO  DSC$DF 
LINK  TO  SUCCESSOR 
IF  NE,  NOT  LAST  IN  LIST 
ELSE  FIX  LIST  POINTER 
SET  UP  TEMPLATE  TYPE 
LINK  IN  WITH  PREDECESSOR 
SET  UP  DESTINATION  NAME 
$DST+2,D$SNAM+2(R2)  ;  ... 
R4,D$STYP(R2)    ;  SET  UP  DESTINATION  TYPE 


;  ERRORS 

^0$:    ERROR$  #ERRALL 


;  ALLOCATION  FAILURE 
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I 

A 

5 
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20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
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35 

36 

37 
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41 

42 

43 
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.TITLE   SETNOD  -  SET  EXECUTOR  NODE  OPTIONS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODUIE  DESCRIPTION: 

CFE  -  SET  EXECUTOR  NODE  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERINS 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 


3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V5.0 
DECnet-Micro/RSX  Vl.O 
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SETNSP  -  SET  N5P  PARAMETERS 


1 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
15 
U 
15 
16 
17 
18 
19 
?0 

22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
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.TITLE   SETNSP  -  SET  NSP  PARAMETERS 
.iOENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  PcLIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  SET  NSP  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00      14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PIUS   VI. 0 

3.00     16-APR-82 

&eCNET-;iM  V3.1 
DECNET-11M-PLUS   VI.  1 

4.00     07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


SETNSP  -  SET  NSP  PARAMETERS 
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PRSMOD  -  PARSE  ACTION  ROUTINES 
.MOOBJ  -  PARSE  OBJECT  STRING 

539 

541 
542 
543 

544 
545 
546 
547 

548  001176 

549  001176  026727  OOOOOOG  000006 

550  001204  T01357 

551  001206  016700  OOOOOOG 

552  001212  010601 

553  001214  004767  OOOOOOG 

554  001220  010167  OOOOOOG 

555  001224  005067  000002G 

556  001230  026727  OOOOOOG  000003 

557  001236  003404 

558  001240  004767  OOOOOOG 

559  001244  010167  000002G 

560  001250  000207 
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.SBTTL   .MOOBJ  -  PARSE  OBJECT  STRING 
«*  -  PARSE  OBJECT  STRING 
INPUTS        .TPARS  VARAIBLES 
OUTPUT       $08J  =  TASKNAME  OF  OBJECT. 


.MOOBJ:: 


10$: 


CMP 

.PSTCN,*6 

BHI 

REJEC2 

MOV 

.PSTPT,RO 

MOV 

SP,R1 

CALL 

$CAT5 

MOV 

R1,$0BJ 

CLR 

$08J+2 

CMP 

.PSTCN,#3 

BLE 

10$ 

CALL 

$CAT5 

MOV 

Rl,$0BJ+2 

CHECK  SiZE  OF  PARSED  STRING 

IF  HI,  REJECT  TRANSITION 

POINT  TO  ASCII 

ALLOW  PERIODS 

CONVERT 

LOAD  UP  FIRST  PART 

ASSUME  NO  SECOND  PART 

ANY  MORE  TO  CONVERT  ? 

IF  LE,  NOPE 

CONVERT  REMAINDER 

SAVE  IT 


RETURN 


I  1 


n 
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SYMBOL  CROSS  REFERENCE  CREF   04.00 


♦6-116 


SYMBOL 

VALUE 

REFERENCES 

ERRILN 

r  *■»**■** 

r,x 

5-86 

7-148 

SCATS 

3  ****** 

GX 

6-111 

6-115 

SCOPES 

=  ****** 

GX 

♦7-138 

♦7-145 

SERROR 

=  ****** 

GX 

♦  5-86 

♦7-148 

STNAM 

r  ****** 

GX 

♦6-104 

♦6-112 

STNUM 

-  ****** 

GX 

♦  5-80 

.OBCOP 

000136 

RG 

#7-137 

.OBNAM 

000036 

RG 

#6-103 

.OBNUM 

000000 

RG 

#5-79 

.PNUMB 

r  ****** 

GX 

5-80 

5-83 

.PNUMH 

-     ****** 

GX 

5-81 

7-140 

.PSTCN 

=  *♦*♦♦* 

GX 

6-107 

6-117 

.PSTPT 

-  ****** 

GX 

6-105 

7-138  7-142 
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PRSREM  -  PARSE  ACTION  ROUTINES 
DEFINITIONS  AND  DATA  AREA 


51 

52 

53 

54 

55 

56 

000036 

57 

58  000000 

59 

000000 

60  000000 

61  000001 

62 

00003^ 

63  000000 

6A 

65 

66 

67 

68  000037 

69 

000000 

70  000000 

71  000002 

72  OOOOOA 

73  000010 

Ik 

000012 

75  000000 

76 

n 

78 

79 

80  000000 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90  000020 

91  000020 

012700 

92  000024 

005020 

93  000026 

020027 

94  000032 

103774 

95  000034 

000207 
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.SBTTL  DEFINITIONS  AND  DATA  AREA 
Define  file  descriptor  offsets 


OOOOOOG 
OOOOOOG 


MXFSP   =  30. 

.ASECT 

.  =  0 

.BLKB   1 
F.DEV:   .BLKB   MXFSP 
F.LEN   =  . 

.PSECT 


DEFINE  REMOTE  TEMPLATE 

.ASECT 

.=0 

.BLKW   1 

.BLKW  1 
C.NAM:  .BLKW  2 
C.ADD:  .BLKW  1 
C.LEN=. 

.PSECT 


;  Undivided  Filespec  length 


Filespec  string  length 
Filespec  string  (ASCII) 


C.LNK 

C.STS 

REMOTE  NODE  NAME 

REMOTE  NODE  ADDRESS 


SCRATCH  BUFFER 


LOCAL  DATA 

SCR:    .BLKB   16. 

.SBTTL   .RNIN2  -  INITIALIZE  REMOTE  NODE  OPTIONS 
+ 
**-.RNIN2  -  INITIALIZE  REMOTE  NODE  OPTIONS 

INPUTS:  NONE. 

OUTPUT:  PARSED  DATA  AREA  IS  CLEARED. 

RNIN2:: 


MOV  #$RNHOS,RO 

10$:    CLR  (R0)+ 

CMP  R0,*$RNX)(X 

BLO  10$ 
RETURN 


POINT  TO  START  OF  DATA  AREA 
CLEAR  A  WORD 
DONE  ? 
NO 


I  3 

_QC  AC . 10 
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'♦F!LE«*1D»*PRSSYS 


PPPPPPPP 

RRRRRRRR 

SSSSSSSS 

SSSSSSSS 

YY 

YY 

SSSSSSSS 

PPPPPPPP 

RRRRRRRR 

SSSSSSSS 

SSSSSSSS 

yy 

VY 

SSSSSSSS 

PP    pp 

RR      RR 

SS 

SS 

YY 

VY 

SS 

pp    pp 

RR      RR 

5S 

SS 

YY 

yy 

SS 

pp    pp 

RR      RR 

SS 

SS 

I'Y   YY 

SS 

pp    pp 

RR      RR 

SS 

SS 

,y   YY 

SS 

PPPPPPPP 

RRRRRRRR 

SSSSSS 

SSSSSS 

YY 

SSSSSS 

PPPPPPPP 

RRRRRRRR 

SSSSSS 

SSSSSS 

YY 

SSSSSS 

pp 

RR  RR 

SS 

SS 

YY 

SS 

pp 

RR  RR 

SS 

SS 

YY 

SS 

pp 

RR    RR 

SS 

SS 

YY 

SS 

pp 

RR    RR 

SS 

SS 

YY 

SS 

pp 

RR      RR 

SSSSSSSS 

SSSSSSSS 

YY 

SSSSSSSS 

pp 

RR      RR 

SSSSSSSS 

SSSSSSSS 

YY 

SSSSSSSS 

LL 

SSSSSSSS 

LL 

SSSSSSSS 

-L 

SS 

_L 

SS 

.L 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

TTTTT 
TTTTT 


^TTTT 
riTTT 


LLLLLLLLLL    SSSSSSSS 
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SYMBOL  CROSS  REFERENCE 
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PAGE   1 

CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CS.ROU 

- 

»♦♦*** 

GX 

10-221 

C  STS 

- 

****** 

GX 

10-221 

ERRILN 

::: 

****** 

GX 

7-U3 

8-169 

9-196 

10-229 

11-255 

12-283 

$BYT 

- 

****** 

GX 

*7-139 

$CAT5 

- 

****** 

GX 

5-84 

5-87 

6-113 

6-116 

SCCBNM 

- 

****** 

GX 

♦8-161 

tERROR 

= 

****** 

GX 

♦  7-U3 

•8-169 

•9-196 

•10-229 

•11-255 

♦12-283 

SPARNA 

= 

****** 

GX 

•  5-81 

•  5-85 

♦  5-88 

SPOLNA 

z: 

****** 

GX 

•6-110 

♦6-114 

♦6-117 

SRDBNM 

r 

****** 

GX 

•9-187 

12-278 

SRDBSZ 

- 

****** 

GX 

•  10-2U 

SSDBNM 

= 

****** 

GX 

•11 -247 

STHRSH 

- 

****** 

GX 

•12-273 

STMLST 

- 

****** 

GX 

10-218 

PNUMB 

- 

****** 

GX 

7-138 

8-161 

8-164 

8-166 

9-187 

9-190 

11-247 

11-250 

11-252 

12-273 

12-276 

12-280 

.PNUMH 

= 

****** 

GX 

8-162 

9-188 

10-215 

11-248 

12-274 

.PSTCN 

= 

****** 

GX 

5-89 

6-118 

.PSTPT 

- 

****** 

GX 

5-82 

6-111 

.SYBYT 

000124 

RG 

#7-137 

.SYCBN 

000156 

RG 

#8-160 

.SYPAR 

000000 

RG 

#5-80 

.SYPOL 

000052 

RG 

#6-109 

.SYRBN 

000226 

RG 

#9-186 

.SYRBS 

00C266 

RG 

#10-213 

.SYSBN 

00036A 

RG 

#11-246 

.SYTHR 

00043A 

RG 

#12-272 

10-214 


10-224 


10-226 
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$PUX9S-  PURGE  MODULE  X29-SERVER 
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Fage  10-1 


339  OOUH 

340  00U16 

341  OOH22 

342  001424 

345  001432 
344  001434 
345 

346  001436 

347  001442 

348  001446 

349  001452 

350  001460 

351  001462 

352  001466 

353  001472 

354  001476 

355  001504 

356  001506 

357  001512 

358  001516 

359  001522 

360  001524 
361 

362  001526 

363  001534 

364  001536 

365  001540 

366  001542 
367 

368 
369 
370 

371  001544 

372  001554 

373  001560 

374  001570 
375 

376 


000002G 
OOOOOOG  OOOOOOG 


OOOOOOG       70$: 

OOOOOOG 

000412 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

000366 

OOOOOOG  OOOOOOG  80$: 


001371 
021062 
001366 
032767 
001035 
000451 

012700 
012701 
004767 
122762 
001031 
016200 
012701 
004767 
122762 
001017 
116200 
012701 
004767 
010502 
000673 

032767 
001002 
005703 
001407 
000207 


000167  OOOOOOG 
000207 


OOOOOOG 
OOOOOOG 
000342 


90$: 


OOOOOOG  OOOOOOG  100$: 


110$: 


BNE  60$  ; 

CMP  (R0),D$SNAM+2(R2) 

BNE  60$ 

BIT  #XS.KND,$OPRND  ; 

BNE  100$ 

BR  130$ 

MOV  #D$FLNX,R0 

MOV  #D$SLEN,R1 

CALL  DEALC  ; 

CMPB  #CS.DSA,C.STS(R2> 

BNE  120$ 

MOV  D$ADLN(R2),R0 

MOV  #D$ALEN,R1 

CALL  DEALC  , 

CMPB  #CS.DSC,C.STS(R2) 

BNE  120$ 

MOVB  D$CVLN(R2),R0 

MOV  #D$CLEN,R1 

CALL  DEALC 

MOV  R5,R2 

BR  30$ 

BIT  #XS.KND,$0PRND 

BNE  110$ 

TST  R3 

BED  130$ 

RETURN 


;  ERRORS 

120$ 

130$ 


ERR0R$ 
JMP 

ERROR$ 
RETURN 


.DSABI.  LS8 


#ERRDST 

.CONER 

#ERRNSD 


IF  NE,  NO  MATCH  -  CONTINUE 

;  COMPARE  SECOND  PART 

IF  NE,  NO  MATCH  -  CONTINUE 

KNOWN  DESTINATIONS  ? 

IF  NE,  VES  -  JUST  IGNORE  THIS  ONE 

ELSE  ERROR  -  NO  SUCH  DESTINATION 

LENGTH  OF  FIXED  PART  OF  DESTINATION  BLOCK 
LENGTH  TO  RETURN 
DEALLOCATE  DESTINATION  BLOCK 
;  EXPECTING  DESTINATION  ADDRESS  NEXT 
IF  NE,  ERROR 
LENGTH  OF  DTE  ADDRESS 
LENGTH  TO  RETURN 
DEALLOCATE  THE  ADDRESS  BLOCK 
;   EXPECTING  DESTINATION  CALL  INFORMATION 
IF  NE,  BIG  TROUBLE 
LENGTH  OF  CALL  MASK  AND  CALL  VALUE 
LENGTH  TO  RETURN 
DEALLOCATE  THE  BLOCK 
RESUME  WHERE  WE  LEFT  OFF 
CONTINUE 

KNOWN  DESTINATIONS  ? 
BR  IF  YES 

WAS  DESTINATION  FOUND  ? 
IF  EQ,  NO  -  ERROR 


INVALID  DESTINATION  SEQUENCE 
THIS  IS  SERIOUS  1 
NO  SUCH  DESTINATION 


ur\c    mi,    c -,  * 


.0';  nqon 
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PURREM  -  PURGE  REMOTE  MODE 
MACRO  DEFINITIONS 

A5 
46 
47 
48 
49 
50 
51 
5? 
5i 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
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.SBTTL  MACRO  DEFINITIONS 

■  **** 

■  LOCAL  MACROS 
•  **** 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  EiYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MCALL  SAVRG.RESRG 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


DMDDCM     _      DllDrC      DCMntC      MOhP 


MSron   uns    n^^h   i^afnrrlAv   29-. Ii 
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PURREM     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:20 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 
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CREF   OA.OO 


ERRORS 

#4-56 

6-197 

PRINT 

#4-51 

RESRG 

#4-67 

7-263 

9-326 

SAVRG 

#4-67 

7-210 

9-313 

I  8 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
15 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
31 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
55 


.TITLE   SETCNT  -  SET  CONTROLLER  OPTIONS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SET  CONTROLLER  PARAMETERS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-85 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-11M-Plu5  V5.0 
DECnet-Micro/RSX  VI. 0 
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SETCUG 
SSECUG 


H  10 

SET  CLOSED  USER  GROUP  MACRO  V05.03b  Saturday  29-Jun-85  05:21 
SET  CLOSED  USER  GROUP  PARAMETERS 
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98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111  0001A2 
112 
113 
1U 

115  0001A2 

116  000U6 

117  000150 

118  000152 

119  OOOISA 

120  000162 

121  000164 

122  000172 

123  000174 

124  000202 

125  000204 

126  000212 

127  000214 
128 

129 
130 

131  000216 

132  000224 

133  000226 

134  000234 

135  000236 

136  000244 

137  000246 

138  000252 

139  000256 

140  000262 

141  000264 

142  000272 

143  000300 

144  000306 

145  000314 

146  000322 

147  000326 

148  000330 

149  000332 

150  000340 

151  000342 

152  000350 

153  000356 

154  000360 


012705 
010504 
011505 
001421 
122765 
001371 
032767 
001057 
026765 
001361 
026765 
001355 
000446 


032767 
001144 
032767 
001557 
032767 
001560 
012700 
012701 
004767 
103556 
062767 
062767 
012760 
016760 
016760 
005060 
010005 
005004 
032767 
001403 
016765 
032767 
001406 
152765 


.SBTTL  SSECUG  -  SET  CLOSED  USER  GROUP  PARAMETERS 
*♦»  -  SSECUG  -  SET  CLOSED  USER  GROUP  PARAMETERS 
INPUT: 


SOPRND  =  OPERANDS  PRESENI 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

THE  CUGSDF  TEMPLATE  IS  UPDATED 


SSECUG:: 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 


LOOK  FOR  GROUP  DESCRIPTOR 


MOV  #STMLST,R5 

10S:    MOV  R5,R4 

MOV  (R5),R5 

BEQ  15S  , 

CMPB  #CS.CUG,C.STS(R5) 

BNE  10$ 

BIT  #XP.KND, SOPRND 

BNE  20S 

CMP  SCUG,C$UNAM(R5) 

BNE  10$ 

CMP  SCUG+2,C$UNAM+2(R5);   . 

BNE  10$  ;   ... 

BR  20$  ;  BR  IF 


POINT  TO  TEMPLATES 

SAVE  PREVIOUS  ADDRESS 

NEXT  ONE 

IF  EQ,  END  OF  LIST 

;  CHECK  TYPE 

BR  IF  WRONG  TYPE 

KNOWN  GROUPS  ? 

IF  NE,  YES 

COMPARE  NAMES 

BR  IF  WRONG  NAME 


THEY  MATCH 


CREATE  A  NEW  GROUP 


OOOOOOG  OOOOOOG  15$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
0000006  OOOOOOG 
000002G  000002G 
OOOOOOG 

OOOOOOG  OOOOOOG  20$: 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  25$: 

OOOOOOG  OOOOOOG 


BIT  #XP.KNG, SOPRND  ;  KNOWN  GROUPS  ? 

BNE  60$  ;  IF  NE,  YES  -  DONE 

BIT  *XP.DTA,$SW1CH  ;  DTE  ADDRESS  PARSED  ? 

BEQ  70$  ;  BR  IF  NO 

BIT  #XP.NUM,$SWICH  ;  GROUP  NUMBER  PARSED? 

BEQ  72$  ;  BR  IF  NO 

MOV  nXXAVL.RO  ;  POINT  TO  FREE  LIST 

MOV  #C$ULEN,R1  ;  LENGTH  OF  A  GROUP  TEMPLATE 

CALL  $RQBF  ;  REQUEST  CORE  BLOCK 

BCS  75$  ;  IF  CS,  ALLOCATION  FAILURE 

ADD  *G$LENX,$BYTMN  ;  UPDATE  BYTE  MINIMUM 

ADD  #G$LENX,$BYTXT  ;  UPDATE  BYTE  ALLOCATION 

MOV  #CS.CUG,C.STS(RO);  MARK  IT  AS  A  GROUP  DESCRIPTOR 

MOV  $CUG,C$UNAM(RO)  ;  STUFF  NAME  INTO  TEMPLATE 

MOV  $CUG+2,C$UNAM+2(R0);  ... 

CLR  C$UFLG(RO)  ;  CLEAR  FLAGS 

MOV  R0,R5  ;  COPY  POINTER 

CLR  R4  ;  REMEMBER  NOT  TO  UNLINK 

BIT  #XP.NUM,$SWICH  ;  CHANGE  GROUP  NUMBER? 

BEQ  25$  ;  IF  EQ,  NO 

MOV  $NUM,C$UCUG(R5)  ;  UPDATE  TEMPLATE 

BIT  #XP.BIL,SSWICH  ;  TYPE  BILATERAL? 

BEQ  30$  ;  BR  IF  NO 

BISB  #CU$BIL,CSUFL6(R5)  ;  MARK  AS  BILATERAL  GROUP 


SFTfUG 
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SETDTE  -  SET  LOCAL  DTE  PARAMETE  MACRO 
INSDTE  -  INSERT  DTE  TEMPLATE  IN  LIST 


194 
195 
196 
197 
198 
199 
200 
201 
202 
205 
20A 
205 

206  000542 

207  0005A2 
208 

209 
210 

211  000546 

212  000550 

213  000552 

214  000554 

215  000560 

216  000564 

217  000566 

218  000570 
219 

220 
221 

222  000572 

223  000574 

224  000576 

225  000602 

226  000604 
227 


012700  OOOOOOG 


010001 

011000 

001407 

012702  000000' 

126022  OOOOOOG 

001770 

105712 

001373 


011115 
001002 
010567 
010511 
000207 


no0002G 
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.S8TTL  INSDTE  -  INSERT  DTE  TEMPLATE  IN  LIST 
••  INSDTE  -  INSERT  DTE  TEMPLATE  IN  LIST 
INPUTS 


OUTPUT 
REGISTERS 

INSDTE: 


R5  =  ADDRESS  OF  TEMPLATE 

SPSiPT  =  POINTER  TO  PSI  PART  OF  TEMPLATE  LIST 

THE  TEMPLATE  IS  LINKED  INTO  THE  LIST. 

R0,R1  AND  R2  ARE  CORRUPTED. 


SAVE  PREVIOUS  POINTER 

NEXT  TEMPLATE 

IF  EQ,  LINK  HERE 

POINT  TO  START  OF  PRECEDE  LIST 

CHECK  TEMPLATE  TYPE 

IF  EQ,  LEGAL  PREDECESSOR 

CHECK  FOR  END  OF  PRECEDE  LIST 

IF  NE,  KEEP  LOOKING 


POINT  NEW  TEMPLATE  TO  SUCCESSOR 

IF  NE,  NOT  LAST 

UPDATE  POINTER  TO  LAST  TEMPLATE 

POINT  PREDECESSOR  TO  NEW  TEMPLATE 

DONE 


;  SKIP 

ALL  TEMP 

lATES  WHICH  CAN  PR 

10$: 

MOV 

RO.RI 

MOV 

(r6),R0        ; 

BEQ 

30$ 

MOV 

#PRDLST,R2 
C.STS(r6),(R2)+  ; 

20$: 

CMP8 

BEQ 

10$ 

TSTB 

(R2) 

BNE 

20$ 

•  LINK 

TEMPLATE 

INTO  LIST 

30$: 

MOV 

(R1),(R5)      ; 

BNE 

40$ 

MOV 

R5,$TMLSTt2 

40$: 

MOV 
RETURN 

R5,(R1) 
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LOCAL  DATA 
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95 

96 

97 

98 

99 
100 
101 
102 
105  000000 

0^  000002 

105  00000^ 

106  000006 
107 

108 
109 
110 

111  000010 

112  000052 

113  000116 
lU 


.SBTTL  LOCAL  DATA 

•  **** 

•  LOCAL  DATA 


SINK  TYPE  TABLE 


000001 
000002 
000C04 
OOOCOO 


000002 

000000 

002 

002 

000 


SNKT8L:  .WORD 
.WORD 
.WORD 
.WORD 


FF.CON 
FF.FIL 
FF.MON 
0 

LC 
2 


CONSOLE  SINK  TYPE 
FILE  SINK  TYPE 
MONITOR  SINK  TYPE 
END  OF  TABLE 


105 
105 
105 


106  ERRBUF 
106  ERRLOG 
106  ERREVT 


.ENABL 
EX$ERR 

EXiWAR  =0  ..    ,,    .   .  .,    / 

.ASCIZ  <EX$ERR>/CFE  —  Buffer  allocation  failure/ 

.ASCIZ  <EX$ERR>/CFE  —  No  logging  state  definition/ 

.ASCIZ  <EX$WAR>/CFE  —  Events  cannot  be  filtered/ 
.EVEN 


I  1? 
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1 

2 

3 

i, 

5 

6 

7 

8 

9 

10 
11 
12 
15 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

/.O 

'.1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


.TITLE  SETMOD  -  DEFINE  MODULE 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCOfiDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 
CFE  -  DEFINE  MODULE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  08-N0V-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mkro/RSX  VI. 0 
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SETMOD  -  DEFINE  MODULE  MACRO  V05.03b  Monday  01-Jul-85  17:29  Page  13-1 
ALCDST  -  ALLOCATE  A  DESTINATION  DESCRIPTOR 

'ill  rnltl     °°°''"  A0$:    ERRORS  #ERRDST        ;  MISSING  DESTINATION  ID 

493  nn?4S4  000404  br    60$ 

494  002456  50$:    ERRORS  #ERR08J        ;  MISSING  OBJECT  PARAMETER 

495  002466  000261  60S:    SEC 

496  002470  000207  RETURN 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


89 

90 

91 

92 

93 

94 

95 

000002 

96  000000 

002 

97 

98 

99 

100 

101 

102  000000 

103 

000000 

104  000000 

105  000002 

106  000004 

107  000010 

108  000012 

109  000052 

110  000054 

111 

000056 

103 


■  ♦*** 

;  LOCAL  MACROS 

;  *  *  *  * 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BrTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV     TEXT.RO 

.FNDC 

CALL    SCFERR 

.ENDM   ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERI 

.ENDM  EPRINT 

■  **** 

•  LOCAL  DATA 

;  *  *  *  * 

•  ERROR  MESSAGES 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCI7  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


106  ERRNOD: 


.NLIST  BEX 

.ENA8L  LC 

FX$FRR  =  ? 

.ASCIZ  <EX$ERR>/CFE  —  No  node  definition/ 

.EVEN 


DEFINE  NODE  TEMPLATE 

.ASECT 

.=0 

.8LKW 

.8LKU 
.NAM:  .BLKW 
.NID:   .BLKW 

.BLK8   32. 

.BLKW 

.BLKW 


C.NUM: 
C.HOS: 
C.LEN^. 


C.LNK 

C.STS 

NODE  NAME  (RAD50) 

NODE  ID 

LENGTH  AND  STRING 

NODE  ADDRESS 

HOST  NODE  ADDRESS 
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H 


SETN'',P  -  SET  NSP  PARAMETERS 


55 
54 
55 
56 
57 
58 
59  000000 


'^2 


000000 

000000 
000002 
OOOOOA 
000006 
000010 
000012 
000013 

oooou 

000015 
000016 
000017 
000020 
000021 

000000 
60  000000 


000022 

000000 
000002 
000004 
000006 
000010 
000011 
000012 
00001A 
000015 
000016 

000000 


000000 


61 
62 
63 
64 
65 
66 
67 
68 
69 
70 


000022 


000000 
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•  **  *  * 

•  LIBRARY  MACRO  CALLS 

•  ♦*  ** 

.MCALL      NSfDF$,LLCTP$,[)ECTP$ 

DECTPS  LIST  ;  OEfiNE  DECSDF  TEMPLATE  OFFSETS 


C.LNK 

C.STS 

SEGMENT  SIZE 

MAXIMUM  NODE  COUNTERS 

MAXIMUM  LOGICAL  LINKS 

INCOMING  TIMER 

OUTGOING  TIMER 

INACTIVITY  TIMER 

RETRANSMIT  FACTOR 

DELAY  FACTOR 

DELAY  WEIGHT 

INPUT  PACKET  LIMITER 

LINK  SERVICE  THRESHOLD 


000000 


000020 

000012 
000013 


•  DEFINE  DEC  TEMPLATE 

.ASECT 

.=0 

.8LKW 

.BLKW 

C.SEG: 

.SLKW 

C.NDC: 

.8LKW 

C.LKS: 

.8LKW 

C.INCT 

:  .BLKB 

C.OUTT 

:  .BLKB 

C.INAC 

:  .BLKB 

C.RETF 

:  .BLKB 

C.DELF 

:  .BLKB 

C.DELd 

:  .BLKB 

C.IPL: 

.BLKB 

C.LST; 

.BLKB 

CD.LEN 

"'.PSECT 

LLCTPS 

.1ST 

•  DEFINE  LLC  TEMPLATE 

' 

.ASECT 

.=0 

.BLKW 

.BLKW 

C.NAM: 

.8LKU 

C.FLG: 

.BLKW 

C.PRI. 

.BLKB 

C.LIN 

.BLKB 

C.DEV 

.BLKW 

C.NLT 

.BLKB 

C.EXT 

.BLKB 

C.CTM 

.BLKW 

CL.LE^ 

.  ••  CT 

C.NLTC 

=  it 

C.NCTC 

=  13 
NSFDFS 

■  »*  t* 

;  LOC/ 

W.   MACROS 

;  ***» 

.MACRO 

PRINT   TEXT 

MOV 

TEXT.RO 

CALL 

SPRINT 

.ENDM 

PRINT 

DEFINE  LLCSDF  TEMPLATE  OFFSETS 


C.LNK 

C.STS 

LLC  PROCESS  NAME 

LLC  FLAGS  WORD 

LLC  PROCESS  PRIORITY 

NUMBER  OF  LINES  ASSIGNED  TO  THIS  LLC 

PSEUDO  DEVICE  NAME  FOR  THIS  LLC 

NUMBER  OF  LINE  TABLE  TO  ALLOCATE 

PROCESS  EXTENSION  IN  BLOCKS 

COUNTER  TIMER 


NLT  FOR  DDM/DLC  PROCESSES 
NCT  FOR  DDM/DLC  PROCESSES 
DEFINE  NSP  FEATURES  MASK  BITS 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


SETNSP  -  SET  NSP  PARAMETERS     MACRO  V05.03b  Saturda) 
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PRSMOD  -  PARSE 

ACTION  ROUTINES  MACRO  V05 

.MONNA  -  PARSE 

NETWORK 

NAME 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572  001252 

573  001252 

026727 

OOOOOOG  000006 

574  001260 

101331 

575  001262 

016700 

OOOOOOG 

576  001266 

005001 

577  001270 

004767 

OOOOOOG 

578  001274 

010167 

OOOOOOG 

579  001300 

005067 

000002G 

580  001^04 

026727 

OOOOOOG  000003 

581  001512 

003404 

582  001314 

004767 

OOOOOOG 

583  001320 

010167 

000002G 

584  001324 

000207 

585 

586 

000001 
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.SBTTL  .MONNA  -  PARSE  NETWORK  NAME 
**  .MONNA  -  PARSE  NETWORK  NAME 
INPUTS       .TPARS  VARIABLES. 
OUTPUT 


SNNAM  =  PARSED  NETWORK  NAME 

THE  TRANSITION  IS  ACCEPTED/REJECTED. 


MONNA:: 


10$: 


CMP 

BHI 

MOV 

CLR 

CALL 

MOV 

CLR 

CMP 

BLE 

CALL 

MOV 

RETURN 

.END 


.PSTCN,#6 

REJEC2 

.PSTPT.RO 

Rl 

$CAT5 

R1,$NNAM 

$NNAM+2 

.PSTCN,#3 

10$ 

$CAT5 

R1,$NNAM<-2 


CHECK  SIZE  OF  PARSED  STRING 

IF  HI,  REJECT  TRANSITION 

POINT  TO  ASCII 

ALLOW  PERIODS 

CONVERT 

LOAD  UP  FIRST  PART 

ASSUME  NO  SECOND  PART 

ANY  MORE  TO  CONVERT  ? 

IF  LE,  NOPE 

CONVERT  REMAINDER 

SAVE  IT 


J  1 

_  oc  nc . 1 n 


PRSOBJ     CREATED  BV  MACRO  ON  29-JUN-85  AT  05:19 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 
PRINT  #A-59 
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CREF   OA.OO 
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97 

98 

99 
100 
101 
102 
105 
lOA 
105 
106 
107 
108 
109 
110 

111  000036 
112 
113 
114 

115  000036 

116  000044 

117  000046 

118  000054 

119  000056 

120  000064 

121  000066 
122 

123 
124 
125 

126  000070 

127  000076 
128 

129  000100 
130 

131  000104 

132  000106 

133  000110 

134  000116 

135  000120 

136  000126 

137  000130 
138 

139  000132 

140  000140 
141 

142  000142 

143 

144  000150 

145 

146  000154 

147 


032767 
001415 
026767 
001037 
026767 
001033 
000421 


026767 
001415 


.S8TTL   .RNCHK  -  CHECK  REMOTE  NODE  OPTIONS 

♦*-.RNCHK-CHECK  REMOTE  NODE  OPTIONS 

INPUTS:       SOPRND  =  PARSED  OPTIONS 
SNODAD  =  NODE  ADDRESS 
SNODNA  =  NODE  NAME 

OUTPUT:       TRANSITION  REJECTED  IF:  .„..,r,r,^ 

-  NODE  IS  EXECUTOR  AND  REMOTE  NODE  OPTIONS  SPECIFIED 

-  NODE  IS  REMOTE  AND  THERE  IS  NO  NAME  FOR  IT  AND 
THERE  IS  NO  NAME  SPECIFIED  IN  THE  CURRENT  COMMAND. 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 


RNCHK:: 
NODE  NAME  PARSED: 


CHECK  AGAINST  EXECUTOR'S  NAME 


BIT 
BEQ 
CMP 
BNE 
CMP 
BNE 
BR 


#RN. NAM, SOPRND 

10$ 

SNODNA, SNTNAM 

30S 


SNODNA+2,SNTNAM+5  ;  EXEC  NAME 
30$  ;  IF  NE,  NO 

16$  ;  ERROR 


PARSED  A  NODE  NAME  ? 

IF  EQ,  PARSED  AN  ADDRESS 

EXECUTOR  NAME  ? 
IF  NE,  NO 


OOOOOOG  OOOOOOG 
012700  OOOOOOG 


011000 
001415 
122760 
001372 
026760 
001366 
000411 


NODE  ADDRESS  PARSED:  MAKE  SURE  ADDRESS  IS  NOT  THE  EXECUTOR'S 
AND  BELONGS  TO  A  REMOTE  NODE  ALREADY  KNOWN  TO  THE  SYSTEM. 


10$: 

15$: 


OOOOOOG  OOOOOOG 
OOOOOOG  000010 

OOOOOOG  OOOOOOG  16$: 


012767 
000403 


012767  OOOOOOG  OOOOOOG  17$ 
062716  000002  20$ 
000207  30$ 


CMP  SNODAD.SNTADD 

BEQ  16$ 

MOV  #$TMLST,RO 

MOV  (RO),RO 

BEQ  17$  ; 

CMPB  #CS.REM,C.STS(RO) 

BNE  15$ 

CMP  $NODAD,C.ADD(RO. 

BNE  15$ 

BR  30$ 

MOV  #ERRPNA,$ERROR  ; 

BR  20$ 

MOV  *ERRN0D,$ERR0R  ; 

ADD  #2,(SP) 

RETURN 


EXECUTOR  NODE  ? 
YES  -  BAD  PARAMS 

GET  START  OF  TEMPLATES 

GET  NEXT  TEMPLATE 
IF  EQ,  END  OF  TEMPLATES 
;  ELSE,  IS  THIS  A  REMOTE  TEMPLATE 
IF  NE,  NO  ..  KEEP  LOOKING 
;  DO  ADDRESSES  MATCH  ? 
IF  NE,  NO 
NODE  OK 

INVALID  PARAMETERS  FOR  EXEC 
NODE  NOT  IN  CONFIGURATION 


Uhrnn     \ir\Q     (TZk  C  r. 
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PRSSYS  -  PARSE  SYSTEM  ACTIC'i  RO  'lACRO  V05.03b  Saturday  29-Jun-85  05:20 
Table  ot  contents 

DYNAMIC  PARTITION  NAME  ACTION  ROUTINE 

POOL  NAME  ACTION  ROUTINE 

POOL  SINGLE  WORD  ALLOCATION  EXTENSION 

SET  NUMBER  OF  CCB'S 

SET  NUMBER  OF  RDB'S 

SET  SIZE  OF  EACH  RDB 

SET  NUMBER  OF  SDB'S 

SET  MINIMUM  NUMBER  OF  RDB'S  FOR  POOL 


s- 

65 

.SYPAR 

(S- 

9A 

.SYPOL 

^- 

12A 

.SYBYT 

K- 

U6 

.SYCBN 

9- 

172 

.SYRBN 

in- 

199 

.SYRBS 

11- 

232 

.SYSBN 

12- 

258 

.SYTHR 

J  4 


PRSSVS  CREATED  BY     MACRO     ON  29-JUN-85   AT  05:20 

MACRO   CROSS   REFERENCE 
MACRO  NAME  REFERENCES 

PRINT  #A-60 
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PAGE   2 

CREf        04.00 
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378 
379 
380 
381 
382 
383 
384 
385 
386 

387  001572 

388  001572 

389  001576 

390  001600 

391  001602 

392  001610 

393  001612 

394  001620 

395  001622 

396  001626 

397  001 63A 
398 

399 
400 
401 


012700 
011000 
001416 
122760 
001372 
026027 
001366 
005060 
052760 
000207 


.SBTTL  XSVCTM  -  PURGE  X25-SERVER  COUNTER  TIMER 
^•  XSVCTM  -  PURGE  X25-SERVER  COUNTER  TIMER 
INPUTS       NONE. 
OUTPUT       THE  X25-SERVER  COUNTER  TIMER  IS  PURGED. 


OOOOOOG 


XSVCTM: 
10$: 


OOOOOOG  OOOOOOG 

OOOOOOG  055430 

OOOOOOG 
OOOOOOG  OOOOOOG 


MOV  #$TMLST,RO 

MOV  (R0),RO 

BEQ  101$          , 

CMPB  #CS.LLC,C.STS(R0! 

BNE  1 0$ 

CMP  L$LNAM(RO),#<'RNW 

BNE  10$ 

CLR  L$LCTM(RO)      ; 

BIS  #CS.MOD,C.STS(R0) 

RETURN 


POINT   TO  LISTHEAD 

NEXT   TEMPLATE 

BR   IF   ERROR 

;    CHECK   TYPE 

BR   IF  NOT   LLC 

>   ;    CHAECK   LLC   NAME 

BR    IF   WRONG   LLC 

PURGE  COUNTER  TIMER 

;  MARK  TEMPLATED  FOR  UPDATE 


001636 


ERRORS 


402  001646  000207 


101$: 


ERR0R$     #ERRXSV 
RETURN 


;    NO  X25-SERVER   DATABASE 


Di  iDMnn    _    Di  iDrc    Mnrii  I 


Msron   uns   n^h   ^aturriav   ?9-Jijn-fi5   05:20 
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PURREM  -  PURGE  REMOTE  NODE 
LOCAL  DATA 

70 
71 
72 
73 
74 
75 
76 
77 
78 
79 

80  000000 

81  000000 

82  000000 

83  000002 
8A  000004 

85  000006 

86  000010 

87  000012 

88  000022 

89  000032 

90  000034 

91  000050 

92  000054 
93 

94  000000 
95 
96 
97 
98 
99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111  000056 

112 

113  000000 

114  000002 

115  000004 

116  000006 

117  000010 

118  000012 

119  000014 
120 

121  000000 
122 
123 
124 
125 
126 
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000056 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 


000000 


000016 


000036 


.SBTTL  LOCAL  DATA 
.NLI5T  BEX 


•  **** 

•  LOCAL  DATA 


DEFINE  SERSDF  TEMPLATE 


.ASECT 

.  =  0 

.BLKU 

.BLKW 

.8LKU 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 


SSFLG: 
SSADD: 
S$HST: 
SSHAD: 
S$CIR: 
S$DEV: 
S$PSS: 
SSDPA: 
S$DPC: 
S$LEN=. 


.PSECT 


Flags  definitions: 

SF.ADD  =  1 
SF.HST  =  2 
SF.HAD  =  4 
SF.CIR  =  10 
SF.DEV  =  20 
SF.PSS  =  40 
SF.DPA  =  100 
SF.DPC  =  200 
SF.PH3  =  400 


Define  FILSDF  template 


.ASECT 

.  =  0 

.BLKW   1 

.BLKW   1 

F$SEC: 

.BLKW   1 

F$TER: 

.BLKW   1 

F$LD: 

.BlKW   1 

F$DIA: 

.BLKW   1 

FSDUM: 

.BLKW   1 

F$LEN=. 

.PSECT 
Define  file  descriptor  offsets 


MXFSP 


30. 


C.LNK 
C.FLG 

option  flags 
Target  node  address 
Host  node  address 
Hardware  address 
Service  circuit 
Service  device 
Service  password 
Dump  address 
Dump  count 


(16  bit  node  address) 
(16  bit  node  address) 
(RAD50) 

(extended  RAD50) 
(extended  RAD50) 
(RAD50) 

(octal  binary) 
(in  k  bytes) 


Target  address  specified 
Host  address  specified 
Hardware  address  specified 
Service  circuit  specified 
Service  device  specified 
Service  password  specified 
Dump  address  specified 
Dump  count  specified 
Service  node  type  is  Phase  3 


Link 

Flags 

Secondary  loader  file  name 

Tertiary  loader  file  name 

Load  tile  name 

Diagnostics  file  name 

Dump  fi le  name 


Max  filespec  length 


niinrc  DCMnTC  Mnhc 
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«*FILE«MD««SETBUF 


ssssssss 

EEEEEEEEEE 

TTTTTTTTTT 

BBBBBBBB 

UU 

UU   F 

FFFFFFEFF 

ssssssss 

EEEEEEEEEE 

TTTTTTTTTT 

BBBBBBBB 

UU 

UU   F 

FFfFFFFFF 

ss 

EE 

BB    Be 

UU 

UU   F 

ss 

EE 

BB     BB 

UU 

UU   F 

ss 

EE 

BB     88 

UU 

UU   F 

ss 

EE 

BB     BB 

UU 

UU   F 

ssssss 

EEEEEEEE 

BBBBBBBB 

UU 

UU   F 

FFFFFFF 

ssssss 

EEEEEEEE 

BBBBBBBB 

UU 

UU   F 

FFFFFFF 

ss 

EE 

BB     BB 

UU 

UU   F 

ss 

EE 

BB     BB 

UU 

UU   F 

ss 

EE 

BB     88 

UU 

UU   F 

ss 

EE 

BB     BB 

UU 

UU   F 

ssssssss 

EEEEEEEEEE 

BBBBBBBB 

UUUUUUUUUU   F 

ssssssss 

EEEEEEEEEE 

BBBBBBBB 

UUUUUUUUUU   F 

LL 

SSSSSSSS 

TTTTTTFTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

Ll 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

CCT     DiiCrtTD     DADAMCTFDC;         MATOn     WOS     O'^h     ';AtiirH^\ 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

7A 

75 

76 

71 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92  000000 

93 

94 

95 

96 

97 

98  000000 

99 

100  000000 

101  000002 

102  000004 

103  000006 

104  000010 

105  000012 

106  000014 
107 

108  000040 
109 


000002 
002 


000000 


000016 


103 


•  *♦** 

;  LOCAL  MACROS 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT 
TEXT.RO 
SPRINT 
PRINT 


TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 


MOV 
.ENDC 
CALL 
.ENDM 

**** 
LOCAL  DATA 


.ENA8L 
.NLIST 


TEXT,RO 

SCFERl 
EPRINT 


LC 
BEX 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


FXJFRft  =  2 

106  ERRPRI:  .ASCIZ  <EX$ERR>/CFE  —  Illegal  device  priority/ 
.EVEN 

.LIST  BEX 

DEFINE  CONTROLLER  TEMPLATE 

.ASECT 
.=0 

.8LKW  1 

.BLKW  1 

.BLKW  1 

.BLKW  1 

.BLKW  1 

.BLKW  1 

.BLKW  1 


C.CNT 
C.VEC 
C.CSR 
C.PRI 
C.URM 
C.LEN=. 


C.LNK 

C.STS 

CONTROLLER  NUMBER 

VECTOR  ADDRESS 

CSR  ADDRESS 

CONTROLLER  PRIORITY 

UNIBUS  RUN  MASK 


.PSECT 
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SETCUG 
SSECUG 


SET  CLOSED  USER  GROUP  MACRO  V05.03b  Saturday  29-Jun-85 
SET  CLOSED  USER  GROUP  PARAMETERS 
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155  000366 

156  00057^ 

157  000^.02 
158 

159 
160 

161  OOOAOA 

162  000410 

163  000412 

164  OOOAK 

165  000422 

166  000424 

167  000426 

168  000432 

169  000436 

170  000442 

171  000444 

172  000446 

173  000450 
174 

175 
176 

177  000452 

178  000454 

179  000456 

180  000460 

181  000462 

182  000466 

183  000470 

184  000472 

185  000474 

186  000502 

187  000504 

188  000512 

189  000514 

190  000522 

191  000524 

192  000526 

193  000530 

194  000534 
i95  000536 
196 

197 
198 

199  000540 

200  000550 

201  000552 

202  000554 

203  000560 

204  000564 

205  000566 

206  000572 

207  000574 

208  000604 

209  000606 

210  000616 

211  000620 


052765 
032767 
001455 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  30$: 


BIS     *CS.fLG,C.STS(R5)  ;  REMEMBER  FLAGS  PRESENT 
BIT     #XP.DTA,$SWICH  ;  DTE  ADDRESS  ? 
BEQ     60$  ;  BR  IF  NO 


012703 
011303 
001452 
122763 
001372 
010302 
062702 
012701 
012700 
022122 
001361 
005300 
003374 


005704 
001404 
011514 
001002 
010567 
010304 
011303 
001414 
122763 
001771 
122763 
001765 
122763 
001761 
011415 
001002 
010567 
010514 
000207 


005704 
001026 
012700 
012701 
010502 
004767 
000416 

000411 

0004C4 


OOOOOOG 


LOOK  FOR  NEW  DTE  TEMPLATE 


35$: 


OOOOOOG  OOOOOOG 


OOOOOOG 
OOOOOOG 
000005 


40$: 


MOV 

MOV 

BEQ 

CMPB 

BNE 

MOV 

ADD 

MOV 

MOV 

CMP 

BNE 

DEC 

BGT 


#$TMLST,R3 

(R3),R3 

65$  , 

#CS.DTE,C.STS(R3) 

35$ 

R3,R2 

#D$TADR,R2 

#$DTE,Rl 


#5,R0 

(Rl)t, 

35$ 

RO 

40$ 


(R2)< 


000002G 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

000002G 


OOOOOOG 
OOOOOOG 

OOOOOOG 


LINK  GROUP  IN  AFTER  NEU  DTE 

TST  R4 

BEQ  45$ 

MOV  (R5),(R4) 

BNE  45$ 

MOV  R5,$TMLSTt2 

45$:    MOV  R3,R4 

MOV  (R3),R3 

BEQ  50$  , 

CMPB  *CS.CHN,C.STS(R3) 

BEQ  45$  ; 

CMPB  #CS.PVC,C.STS(R3) 

BEQ  45$  ; 

CMPB  #CS.CUG,C.STS(R3) 

BEQ  45$ 

50$:    MOV  (R4),(R5) 

BNE  55$ 

MOV  R5,$TMLST+2 

55$:    MOV  R5,(R4) 

60$:    RETURN 

ERRORS 

65$:    ERROR$  #ERRNSD 

TST  R4 

BNE  80$ 

MOV  #$XXAVL,RO 

MOV  #C$ULEN,R1 

MOV  R5,R2 

CALL  $RLBF 

BR  80$ 

70$:    ERROfi$  #ERRDTE 

BR  80$ 

72$:    ERROR$  #ERRNUM 

BR  80$ 

75$:    ERROR$  #ERRALL 


POINT  TO  TEMPLATE  LISTHEAD 
NEXT 

BR  IF  NO  SUCH  DTE 
;  CHECK  TYPE 
BR  IF  NOT  DTE 
COPV  TEMPLATE 
TEMPLATE  DTE  ADDRESS 
PARSED  DTE  ADDRESS 
LENGTH  IN  WORDS 
COMPARE 

BR  IF  WRONG  DTE 
REDUCE  WORDS  REMAINING 
BR  IF  MORE 


ANYTHING  TO  UNLINK? 
BR  IF  NO 
UNLINK  GROUP 
BR  IF  NOT  END 
ELSE  MARK  NEW  END 
SAVE  PREVIOUS  ADDRESS 
NEXT  TEMPLATE 
BR  IF  END  OF  LIST 
;  SKIP  OVER  CHANNEL  BLOCKS 

;"SKIP  PVCS 

.-"skip  OTHER  GROUPS 

lInK  in  new  SUCCESSOR 
IF  NE,  NOT  AT  END 
ELSE  MARK  NEW  END 
LINK  IN  PREDECESSOR 


NO  SUCH  DTE 

WAS  THE  GROUP  JUST  CREATED? 

BR  IF  ALREADY  EXISTED 

ELSE  POINT  TO  FREE  LIST 

SIZE  OF  TEMPLATE 

ADDRESS  OF  TEMPLATE 

RETURN  TEMPLATE  TO  FREE  LIST 

RETURN  FAILURE 

MISSING  DTE  ID 

MISSING  GROUP  NUMBER 

ALLOCATION  FAILURE 
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229 
230 
231 
232 
233 
23A 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 

245  000606 

246  000606 

247  000610 

248  000614 
249 

250 
251 

252  000630 

253  000636 

254  000644 

255  000646 

256  000654 

257  000662 

258  000664 

259  000672 
260 

261 
262 


.SBTTL  SETLIN  -  SET  LINE  ID  IN  DTE  TEMPLATE 
*♦  SETLIN  -  SET  LINE  ID  IN  DTE  TEMPLATE 
INPUTS 


OUTPUT 


REGISTERS 


R5  =  ADDRESS  OF  CURRENT  DTE  TEMPLATE 

SDVNAM  =  PARSED  LINE  ID 

SFLAGS  =  PARSED  LINE  ID  ATTRIBUTES 

THE  PARSED  LINE  ID  IS  LOADED  INTO  THE 
DTE  TEMPLATE.  FLAGS  IN  THE  STATUS  WORD 
INDICATE  PRESENCE  OR  ABSENCE  OF  UNIT 
AND  TRIBUTARY  NUMBERS. 

RO  AND  R1  ARE  CLOBBERED. 


010500 
062700 
012701 
000004 


042765 
032767 
001403 
052765 
032767 
001403 
052765 
000207 


SETLIN: 


OOOOOOG 
OOOOOOG 


OOOOOOC  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOC  OOOOOOG  10$: 

OOOOOOG  OOOOOOG 

20$: 


MOV 

ADD 

MOV 

.REPT 

MOV 

.ENDR 

BIC 

BIT 

BEQ 

BJS 

BIT 

BEO 

BIS 

RETURN 


;  COPY  TEMPLATE  POINTER 

;  POINT  PAST  LINE  ID 

;  POINT  TO  PARSED  LINE  ID 

;  MOVE  LINE  ID 


R5,R0 

#D$TLIN,RO 

#$DVNAM,R1 

4 

(R1)+,(R0)t 

#CS.UNI!CS.TRB,C.STS(R5)  ;  CLEAR  LINE  FLAGS 
#FL. MUX, SFLAGS  ;  MUX  DEVICE  ? 
10$  ;  IF  EQ,  NO 

#CS.UNI,C.STS(R55;  ELSE  THERE  IS  A  UNIT  NUMBER 
*FL.TRI!FL.TR8, SFLAGS  ;  MULTIPOINT  LINE  ? 
20$  ;  IF  EQ,  NOPE 

#CS.TRB,C.STS(R55  ;  ELSE  THERE  IS  A  TRIB  NUMBER 
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SEILOG  -  SET  LOGGING  PARAMETER  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL  SYMBOL  DEHNITIONS 

116 

117 

118 

119 

120 

121 

122  07A000 

123 

12'!, 

125 
126 

127  0000^0 

128  000000 

129  000000 

130  000002 

131  OOOOOA 

132  OOOOOA 

133  000006 
15A  000016 
135  000020 
136 
137 
138 

139  OOOOO'i 

UO  000004 

141  000005 

142  000160 


i5l: 


Page  6 
.SBTTL      LOCAL    SYMBOL   DEFINITIONS 


»*** 

•  LOCAL 

SYMBOL 

DEFINITIONS 

•  **** 

L.CUST 

=  480. OOO 

;  DEFINE 

EVENT 

.ASECT 

.=0 

.BLKU 

.BLKW 

TMPLOC= 

TEMPLATE 

1 
1 

:.CLS: 

.BLKW 

1 

:.EVT: 

.BLKW 

4 

:.SNK: 

.BLKW 

1 

C.LEN=. 

;  DEFINE 

LOGGING  STATE  TEM 

' 

.=TMPLOC 

C.STA: 

.BLKS 

1 

C.LEN1= 

.PSECT 

BEGINNING  OF   CUSTOMER   SPECIFIC   EVENTS 


C.LNK 
C.STS 


EVENT  CLASS 
EVENT  TYPE  MASKS 
LOGGING  SINK  TYPE 


LOGGING  STATE 
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SETMOD  -  DEF 
MACRO  DEF INI 

55 
5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 

n 

78 
79 

80 


I  13 

INE  MODULE  MACRO  V05.05b  Monday  01-Ju(-85  17:29  Page  k 
TIONS 

.SBTIL  MACRO  DEFINITIONS 

■  **** 

;  LOCAL  MACROS 

•  *  *  *  * 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


000177 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 


.MCALL   CALLR 
LOCAL  DEFINITIONS 
DEFPRI   =  127. 


;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 


;  DEFAULT  LIST  IN  ERTION  PRIORITY  FOR  DESTINATIONS 
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$5EXAC  -  DEFINE  MODULE  X25-ACCESS 


498 
A99 

500 
501 
502 
505 
50A 
505 
506 
507 
5C8 
509 
510 
Ml 

512  0C2A72 

513  002A72 
5U  002A76 

515  002502 

516  002504 

517  002506 

518  002510 

519  002516 

520  002520 

521  002526 

522  002530 

523  002532 

524  002540 

525  002542 

526  002550 

527  002552 

528  002560 

529  002562 

530  002564 
531 

532 
533 

534  002566 

535  002574 

536  002576 

537  002604 

538  002606 

539  002612 

540  002616 

541  002622 

542  002624 

543  002632 

544  002640 

545  002642 

546  002650 

547  002656 

548  002664 
540  002666 

550  002670 

551  002674 

552  002676 

553  002704 

554  002705 


004767 
012702 
010205 
011202 
001427 
126227 
002771 
126227 
003365 
OOIOH 
032767 
001056 
026762 
001004 
026762 
001446 
010203 
000746 


032767 
001062 
032767 
001464 
012700 
012701 
004767 
103450 
062767 
062767 
010002 
012762 
016762 
016762 
011312 
001002 
010267 
010213 
032767 
001412 
012700 


.SBTTL     SSEXAC   -  DEFINE   MODULE   X25-ACCESS 
«•♦   -  $SEXPR  -  DEFINE   MODULE   X25-PR0TOCOL 
INPUT: 


SOPRND   =  REQUEST   CODE 


OUTPUT: 


THE  REMOTE  DESTINATION  PARAMETERS  ARE  CHANGED. 
IF  THE  REMOTE  DESTINATION  DOES  NOT  ALREADY  EXIST 
IT  IS  CREATED. 


000272 
OOOOOOG 


SSEXAC: 


10$: 


,R2 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

0000006  OOOOOOG  20$: 
OOOOOOG  OOOOOOG 
000002G  000002G 

25$: 


CALL  TSTPSI 

MOV  #$PS1PT 

MOV  R2,R5 

MOV  (R2),R2 

BEQ  30$ 

CMPB  C.STS(R2),*CS.PSN 

BLT  10$ 

CMPB  C.STS(R2),#CS.RDT 

BGT  10$ 

BNE  25$ 

BIT  #XA.KND, SOPRND   ; 

BNE  50$ 

CMP  $DST,R$DNAM(R2)  ; 

BNE  25$ 

CMP  $DST+2 

BEQ  50$ 

MOV  R2,R3 

BR  10S 


MAKE  SURE  PSI  IN  SYSTEM 
POINT  TO  LISTHEAD 
SAVE  PREVIOUS  ADDRESS 
NEXT  ADDRESS 
BR  IF  END  OF  LIST 
;  CHECK  FOR  A  GOOD  PLACE  TO  LINK 
IF  LT,  BAD  PLACE 
;  CHECK  AGAIN 

IF  GT,  NO  A  GOOD  PLACE  TO  LINK 
IF  NE,  WRONG  TYPE  BUT  OK  TO  LINK  AFTER 
CHECK  FOR  KNOWN  DTES 
BR  IF  WILDCARD 
CHECK  FIRST  PART  OF  NAME 
IF  NE,  WRONG  DTE,  BUT  GOOD  PLACE  TO  LINK 
R$DNAMt2(R2)  ;  COMPARE  SECOND  WORD 
IF  EQ,  IT  MATCHES 

ELSE  ITS  A  GOOD  PLACE  TO  PUT  A  NEW  ONE 
KEEP  ON  LOOKING 


ALLOCATE  A  NEW  REMOTE  DESTINATION  DESCRIPTOR 


OOOOOOG  OOOOOOG  ^0$: 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
000170 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 


000002G 

40$: 
OOOOOOG  OOOOOOG  50$: 

OOOOOOG 


BIT 

BNE 

BIT 

BEQ 

MOV 

MOV 

CALL 

BCS 

ADD 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 

BNE 

MOV 

MOV 

BIT 

BEQ 

MOV 


#XA.KND,$OPRND 

65$ 

#XA.NUM, SOPRND 

75$ 

#$XXAVL,RO 

#R$DLEN,R1 

RQCB 

70$ 

*R$LENX,$BYTMN 

#R$LENX,$BYTXT 

R0,R2 

#CS.RDT,C.STS(R 

$DST,R$DNAM(R2) 

$DST+2,R$DNAM+2 

(R3),(R2) 

40$ 

R2,$TMLSTt2 

R2,(R3) 

#XA. NUM. SOPRND 

60$ 

*$DTE,RO 


KNOWN  DESTINATIONS 

IF  NE,  DONE 

UPDATE  DTE  ADDRESS? 

IF  EQ,NO  -  ERROR  ON  CREATE 

POINT  TO  FREE  LIST 

LENGTH  TO  REQUEST 

REQUEST  CORE  BLOCK 

BR  IF  ALLOCATION  FAILURE 

UPDATE  MINIMUM  BYTE  ALLOCATION 

UPDATE  ACTUAL  BYTE  ALLOCATION 
,  COPY  POINTER 
25  ;  INITIALIZE  TEMPLATE 

;  GOTTA  HAVE  A  NAME 
(R2)  ;  ... 

LINK  IN  NEW  SUCCESSOR 

BR  UNLESS  NEW  CLEANUP 

UPDATE  LISTHEAD 

LINK  IN  PREDECESSOR 

UPDATE  DTE  ADDRESS? 

IF  EQ,  NO  REASON  TO  BE  HERE  BUT  NO  ERROR 

POINT  TO  PARSED  DTE  ADDRESS 


J  K 
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SETNOD  - 

SET  EXECUTOR  NODE  OPTI 

112 

113 

lU 

115 

000000 

116 

000000 

117 

000002 

118 

000004 

119 

000006 

120 

000010 

121 

000034 

122 

123 

124 

125 

126 

000012 

127 

000000 

128 

000000 

129 

000002 

130 

000004 

131 

000010 

132 

000034 

133 

134 

1  15 

05:2 


72     Page  4-1 


;■  DEFINE 

ROUTING 

.=0 

.BLKW 

.BLKW 

TEMPLATE 

1 
1 

C.ADD: 

.BLKW 

1 

C.CST: 

.BLKW 

1 

CHOP: 

.BLKW 
.PSECT 

1 

;  DEFINE 

REMOTE 

.ASECT 
.=0 
.BLKW 
.BLKW 

TEMPLATE 

1 
1 

.BLKW 

2 

C.RADD: 

.BLKW 
.PSECT 

1 

C.LNK 

C.STS 

MAXIMUM  NODE  ADDRESS 

MAXIMUM  COST  ALLOWED 

MAXIMUM  NUMBER  OF  HOPS  ALLOWED 


C.LNK 

C  STS 

REMOTE  NODE  NAME 

REMOTE  NODE  ADDRESS 


J  15 
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71 
'2 
7? 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
85 
8^; 
85 
86 
87 
88 
89 
90 
91 
92 
93 

9-; 

95 
96 
97 
98 
99 

100  000000 

101  000050 

102  000066 
105 


.MACHO  ERRORS  TEXT 

THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BVTE  OF  THE  ERROR 
MESSAGE  STRING. 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


.IF  DIF 

MOV 

.ENDC 

CALL 

.ENDM 

<TEXT><RO> 
TEXT.RO 

SCFERR 
ERRORS 

.MACRO 

EPRINT  TEXT 

PRINT 

TEXT  ON 

ERROR  LUN 

.IF  DIF 

MOV 

.ENDC 

CALL 

.ENDM 

<1EXT><R0> 
TEXT.RO 

SCFERI 
EPRINT 

**•* 

LOCAL 
**** 

DATA 

GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


000002 
002 
002 
002 


103 
105 

^05 


106 

106 
106 


.NLIST 

.ENA8L 

EXSERR 

ERRDEC-  .ASCIZ 

ERRFEA:  .ASCIZ 

ERRSUP:  .ASCIZ 

.EVEN 


BEX 
LC 

:  2 

<EX$ERR>/CFE  -- 
<EXSERR>/CFE  — 
<EXSERR>/CFE  — 


No  DECSDF   macro/ 

No  NS:  features  macro/ 

Access  Veri  f ication  noc 


supported/ 
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HNERR 

000626R 

$CHNND= 

******  GX 

SNNAM  = 

******  GX 

.HOCRN 

992^^6'«5 

.MOMXR 

000350RG 

e:-»rcal= 

:RRCHN= 

ERR1LN= 

ILLCAL 

ILLNUM 

ILLNU2 

REJECT 

$CLM  = 

******  GX 

SNUM  = 

******  GX 

.HOCUG 

OOOOOORG 

.MONNA 

001252RG 

«**•**  GX 

$CLT  - 

******  GX 

$OBJ  = 

******  GX 

.HODFD 

000134RG 

.MONUM 

000522RG 

$CLV  - 

******  GX 

SPRI  = 

******  GX 

.MODFW 

92S??i''G 

.MOOBJ 

001176RG 

0010A0R 

$CU6  = 

******  GX 

SRET  = 

******  GX 

.MODST 

000660RG 

.MOOBN 

001152RG 

000506R 

$DFD  - 

******  GX 

SRST  = 

******  GX 

.H0DS1 

001071RG 

.HOPRI 

001050RG 

001136R 
0005UR 

$DFW  - 

»♦»***  GX 

SSUBI  = 

******  GX 

.M0DS2 

001 11  ORG 

.MORET 

000324RG 

$DST  = 

******  GX 

SSUB2  = 

******  GX 

.MOINC 

000552RG 

..vjORST 

000374RG 

REJEC2 

001U4R 

$ERROR= 

******  GX 

.HOCAT 

000054RG 

.MOHCI 

000A50RG 

.PNUMB= 

*♦♦»**  GX 

$BS2  = 
tCALT  - 

******  GX 

SMC  I   - 

******  GX 

.MOCLM 

000736RG 

.MOMCL 

00025'iRG 

.PNUMH= 

******  GX 

******  GX 

SMRE  = 

******  GX 

.MOCLT 

00C104RG 

.M0MC1 

000420RG 

.PSTCN= 

******  GX 

SCATS  = 

******  GX 

SMXC  = 

******  GX 

.MOCLV 

0007^^RG 

.MOMDA 

000170RG 

.PSTPT= 

******  GX 

$CHNLS= 

******  GX 

SMXR  = 

*♦♦♦*♦  GX 

.MOCNN 

000560RG 

.MOMRE 

000300RG 

.  ABS. 

000000 
001326 

000 
001 

(RW,i,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

♦♦*  Assembler  statistics 

Work   f 

ile  reads 

0 

Work   1 

i  le  writes 

0 

Size  of 

work  file 

fb 

Words  V 

1  Pages) 
(  55  Pages) 

Size  of 

core  pool 

U4A0  Words 

Operating  system 

R5X 

-11M/PLUS 

5Y:PRSMOD!v2![132,134]PRSHOD/CR/-SP=Sy:C1,1]RSXMu,.SML/ML,[130,11O]NETLI8/ML,n32,10]PRSM0P 
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»*FILE'*ID««PRSPRO 


PPPPPPPP 

RRRRRRRR 

SSSSSSSS 

PPPPPPPP 

RRRRRRRR 

000000 

PPPPPPPP 

RRRRRRKR 

SSSSSSSS 

PPPPPPPP 

RRRRRRRR 

000000 

pp     pp 

RR      PR 

SS 

pp    PP 

RR      RR 

00      00 

pp    pp 

RR       ■< 

SS 

PP    pp 

RR      RR 

00      00 

pp    pp 

RR      KR 

SS 

pp    pp 

RR      RR 

00      00 

pp    pp 

RR      RR 

SS 

pp    pp 

RR      RR 

00      00 

PPPPPPPP 

RRRRRRRR 

ssssss 

PPPPPPPP 

RRRRRRRR 

00     00 

PPPPPPPP 

RRRRRRRR 

ssssss 

PPPPPPPP 

RRRRRRRR 

00      00 

pp 

RR   RR 

ss 

PP 

RR  RR 

00     00 

pp 

RR   RR 

ss 

pp 

RR  RR 

00      00 

pp 

RR    RR 

ss 

PP 

RR    RR 

00      00 

pp 

RR    RR 

ss 

pp 

RR    RR 

00     00 

pp 

RR      RR 

SSSSSSSS 

pp 

RR      RR 

000000 

pp 

RR      RR 

SSSSSSSS 

pp 

RR      RR 

000000 

Ll 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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n 


PRSREM  - 
.RNH01 

U9 

150 

151 

152 

153 

15A 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

■95 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 
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000156 

C00156     016767 

000164     000207 


OOOOOOG  OOOOOOG 


000166 

000166  062716  000002 

000172 

000172  016700  OOOOOOG 

000176  016767  OOOOOOG  OOOOOOG 

000204  010067  OOOOOOG 

000210  000207 


000212 
000212 
000216 
000222 
000226 


016700 
004767 
010167 
000207 


OOOOOOG 
OOOOOOG 
OOOOOOG 


INPUTS 
OUTPUT 

.RNHOl : 

.RNH02:: 
.RNHOS: 


SBTTL 
SBTTL 


MOV 
RETURN 


.RNHOl  -  PARSE  REMOTE  NODE  HOST 

.RNHOS  -  PARSE  REMOTE  NODE  HOST 

SNODAD  =  NODE  ADDRESS  AS  PARSED 

SRNHOS  =  HOST  NODE  ADDRESS 


000230 

000230  016767  OOOOOOG  OOOOOOG 

000236  C16767  OOOOOOG  0U0002G 

000244  000207 


ADD 

'mov 

MOV 
MOV 
RETURN 


SNODAD, SRNHOS 


#2,(SP) 

SRNHOS, RO 
SNODAD, SRNHOS 
RO.SNODAD 


SAVE  REMOTE  NODE  ADDRESS  TEMPORARILY 


RESTORE  SANITY  AFTER  FAILED  PARSE 

RECOVER  SAVED  REMOTE  ADDRESS 
SAVE  PARSED  HOST  ADDRESS 
RESTORE  REflOTE  ADDRESS 


.SBTTL   .RNSDV  -  PARSE  SERVICE  DEVICE 
.RNSDV-PARSE  SERVICE  DEVICF 


INPUTS: 

OUTPUT: 

RNSDV: 


TPARS  VARIABLES. 

SRNSDV  =  RAD50  SERVICE  DEVICE. 


MOV 
CALL 
MOV 
RETURN 


.PSTPT,RO 
SCATS 
R1, SRNSDV 


POINT  TO  IT 
CONVERT  IT 
SAVE  IT 


.SBTTL   .RNDPA  -  PARSE  DUMP  ADDRESS 
**-.RNDPA-PARSE  DUMP  ADDRESS 


INPUTS: 

OUTPUT: 

RNDPA: 


MOV 
MOV 
RETURN 


TPARS  VARIABLES. 

SRNDMP  =  32  BIT  DUMP  ADDRESS 


.PNUMB,IRNDPA 
.PNUMH,SRNDPA+2 


.SBTTL   .   'CT  -  PARSE  DUMP  COUNT 
I- 
*»-.RNDCT-PARSE  DUMP  COUNT 

INPUTS:       .PNUMB  =  DUMP  COUNT  IN  64.  BYTE  UNITS 

OUTPUT:       SRNDCP  =  DUMP  COUNT  IN  1024.  BYTE  UNITS 
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3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE 
.IDENT 


PRSSYS  ~  PARSE  SYSTEM  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  PARSE  COMMANDS  ASSOCIATED  WITH  THE  SYSTEM  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARt  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
0ECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
0ECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 
DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

4.01  7-Dec-84       LAA 

Changed  byte  extension  max  from  8192.  to  65472. 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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'FILE*MD**PURM0D 


PPPPPPPP 

uu 

uu 

RRRRRRRR 

MM 

MM 

000000 

DDDDDDDD 

PPPPPPPP 

uu 

uu 

RRRRRRRR 

MM 

MM 

000000 

DDODDDDD 

PP    pp 

uu 

uu 

RR      RR 

MMMIV 

MMMM 

00 

00 

DD     DD 
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40A 
405 
406 
407 
408 
409 
410 
411 
412 

413  001650 

414  001650 

415  001654 

416  001656 

417  001660 

418  001666 

419  001670 

420  001674 
421 

422 
423 
424 
425 
426 


001676 
001706 


012700 
011000 
001407 
122760 
001372 
005060 
000207 


000207 


OOOOOOG 


.SBTTL  X29CTM  -  PURGE  X29-SERVER  COUNTER  TIMER 
**  X29CTM  -  PURGE  X29-SERVER  COUNTER  TIMER 
INPUTS       NONE. 
OUTPUT       THE  X29-SERVER  COUNTER  TIMER  IS  PURGED. 

X29CTM 


OOOOOOG  OOOOOOG 
OOOOOOG 


MOV 
10$:    MOV 
BEQ 
CMPB 
BNE 
CLR 
RETURN 

#$TMLST,RO 

(RO),RO 

101$ 

#CS.X29,C. 

10$ 

X$9CT(R0) 

STS(R05 

POINT  TO  LISTHEAD 

NEXT 

If  EQ,  NO  X29  SUPPORT 

;  CHECK  FOR  X29  DATABASE 

KEEP  ON  LOOKING 

PURGE  THE  COUNTER  TIMER 

;  ERRORS 

101$:   ERROR$ 
RETURN 

#ERRX29 

•' 

NO  X29  SUPPORT 
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PURREM  -  PURGE 

REMOTE  NODE 

LOCAL  DATA 

127 

128  000016 

129 

000000 

150  000000 

131  000002 

132  000004 

133  000005 

134 

000043 

135  000000 

136 

137 

138 

139 

000012 

KO  000000 

000000 

HI  000002 

K2  000004 
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F . LNK : 
F.CNT: 

F.DEV: 
F.LEN1 


.ASECT 

.  =  0 

.BLKW 

.BLKU 

.8LK8 

^8LK8 

yPSECT 


1 
1 
1 
MXF5P 


LOCAL  DEFINITIONS 


REMLEN 
SUCC: 
SERPT: 
FILPT: 


12 

.WORD  0 

.8LKW  1 

.8LKW  1 


Link  word 

Use  count 

Filespec  string  length 

Filespec  string  (ASCII) 


LENGTH  OF  REMOTE  TEMPLATE 
SUCCESS  FLAG 

ADDRESS  OF  SERVICE  TEMPLATE 
ADDRESS  OF  FILES  TEMPLATE 


m  mrc 


ncMnrc    Mnrvc 


MATDn     \ir\K     n^h     Caf-iirHa^ 
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SETBuF  -  SET  BUFFER  PARAMETERS  MACRO  V05.03b  Saturday  29-Jun-85  05:20 
Table  of  contents 

5-  158    SSEBUF  -  SETUP  BUFFER  TEMPLATE 
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in 

112 
113 
IH 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A  000040 

125  000040 

126  000044 
127 

128 
129 

130  000046 

131  000050 

132  000052 

133  000060 

154  000062 

135  000070 

136  000072 

137  000100 

138  000102 
139 

140 

141 

142  000104 

143  000106 

144  000110 

145  000116 

146  000120 

147  000126 

148  000130 

149  000136 

150  000140 

151  000146 
152 

153 
154 

155  000150 

156  000156 

157  000160 

158  000166 

159  000170 

160  000176 

161  000204 

162  000206 

163  000214 

164  000222 

165  000224 

166  000232 

167  000240 


.SBTTL 
«*♦  -  $SECNT 
INPUT: 


SSECNT  -  SET  CONTROLLER  PARAMETERS 
-  SET  CONTROLLER  PARAMETERS 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT: 


C-BIT   =   SUCCESS/FAILURE 

THE    CONTROLLER    TEMPLATE    IS   UPDATED 


012705     OOOOOOG 
005001 


SSECNT:: 


MOV 
CLR 


#$TMLST,R5 
R1 


GET  START  OF  TEMPLATES  LIST 
SUCCESS  INDICATOR 


011505 
001517 
122765 
001372 
032767 
001004 
026765 
001362 
010500 


011505 
001500 
122765 
001761 
122765 
001366 
032767 
001004 
026765 
001356 


052765 
005201 
032767 
001403 
016765 
032767 
001403 
016765 
032767 
001403 
016765 
032767 
001422 


LOOK  FOR  THE  DDM  PROCESS  NAME 


10$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  15$: 
OOOOOOG  OOOOOOG 

20$: 


MOV 

BEQ 

CMPB 

BNE 

BIT 

BNE 

CMP 

BNE 

MOV 


(R5),R5 

65$ 

*CS.DDM 

10$ 

#UC.NAM,$UILD 

20$ 

$DVNAM,C.PRM(R5) 

10$ 

R5,R0 


;  GET  NEXT  TEMPLATE 
;  IF  EQ,  END  OF  TEMPLATES 
STS(R55  ;  IS  THIS  A  DDM  TEMPLATE  ? 
IF  NE,  NO  -  KEEP  LOOKING 
ALL  DEVICES  ? 
IF  NE,  YES  ..  FIND  CONTROLLER 

IS  THIS  THE  RIGHT  DEVICE  NAME 
IF  NE,  NO  ..  KEEP  LOOKING 
SAVE  DDM  TEMPLATE  ADDRESS 


LOOK  FOR  THE  CONTROLLER 


55$: 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOC  OOOOOOG 
OOOOOOG  000004 


MOV 

BEQ 

CMPB 

BEQ 

CMPB 

BNE 

BIT 

BNE 

CMP 

BNE 


(R5),R5 

65$  ; 

#CS.DDM,C.STS(R5) 

15$  ; 

#CS.CNT,C.STS(R5) 

25$ 

#wc.nam:wc.cnt,$uild 

30$  ;  IF  NE 


$CNTNM,C.CNT(R5) 
25$ 


GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  THE  NEXT  DDM  ? 

BR  IF  YES 

;  IS  THIS  A  CONTROLLER  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

WILDCARD  DEVICES/CONTROLLERS 
YES 


UPDATE  THE  CONTROLLER  TEMPLATE 


OOOOOOG  OOOOOOG  50$: 

OOOOOOG  OOOOOOG 

OOOOOOG  000014 
OOOOOOG  OOOOOOG  35$: 

OOOOOOG  000006 
OOOOOOG  OOOOOOG  40$: 

OOOOOOG  000010 
OOOOOOG  OOOOOOG  4  5$: 


BIS 
INC 
BIT 
BEQ 
MOV 
BIT 
BEQ 
MOV 
BIT 
BEQ 
MOV 
BIT 
BEQ 


*CS.M0D,C.STS(R5) 

Rl 

#OL.URH, SOPRND 

35$ 

$URM,C.URM(R5) 

#OL.VEC,$OPRND 

40$ 

$VEC,C.VEC(R5) 

#OL.CSR,$OPRND 

45$ 

SCSR,C.CSR(R5) 

*0L. PR  I, SOPRND 

60$ 


IS  THIS  THE  RIGHT  CONTROLLER 
IF  NE,  NO  ..  KEEP  LOOKING 


;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

SHOW  WE  FOUND  ONE 

IS  THE  UNIBUS  RUN  MASK  PRESENT  ? 

IF  EQ,  NO 

ELSE,  UPDATE  THE  UNIBUS  RUN  MASK 

IS  THE  VECTOR  ADDRESS  PRESENT 

IF  EQ,  NO 

ELSE,  UPDATE  THE  VECTOR  ADDRESS 

IS  THE  CSR  ADDRESS  PRESENT  ? 

IF  EQ,  NO 

ELSE,  UPDATE  THE  CSR  ADDRESS 

IS  THE  PRIORITY  PRESENT 

IF  EQ,  NO  ..  LOOK  FOR  MORE  WORK 
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212  000630  000261 

213  000632  000207 

215  000001 


80$: 


SEC 
RETURN 

.END 


iccD    roniiD 
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SETDTE  -  SET  LOCAL  DTE  PARAMETE  MACRO  V05.03b  Saturday  29-Jun-85 
SETCHN  -  CREATE  CHANNEL  LIST 
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264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279  000674 

280 

281 

282 

283  000674 

010546 

284  000676 

010502 

285  000700 

011202 

286  000702 

001417 

287  000704 

122762 

OOOOOOG  OOOOOOG 

288  000712 

001013 

289  000714 

011215 

290  000716 

001002 

291  000720 

010567 

000002G 

292  000724 

012701 

OOOOOOG 

293  000730 

016700 

OOOOOOG 

294  000734 

004767 

OOOOOOG 

295  000740 

000756 

296 

297 
298 
299  000742 

012704 

OOOOOOG 

300  000746 

012403 

301  000750 

006203 

302  000752 

005303 

303  000754 

000241 

304  000756 

100435 

305  C00760 

012700 

OOOOOOG 

306  000764 

012701 

OOOOOOG 

307  000770 

004767 

OOOOOOG 

308  000774 

103426 

309  000776 

011510 

310  001000 

001002 

311  001002 

010067 

000002G 

312  001006 

010015 

313  001010 

010005 

314  001012 

012760 

OOOOOOG  OOOOOOG 

315  001020 

012460 

OOOOOOG 

316  001024 

100352 

317  001026 

042760 

100000  OOOOOOG 

318  001034 

052760 

OOOOOOG  OOOOOOG 

319  001042 

012460 

OOOOOOG 

320  001046 

005303 

.SSTTL  SETCHN  -  CREATE  CHANNEL  LIST 
•»  SETCHN  -  CREATE  CHANNEL  LIST 
INPUTS 


OUTPUT 


REGISTERS 


R5  =  ADDRESS  OF  CURRENT  DTE  TEMPLATE 
SCHNLS  =  PARSED  CHANNEL  LIST 

THE  CURRENT  CHANNEL  LIST  IS  PURGED,  AND  THE 
PARSED  CHANNEL  LIST  IS  CREATED. 

CARRY  SET  If  ALLOCATION  FAILURE. 

R5  IS  PRESERVED. 


SETCHN: 


PURGE  THE  CURRENT  TEMPLATE  LIST 


MOV  R5,-(SP) 

10$:    MOV  R5,R2 

MOV  (R2),R2 

BEO  30$  , 

CMPB  #CS.CHN,C.STS(R2) 

BNE  30$ 

MOV  (R2),(R5) 

BNE  20$ 

MOV  R5,$TMLST+2 

20$:    MOV  #C$HLEN,R1 

MOV  $)(XAVL,R0 

CALL  $RLBF 

BR  10$ 

BUILD  THE  NEW  CHANNEL  LIST 

^0$:    MOV  #$CHNLS,R4 

MOV  (R4)+,R3 

ASR  R3 

40$:    DEC  R3 
CLC 

BMI  60$ 

MOV  #$XXAVL,RO 

MOV  #C$HLEN,R1 

CALL  $RQ8F 

BCS  60$ 

MOV  (R5),(R0) 

BNE  50$ 

MOV  R0,$TMLST+2 

50$:    MOV  R0,(R5) 

MOV  R0,R5         , 

MOV  #CS.CHN.C.STS(RO) 

MOV  (R4)t,C$HLO(R0)  ; 

8PL  40$  ; 

BIC  #100000, C$HLO(R0) 

BIS  #CH$HI,C.STS(RO) 

MOV  (R4)+,C$HH!(R0)  ; 

DEC  R3 


SAVE  R5 

COPY  TEMPLATE  POINTER 

NEXT  TEMPLATE 

IF  EQ,  END  OF  LIST 

;  CHECK  TEMPLATE  TYPE 

IF  NE,  END  OF  CHANNEL  DEFS 

CLOSE  UP  LIST 

IF  NE,  NOT  LAST  IN  LIST 

SET  NEW  LAST  ENTRY 

GET  LENGTH  OF  CHANNEL  TEMPLATE 

POINT  AT  END  OF  TASK  LISTHEAD 

RELEASE  CORE  BLOCK 

CONTINUE 


POINT  TO  PARSED  CHANNEL  LISTHEAD 
GET  COUNT  OF  CHANNELS 
CONVERT  WORD  OFFSET  TO  COUNT 
REDUCE  SAVED  CHANNEL  COUNT 
ASSUME  SUCCESS 
IF  MI,  NO  MORE 

GET  ADDRESS  OF  END  OF  TASK  LISTHEAD 
LENGTH  OF  CHANNEL  TEMPLATE 
TRY  TO  ALLOCATE  BLOCK 
IF  CS,  ALLOCATION  FAILURE 
POINT  TO  NEW  SUCCESSOR 
IF  NE,  NOT  LAST 
UPDATE  END  POINTER 
LINK  INTO  LIST 
WHERE  TO  LINK  NEXT  ONE 
;  ITS  A  CHANNEL  BLOCK 
SET  LOW  END  OF  RANGE 
BR  IF  NO  HIGH  CHANNEL 
;  CLEAR  FLAG  BIT 

;  REMEMBER  LOW  CHANNEL  SPECIFIED 
SAVE  LOW  END  OF  RANGE 
ACCOUNT  FOR  EXTRA  CHANNEL 


CCTTriTC     _     CCT 
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1A5 
K6 
K7 
148 
K9 
150 
151 
152 
153 
15A 
155 

156  000160 

157  000160 

158  00016A 

159  000172 

160  00017-1 

161  000200 

162  000206 

163  000210 

164  000214 

165  000222 

166  000224 

167  000230 

168  000236 
169 

170 
171 

172  000240 

173  000244 

174  000246 

175  000250 

176  000260 

177  000264 

178  000272 

179  000274 

180  000302 

181  000310 

182  000312 

183  000316 

184  000320 
185 

186 
187 

188  000324 

189  000332 

190  000334 

191  000342 

192  000344 

193  000350 

194  000354 

195  000356 

196  000362 

197  000364 

198  000366 

199  000370 

200  000376 


012705 
032767 
001016 
012705 
032767 
001010 
012705 
032767 
001002 
012705 
032767 
001432 


012700 
011000 
001006 

000167 
122760 
001364 
052760 
032767 
001003 
140560 
000402 
150560 


032767 
001575 
032767 
001412 
012704 
021467 
001413 
062704 
005714 
100371 
000454 
032767 
00I4I5 


.SBTTL  SSELOG  -  SET  LOGGING  PARAMETERS 
♦*•  -  SSELOG  -  SET  LOGGING  PARAMETERS 
INPUT: 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT: 


THE  EVENT  AND/OR  LOGGING  STATE  TEMPLATES  ARE  MODIFIED 


SSELOG:: 


000007 

0000006  OOOOOOG 

000004 

OOOOOOG  OOOOOOG 

000001 

OOOOOOG  OOOOOOG 

000002 

OOOOOOG  OOOOOOG  10$: 


MOV 
BIT 
BNE 
MOV 
BIT 
BNE 
MOV 
BIT 
BNE 
MOV 
BIT 
BEQ 


#FF 
#WC 
10$ 
#FF 
#0M 
10$ 
#FF 
#0M 
10$ 
#FF 
#0M 
50$ 


M0N!FF.C0N!FF.FIL,R5 
LOG,$WILD 

,M0N,R5 
,MON,$OPRND 

C0N,R5 
,CON,$OPRND 

,FIL,R5 
,STA,$OPRND 


OOOOOOG 


000442 

OOOOOOG  OOOOOOG  30$: 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


000004 
000004 


PROCESS  LOGGING  STATE 

MOV  #$TMLST,RO 

20$:    MOV  (R0),RO 

BNE  30$ 

ERRORS  #ERRLOG 

JMP  150$ 

CMPB  *CS.L0G,C.STS(R0) 

BNE  20$ 

BIS  #CS.MOD,C.STS(RO) 

BIT  #SU.LON,$SWICH 

BNE  40$ 

BICB  R5,C.STA(R0) 

BR  50$ 

40$:    BISB  R5,C.STA(R0) 


PROCESS  EVENT  DEFINITION 


OOOOOOG  OOOOOOG  5o$: 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG        55$: 

000012 

OOOOOOG  OOOOOOG  60$: 


BIT 

BEQ 

BIT 

BEQ 

MOV 

CMP 

BEQ 

ADD 

TST 

BPL 

BR 

BIT 

BEQ 


*OM.EVE,$OPRND 
150$ 

#WC.EVE,$WILD 
60$ 

#$|!;nevt,r4 

(R4),$CLASS 

70S 

#12, R4 

(R4) 

55$ 

103S 

#OM.KEV,$OPRND 

80$ 


:  ASSUME  KNOWN  LOGGING 
KNOWN  LOGGING  SPECIFIED? 
BR  IF  YES 

ASSUME  LOGGING  MONITOR 
LOGGING  MONITOR  SPECIFIED? 
BR  IF  YES 

ASSUME  LOGGING  CONSOLE 
LOGGING  CONSOLE  SPECIFIED? 
BR  IF  YES 

ELSE  MUST  BE  LOGGING  FILE 
LOGGING  STATE  SPECIFIED? 
BR  IF  NO 


GET  START  OF  TEMPLATES 

GET  NEXT  TEMPLATE 

BR  IF  FOUND  ONE 

LOGGING  STATE  TEMPLATE  NOT  FOUND 

AND  LEAVE 

IS  THIS  A  LOGGING  TEMPLATE 

8R  IF  NO  —  KEEP  LOOKING 

INDICATE  LOGGING  STATE  MODIFIED 

SET  LOGGING  STATE  ON? 

BR  IF  YES 

SET  LOGGING  STATE  OFF 

CONTINUE 

SET  LOGGING  STATE  ON 


EVENTS  SPECIFIED? 

BR  IF  NO 

ALL  EVENTS  SPECIFIED? 

BR  IF  NO 

ELSE  POINT  TO  KNOWN  EVENT  TABLE 

MATCH  ON  EVENT  CLASS 

IF  EQ,  GOT  IT 

POINT  TO  NEXT  ENTRY 

END  OF  TABLE  ? 

IF  PL,  MORE 

ELSE  UNKNOWN  EVENT  CLASS 

KNOWN  EVENTS  SPECIFIED? 

BR    IF   NO 
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SEIMOD  -  DEFINE  MODULE 
LOCAL  DATA 

82 

83 

8^ 

85 

86 

87 

88 

89 

90 

91 

92 

93       000002 

9^  000000    002 

95  OOOO'il     002 

96  000103    002 

97  000150    002 

98  000217    002 

99  000261    002 

100  000326    002 

101  00037A    002 

102  000436    002 

103  00047A    002 

104  000545     002 
105 
106 
107 
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.SBTTL  LOCAL  DATA 
.NLIST  BEX 

•  **** 

;  LOCAL  DATA 

• »  ♦  *  * 


ERROR  TEXT 


103 
103 
103 
103 
103 
103 
103 
103 
103 
103 
103 


106 
106 
106 
106 
106 
106 
106 
106 
106 
106 
106 


ERRPSI 
ERRDNM 
ERRCON 
ERRDST 
ERROBJ 
ERRCLM 
ERRCLV 
ERRNUM 
ERRXSV 
ERRX29 
ERRLEN 


.NLIST  BEX 
=  2 


EXSERR 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCJZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST  BEX 


<EX$ERR>/CFE  ~  No  PSI  support  in  system/ 

<EX$ERR>/CFE  —  Missing  parameter:  OBJECT/ 

<EX$ERR>/CFE  —  Invalid  destination  sequence/ 

<EX$ERR>/CFE  —  Missing  parameter:  DESTINATION/ 

<EX$ERR>/CFE  ~  Missing  parameter:  OBJECT/ 

<EX$ERR>/CFE  —  Missing  parameter:  CALL  MASK/ 

<EX$ERR>/CFE  —  Missing  parameter:  CALL  VALUE/ 

<EX$ERR>/CFE  —  Missing  parameter:  NUMBER/ 

<EX$ERR>/CFE  ~  Missing  LLCSDF  for  NU/ 

<EX$ERR>/CFE  —  No  X.29  support  in  configuration/ 

<EX$ERR>/CFE  ~  Call  mask  and  call  value  are  different  lengths/ 
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$SEXAC  -  DEFINE  MODULE  X25-ACCESS 


555  00271? 

556  00271A 
j57 

558 
559 

560  002732 

561  0027A0 

562  002742 
565 

564 
565 

566  002744 

567  002754 
568 

569  002756 

570  002766 


010201 
062701 
000005 


032767 
001260 
000207 


000207 
000207 


OOOOOOG 

OOOOOOG  OOOOOOG  60$: 
65$: 
ERRORS 


MOV 

ADD 

.REPT 

MOV 

.ENDR 

BIT 

BNE 

RETURN 


^•OS: 
75$: 


ERROR$ 
RETURN 

ERRORS 
RETURN 


R2,R1 

#R$DADR,R1 
5 
(R0)+,(R1)t 

#XA.KND,$OPRND 
10$ 


tfERRALL 


*ERRNUM 


COPY  TEMPLATE  ADDRESS 
POINT  TO  NAME  FIELD 

LOAD  IT  UP 

WILDCARD  OPERATION? 
IF  NE,  CONTINUE 


ALLOCATION  FAILURE 
MISSING  NUMBER  ON  CREATE 
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SEINOD 
SSENOD 
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136 

137 

138 

139 

UO 

U1 

H2 

U3 

U^ 

U5 

U6 

K7 

148  000034 

U9  00003A 

150 

151 

152 

153  000040 

154  000042 

155  000044 

156  000052 

157  000054 

158  000062 

159  000070 

160  000072 

161  000100 

162  000106 

163  000114 

164  000122 

165  000130 

166  000132 

167  000140 

168  000144 

169  000152 

170  000154 

171  000160 

172  000166 
173 

174 
175 
176 
177 

178  000174 

179  000202 

180  000204 

181  000206 

182  000212 

183  000216 

184  000220 

185  000222 

186  000226 

187  000230 

188  000236 

189  000240 

190  000246 

191  000254 

192  000256 


.S8TTL  $SENOD  -  SET  NODE  PARAMETERS 
«••  -  SSENOD  -  SET  NODE  PARAMETERS 
INPUT: 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT; 


THE  NODE  TEMPLATE  IS  MODIFIED 


012700  OOOOOOG 


SSENOD: 


MOV 


#STMLST,RO 


GET  START  OF  TEMPLATES 


SEARCH  FOR  THE  NODE  TEMPLATE 


011000 
001513 
122760 
001372 
052760 
032767 
001414 
016760 
016760 
016767 
016767 
032767 
001421 
042760 
016001 
032767 
001402 
005060 
056760 
016067 


lOS: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  000004 
000002G  000006 
OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOG  OOOOOOG  15$: 

001777  000052 

000052 

176000  OOOOOOG 

000052 

OOOOOOG  000052  18$: 

000052  OOOOOOG 


032767  OOOOOOG  OOOOOOG  56$ 

001412 

010046 

062700  000010 

012701  OOOOOOG 

012102 

010220 

004767  OOOOOOG 

012600 

032767     OOOOOOG  OOOOOOG  30$ 

001414 

042760     001777     000054 

032767     176000     OOOOOOG 

001402 

005060     000054 


MOV  (R0),R0 

BEQ  101$  ; 

CMPS  #CS.NOD,C.STS'R0) 

BNE  10$  ; 

BIS  #CS.MOD,C.STS(R0) 

BIT  #OE.NAM,$OPRND     ; 

BEQ  15$  ; 

MOV  $N0DNA,C.NAM(R0) 

MOV  $NODNA+2,C.NAM+2( 

MOV  $NODNA,$NTNAM   ; 

MOV  $N0DNAt2,$NTNAM+2 

BIT  #OE.ADD,$OPRND 

BEQ  20$ 

BIC  #1023.,C.NUM(R0) 

MOV  C.NUM(R0),R1 

BIT  #»C1023.,$NODAD 

BEQ  18$ 

CLR  C.NUM(RO) 

BIS  $NODAD,C.NUM(RO) 

MOV  C.NUM(RO),$NTADD 

MOV  $N0DAD,R2 

BIC  #1777, R2 

CMP  R1,R2 

BEQ  20$ 

CALL  UPDREM 

BIT  #OE.ID,SOPRND 

BEQ  30$ 

MOV  RO,-(SP) 

ADD  #C.NID,RO 

MOV  #$ID,R1 

MOV  (R1)+,R2 

MOV  R2,(R0)<- 

CALL  SMVASC 

MOV  (SP)+,RO 

BIT  #OE.HOS,$OPRND 

BEQ  40$ 

BIC  #1023.,C.HOS(R0) 

BIT  #''C1025.,$HOST 

BEQ  35$ 

CLR  C.HOS(RO) 


GE 
IF 

IF 

is 

IF 
;  E 
RO) 


T  NEXT  TEMPLATE 

EQ,  NO  NODE  TEMPLATE 
IS  THIS  A  NODE  TEMPLATE  ? 

NE,  NO  -  KEEP  I OOKING 
INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

THERE  A  NODE  NAME  ? 

EQ,  NO 

lse,  store  the  new  node  name 
.twice" 


IS  THERE  A  NODE  ADDRESS  ? 
IF  EQ,  NO 
PRESERVE  OLD  AREA 
SAVE  IT 

AREA  SPECIFIED  FOR  NEW  ? 
IF  EQ,  NO  -  USE  OLD  AREA 
ELSE,  CLEAR  OUT  AREA  BITS 
SET  NEW  ADDRESS  AND  POSSIBLY  AREA 
:  ..TWICE 
PUSH  NEW  ADDRESS 
ISOLATE  NEW  AREA 
IS  IT  THE  SAME  AREA  ? 
BR  IF  YES 

ELSE  UPDATE  REMOTE  DEFINITIONS 
IS  THERE  A  NODE  ID  ? 
IF  EQ,  NO 
SAVE  RO 

POINT  RO  AT  OUTPUT  BUFFER 
GET  ADDRESS  OF  INPUT  BUFFER 
AND  LENGTH  OF  STRING  TO  MOVE 
TWICE 

MOVE  THE  NODE  ID  INTO  TEMPLATE 
RESTORE  RO 

IS  THERE  A  HOST  NODE  ADDRESS  ? 
IF  EQ,  NO 
;  PRESERVE  AREA 
AREA  IN  HOST  ? 
IF  EQ,  NO  -  USE  PREVIOUS 
ELSE,  CLEAR  AREA  BITS 
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SEINSP  -  SET  NSP  PARAMETERS 
SSENSP  -  SET  NSP  PARAMEURS 

105 

106 

107 

108 

109 

110 

111 

112 

11? 

1U 

115 

116 

117  OOOUO 

118 

119 

120 

121  OOOUO  010546 

122  000U2  012705  OOOOOOG 

123  0OOH6  010504 

124  000150  011505 

125  000152  001555 

126  000154  122765 

127  000162  001372 

128  000164  010504 
129 
130 
131 

132  000166  032767 

133  000174  001406 

134  000176  016764  OOOOOOG 

135  000204  052764  OOOOOOG 
136 

137  000212  032767 

138  000220  001406 

139  000222  016764  OOOOOOG 

140  000230  052764  OOOOOOG 
141 

142  000236  032767 

143  000244  001406 

144  000246  116764  OOOOOOG 

145  000254  052764  OOOOOOG 
146 

147  000262  032767 

148  000270  001406 

149  000272  116764  OOOOOOG 

150  000300  052764  OOOOOOG 
151 

152  000306  032767 

153  0003T4  001406 

154  000316  116764  OOOOOOG 

155  000324  052764  OOOOOOG 
156 

157  000332  032767 

158  0CO340  001406 

159  000342  116764  OOOOOOG 

160  000350  052764  OOOOOOG 
161 
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.S8TTL  SSENSP  -  SET  NSP  PARAMETERS 
'»••  -  SSENSP  -  SET  NSP  PARAMETERS 
INPUT: 


$OPRND  =  OPERANDS  PRESENT 


OUTPUT; 

THE  NSP  TEMPLATE  IS  MODIFIED 

SSENSP:: 

SEARCH  FOR  THE  NSP  TEMPLATE 

MOV  R5,-(SP)       ;  SAVE  REGISTER 

MOV  #$TMLST,R5      ;  GET  START  OF  TEMPLATES 

MOV  R5,R4         ;  AGAIN 

10$:    MOV  (R5),R5        ;  GET  NEXT  TEMPLATE 

BEQ  110$           ;  IF  EQ,  NO  DEC$DF  TEMPLATE 

CMP8  #CS.DEC,C.STS(R5)  ;  IS  THIS  THE  DEC$DF  TEMPLATE? 

BNE  10$           ;  IF  NE,  NO  -  KEEP  LOOKING 

MOV  R5,R4          ;  GET  ADDRESS  OF  DEC$DF  TEMPLATE 


UPDATE  THE  DEC$DF  TEMPLATES 


OOOOOOG  OOOOOOG 


000010 
OOOOOOG 


OOOOOOG  OOOOOOG  20$: 


000006 
OOOOOOG 


OOOOOOG  OOOOOOG  30$: 


000014 
OOOOOOG 


OOOOOOG  OOOOOOG  40$: 


000012 
OOOOOOG 


OOOOOOG  OOOOOOG  50$: 


000013 
OOOOOOG 


OOOOOOG  OOOOOOG  60$: 


000015 
OOOOOOG 


BIT  #OE.LNK,$OPRND  ; 

BEQ  20$ 

MOV  $LINKS,C.LKS(R4) 

BIS  #CS.M0D,C.STS(R4) 

BIT  #0E.NC0,$0PRND 

BEQ  30$ 

MOV  $NC0U,C.NDC(R4)  , 

BIS  #CS.M0D,C.STS(R4) 

BIT  #E2.INA,$0PRN2  ; 

BEQ  40$ 

MOVB  $EINA,C.INAC(R4) 

BIS  #CS.M0D,C.STS(R4) 

BIT  #£2.INC,$0PRN2  ; 

BEQ  50$ 

M0V8  $E1NC,C.INCT(R4)  , 

BIS  #CS.M0D,C.STS(R4) 

BIT  #E2.0UT,$OPRN2  ; 

BEQ  60$ 

MOVB  $E0UT,C.0UTT(R4)  , 

BIS  #CS.M0D,C.STS(R4) 

BIT  #E2. RET, $0PRN2  ; 

BEQ  70$ 

M0V8  $ERET,C.RETF(R4) 

BIS  #CS.M0D,C.STS(R4) 


WAS  THE  LINK  COUNl  CHANGED  ? 
IF  EQ,  NO 
;  UPDATE  THE  NUMBER  OF  LINKS 
;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

WAS  THE  NUMBER  OF  NODE  COUNTERS  SPECIFIED  ? 

IF  EQ,  NO 

UPDATE  THE  NUMBER  OF  NODE  COUNTERS 

;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

WAS  INACTIVITY  TIMER  SPECIFIED? 
BR  IF  NO 

;  UPDATE  THE  INACTIVITY  TIMER 
;  INDCATE  TEMPLATE  WAS  MODIFIED 

WAS  INCOMING  TIMER  SPECIFIED? 
BR  IF  NO 
;  UPDATE  THE  INCOMING  TIMER 

INDCATE  TEMPLATE  WAS  MODIFIED 


WAS  OUTGOING  TIMER  SPECIFIED? 
BR  IF  NO 
UPDATE  THE  OUTGOING  TIMER 
;  INDCATE  TEMPLATE  WAS  MODIFIED 

WAS  RETRANSMIT  FACTOR  SPECIFIED? 
BR  IF  NO 
UPDATE  THE  RETRANSMIT  FACTOR 
;  INDCATE  TEMPLATE  WAS  MODIFIED 
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SYMBOL  CROSS  REFERENCE 
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CREF        04.00 


SYMBOL 

VALUE 

REFERENCES 

CHNERR 

000626 

R 

19-373 

#19-377 

20-396 

ERRCAL 

:z     ****** 

GX 

22-467 

ERHCHN 

=     ****** 

GX 

19-377 

ERRILN 

=     ****** 

GX 

16-313 

24-517 

ILLCAL 
ILLNUM 

001040 
000506 

R 
R 

22-448 

5-99 

9-175 

#22-467 
6-117 
9-177 

7-130 
10-192 

7-133 
10-194 

7-135 
11-210 

8-152 
11-212 

8-155 
12-228 

8-157 
12-230 

9-173 
13-246 

13-248 

14-264 

14-266 

15-283 

15-285 

15-287 

16-303 

16-307 

#16-313 

17-329 

17-331 

17-333 

19-364 

19-366 

19-368 

23-484 

23-486 

ILLNU2 

001136 

R 

24-509 

24-512 

#24-517 

25-533 

25-535 

REJECT 

000514 

R 

*16-314 

19-378 

22-468 

REJEC2 

001144 

R 

#24-518 

26-550 

27-574 

$BSZ 

-      ****** 

GX 

♦8-158 

SCALT 
SCATS 

-      ****** 
=      ****** 

GX 
GX 

»5-97 
4-72 

4-76 

21-414 

21-418 

22-459 

26-553 

26-558 

27-577 

27-582 

SCHNLS 

r     ****** 

GX 

♦18-348 

19-369 

20-393 

SCHNND 

=     ****** 

GX 

19-372 

SCLM 

=     ****** 

GX 

22-441 

SCLT 

-     ****** 

GX 

♦6-115 

SCLV 

r     ****** 

GX 

22-445 

$CUG 

-     ****** 

GX 

♦4-69 

♦4-73 

♦  4-77 

SDFD 

=     ****** 

GX 

♦7-136 

SOFW 

r     ****** 

GX 

♦9-176 

SDST 

=     ****** 

GX 

♦21-411 

♦21-415 

♦21-419 

SERROR 

-     ****** 

GX 

♦  16-313 

♦19-377 

♦22-467 

♦24-517 

SMC  I 

-     ****** 

GX 

♦15-286 

♦  16-310 

SMRE 

=     ****** 

GX 

♦11-213 

SMXC 

=     ****** 

GX 

♦  10-195 

SMXR 

r     ****** 

GX 

•13-249 

SNNAM 

=     ****** 

GX 

♦27-578 

♦27-579 

♦27-583 

■jNUM 

=     ****** 

G.X 

♦  17-332 

SOBJ 

r     ****** 

GX 

♦25-536 

♦26-554 

♦26-555 

♦26-559 

SPRI 

=     ****** 

GX 

♦23-487 

SRET 

=     ****** 

GX 

♦12-231 

SRST 

=     ****** 

GX 

♦14-267 

SSUBI 

=     ****** 

GX 

24-503 

$SUB2 

3     ****** 

GX 

♦24-504 

24-507 

.MOCAT 

000054 

R6 

#5-92 

.MOCLM 

000736 

PG 

#22-440 

.MOCLT 

000104 

RG 

#6-110 

.MOCLV 

000744 

RG 

#22-444 

.MOCNN 

000560 

RG 

#19-362 

.MOCPN 

000636 

RG 

#20-392 

.MOCUG 

000000 

RG 

#4-68 

.MODFD 

000134 

RG 

#7-128 

.MODFW 

000224 

RG 

#9-171 

.MODST 

000660 

RG 

#21-410 

.M0DS1 

001074 

RG 

#24-502 

.MQDS2 

001110 

RG 

#24-506 

.MOINC 

000552 

RG 

#18-347 

.MOM CI 

000450 

RG 

#16-301 

.MOMCL 

000254 

RG 

#10-190 
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Table  of  contents 

^-   55    .PRNAM  -  PROCESS  ^JAME  ACTION  ROUTINE 

5-  86    .PRNLT  -  STORE  NUMBER  OF  LINE  TABLES  SPECIFIED 

6-  106    .PRNCT  -  STORE  NUMBER  OF  CONTROLLER  TABLES  SPECIFIED 


L  2 


PRSREM  -  PARSE  ACTION  ROUTINES  MACRO  V05.03b  Saturday 
RNDCT  -  PARSE  DUMP  COUNT 


K    3 

29-Jun-85  05:19  Page  6-1 


000316 
000322 


206 
207 

208  000246 

209  000246 

210  000252 

211  000254 

212  000260 
215  000262 

214  000266 

215  000272 

216  000302 

217  000306 
218 

219  0U0310 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238  000324 

239  000324 

240  000332 

241  000334 

242  000342 

243  000344 

244  000350 
245 

246  000352 

247  000360 


016700  OOOOOOG 

001416 

005767  0000006 

001013 

062700  000017 

042700  000017 

010067  OOOOOOG 
000207 


.RNDCT:: 


MOV 

BEQ 

TST 

BNE 

ADD 

BIC 

ASR$ 

MOV 

RETURN 


012767  OOOOOOG  OOOOOOG  ILLNUM:  MOV 
REJ: 


062716  000002 
000207 


026727 
101007 
032767 
001003 
012702 
000467 

012767 
000756 


ADD 
RETURN 


.S6TTL 
I- 
**«  .RNSCI  - 

INPUT: 
OUTPUT: 


.RNSCI 


OOOOOOG  000014 
OOOOOOG  OOOOOOG 
OOOOOOG 


OOOOOOG  OOOOOOG  10$: 


CMP 
BHI 
BIT 
BNE 
MOV 
BR 

MOV 
8R 


(ROUNDED  UP  TO  THE  NEAREST  IK  BOUNDARV) 


.PNUMB.RO 
ILLNUM 
.PNUMH 
ILLNUM 
#1023. /64., 
#1023. /64., 
4.R0 
RO,$RNDCP 


RO 
RO 


#ERRILN,$ERROR 
#2,(SP) 


GRAB  IT 

ZERO  NOT  ALLOWED 

GOTTA  BE  A  16  BIT  VALUE 

ROUND  IT  UP  TO  THE  NEAREST  1  K 

ik'lK   UNITS 
SAVE  IT 


INVALID  NUMBER 
REJECT  THE  TRANSITION 


.RNSCI  -  STORE  SERVICE  CIRCUIT 

STORE  SERVICE  CIRCUIT 

.PSTPT  =  ADDRESS  OF  STRING 
.PSTCN  =  STRING  LENGTH 


SRNSCI 


SERVICE  CIRCUIT  (RAD50) 


.PSTCN, #4*3 

10$ 

#WC.CIR,$WILD 

10$ 

#$RNSCI,R2 

STR50 

#ERRCID,$ERR0R 
REJ 


LENGTH  OK  ? 

IF  HI,  NO  -  REJECT  TRANSITION 

WILD  CARD  CIRCUIT  ID  ? 

NO  I 

DESTINATION 

STORE  RAD50 
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56 
57 
58 
59 
60 
61 
62 
63 


LOCAL  MACROS 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENDM  PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


I.     ^. 
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Table  ot  contents 

ONS 

MODULE  X25-PROTOCOL 
DTE  DESCRIPTOR 

DTE  ELIGIBILITY  FOR  DELETION 
CLOSED  USER  GROUP 
MODULE  X25-SERVER 
MODULE  X29-SERVER 
X25-SERVER  COUNTER  TIMER 
X29-SERVER  COUNTER  TIMER 
MODULE  X25-ACCESS 
FOR  PSI  IN  SYSTEM 
ENTRY  FROM  QUEUE 
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4- 

53 

MACRO  DEFINITI 

s- 

78 

LOCAL  DATA 

6- 

108 

SPUXPR  -  PURGE 

1- 

151 

PURDTE  -  PURGE 

8- 

205 

CHKDTE  -  CHECK 

9- 

2'!.1 

PURCUG  -  PURGE 

in- 

282 

SPUXSR-  PURGE 

10- 

283 

$PUX9S-  PURGE 

n- 

378 

XSVCTM  -  PURGE 

40A 

X29CTM  -  PURGE 

13- 

A28 

SPUXPR  -  PURGE 

K- 

473 

TSTFSI  -  TEST 

15- 

491 

DEALC  -  REMOVE 

or  nr  .  in 
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A28 
429 
A30 
t,l^ 
432 
433 
434 
435 
436 
437 
438 
439 

440  001710 

441  001710 

442  001714 

443  001716 

444  001722 

445  001724 

446  001726 

447  001730 

448  001736 

449  001740 

450  001746 

451  001750 

452  001756 

453  001760 

454  001766 

455  001770 

456  001772 

457  001776 

458  002002 

459  002006 

460  002010 

461  002012 

462  002020 

463  002022 

464  002024 

465  002026 
466 

467 
468 

469  002030 

470  002040 
471 


.SBTTL  SPUXPR  -  PURGE  MODULE  X25-ACCESS 

*•*  -  SPUXPR  -  PURGE  MODULE  X25-PRCT0C0L 

INPUT: 

SOPRND  =  REQUEST  CODE 

OUTPUT: 

THE  REQUESTED  REMOTE  DESTINATIONS  ARE  PURGED. 


004767 
005004 
012702 
010205 
011202 
001431 
122762 
001371 
032767 
001010 
026762 
001361 
026762 
001355 
010604 
012/00 
012701 
004767 
010502 
000744 
032767 
001002 
005704 
001401 
000207 


000207 


000126 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 


SPUXAC: 


10$: 


OOOOOOG 
OOOOOOG 
000056 


20S: 


OOOOOOG  OOOOOOG  30$: 


40$: 


CALL 

CLR 

MOV 

MOV 

MOV 

BEQ 

CMPB 

BNE 

BIT 

BNE 

CMP 

BNE 

CMP 

BNE 

MOV 

MOV 

MOV 

CALL 

MOV 

BR 

BIT 

BNE 

TST 

BEQ 

RETURN 


ERRORS 


101$: 


ERROR$ 
RETURN 


TSTPSI 

R4 

#$TMLST,R2 

R2,R5 

(rJ),R2 

30$ 

#CS.RDT,C.STS(R 

10$ 

#XA.KND, SOPRND 

20$ 

SDST,RSDNAM(R2) 

10$ 

$DST+2,R$DNAM+2 

10$ 

SP,R4 

#R$LENX,RO 

#R$DLEN,R1 

DEALC 

R5,R2 

10§ 

#XA.KND,$OPRND 

40$ 

R4 

101$ 


*ERRNSD 


25 


MAKE  SURE  PSI  IN  SYSTEM 
NONE  FOUND  YET 
POINT  TO  LISTHEAD 
SAVE  PREVIOUS  ADDRESS 
NEXT  ADDRESS 
BR  IF  END  OF  LIST 
;  CHECK  FOR  REMOTE  DESTINATION 
BR  UNLESS  RDT 
CHECK  FOR  KNOWN  DTES 
BR  IF  UILDCARD 
CHECK  FIRST  PART  OF  NAME 
BR  IF  WRONG  RDT 
(R2)  ;  COMPARE  SECOND  WORD 
IF  NE,  KEEP  LOOKING 
INDICATE  WILDCARDS  OR  FOUND 
LENGTH  OF  RDT  BLOCK  IN  POOL.. 
LENGTH  OF  A  RDT  TEMPLATE 
DEALLOCATE  IT 
RESUME  SEARCH  CORRECTLY 
CONTINUE 
WILDCARD  ? 
BR  IF  YES 
ANYTHING  FOUND  ? 
IF  EQ,  NOPE 


NO  SUCH  DESTINATION 
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PURREM  -  PURGE  REMOTE  NODE 
PURREM  -  PURGE  REMOTE 


H4 
U5 
U6 
U7 
U8 
149 
150 
151 
152 
153 
154 
155 
156 

157  000006 

158  000006  012702 

159  000012  005067 
160 

161 
162 

163  000016  010205 

164  000020  011502 

165  000022  00U47 

166  000024  122762 

167  000032  001371 

168  000034  022767 

169  000042  001405 

170  000044  016204 

171  000050  026704 

172  000054  001360 
173 

174 
175 

176  000056  005267 

177  000062  032767 

178  000070  001416 

179  000072  004767 

180  000076  012701 

181  000102  012700 

182  000106  004767 

183  000112  162767 

184  000120  162767 

185  000126  004767 

186  000132  032767 

187  000140  001327 
188 

189  000142  005767 

190  000146  001004 

191  000150     032767 

192  000156  001401 

193  000160  000207 
194 

195 
196 

197  000162 

198  000172  000207 
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.SBTTL  PURREM  -  PURGE  REMOTE 
•*♦  -  PURREM  -  PURGE  REMOTE 
INPUT 


SNODAD  =  THE  REMOTE  NODE  ADDRESS 
SWILD  =  WILD  CARD  SPECIFICATIONS 


OUTPUT; 


TEMPLATE  IS  DELETED 


OOOOOOG 
177762 


SPUREM: : 


MOV 
CLR 


#$TMLST,R2 
SUCC 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000004G 
OOOOOOG 


SEARCH  FOR  THE  REMOTE  TEMPLATE 

iO$:    MOV  R2,R5 

15$:    MOV  (R5),R2 

BED  30$  , 

CMP8  *CS.REM,C.STS(R25 

BNE  10$ 

CMP  *WC.N0D,$WILD 

BEQ  20$ 

MOV  C.PRM+4(R2),R4 

CMP  $N0DAD,R4 

BNE  10$ 


DELETE  TEMPLATE  FROM  LIST 


177716 

OOOOOOG  OOOOOOG 

000612 

000012 

OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000042 

OOOOOOG  OOOOOOG 


J0$: 


25$: 


INC 

BIT 

BEQ 

CALL 

MOV 

MOV 

CALL 

SUB 

SUB 

CALL 

BIT 

BNE 


SUCC 

#RN.NAM,$OPRND 

25$ 

QREM 

#REMLEN,R1 

*$XXAVL,RO 

SRLSF 

#R.LENX,$BYTMN 

#R.LENX,$BYTXT 

PURDLL 

#WC.NOD,$WILD 

15$ 


177632         30$ 
OOOOOOG  OOOOOOG 

40$ 

ERROR  CONDITIONS 


TST 
BNE 
BIT 
BEQ 
RETURN 


SUCC 

40$ 

*WC.N0D,$WILD 

101$ 


101$: 


ERROR$  *ERRNOD 
RETURN 


GET  START  OF  TEMPLATES 
SUCCESS  INDICATOR 


COPY  CURRENT  TEMPLATE  ADDRESS 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  LIST 

;  IS  THIS  A  REMOTE  TEMPLATE 

IF  NE,  NO  ..  KEEP  LOOKING 

PURGE  ALL  REMOTES  ? 

IF  EQ,  YES 

SAVE  NODE  ADDRESS 

IS  THE  THE  RIGHT  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 


REMEMBER  SUCCESS 

PURGE  NAME/ALL  ? 

IF  EQ,  LEAVE  REMOTE  BLOCK  INTACT 

UNLINK  TEMPLATE  FROM  CHAIN 

GET  LENGTH  OF  A  REMOTE  TEMPLATE 

GET  THE  BUFFER  LISTHEAD  ADDRESS 

RELEASE  CORE  BLOCK 

ADJUST  MINIMUM  POOL  BYTE  EXTENSION 

AND  CURRENT  BYTE  EXTENSION  VALUE 

PURGE  DLL  COMPONENTS 

PURGE  ALL  REMOTES  ? 

IF  NE,  YES 

ANY  TEMPLATES  FOUND  ? 
IF  NE,  YES  ..  OKAY 
WAS  THIS  FOR  ALL  NODES  ? 
IF  EQ,  NO  ..  ERROR 


NO  REMOTE  TEMPLATE  FOUND 


MATDn      V/AQ      n7k      Cti»-i, 


M-oa 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 

:2 

13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
21^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE 
.IDENT 


SETBUF  -  SET  BUFFER  PARAMETERS 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SETUP  BUFFER  DEFINITION 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-IIM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-IIM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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SSECNT  -  SET  CONTROLLER  PARAMETERS 


16  0002A2 
]by   000250 

170  000252 

171  000260 

172  000262 

173  000272 
17A  00027^ 

175  000302 

176  000306 
177 

178  000310 

179  000312 

180  0003U 
181 

182 
183 

184  000316 

185  000326 

186  000330 
187 


026727  OOOOOOG  OOOOOA 

103A04 

026727  OOOOOOG  000007 


10U05 

000405 
016765 


004767  000024 
000676 

005701 
001401 
000207 


000261 
000207 


50$ 

OOOOOOG  000012  55$ 

60$ 


65$ 


CMP  $PRI,#4 

BLO  50$ 

CMP  $PR1,#7 

BLOS  55$ 

ERROR$  *ERRPRI 

BR  60$ 

MOV  $PRI,C.PRI(R5) 

CALL  UPDDDM 

BR  25$ 


TST 
BEQ 
RETURN 


R1 
70$ 


ERROR  CONDITIONS 


5'0$: 


ERROR$  *ERRLIS 

SEC 

RETURN 
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CHACK  AGAINST  MINIMUM  PRIORITY 

IF  LO,  ERROR 

CHECH  AGAINST  MAXIMUM  PRIORITY 

IF  LOS,  YES  ..  STORE  IT 

INVALID  PRIORITY 

AND  LOOK  FOR  MORE  UORK 

ELSE,  UPDATE  THE  PRIORITY 

UPDATE  THE  DDM  PRIORITY 

LOOK  FOR  MORE  WORK 

SUCCESS  ? 
IF  EQ,  NO 


LINE  NOT  IN  SYSTEM 
SET  CARRY 
AND  LEAVE 


t  9 

ccTriiT    _   ccT    rnkiTonii  CD   nDTrnM<;   wArpn   wf)'^   CiXh,    "isfiirrlsv   ?9-.lijn-85    0^^.2^      Paae   6 


SETCUG 
Symbol 


-  SET 
table 


CLOSED  USER  GROUP 


CS.CHN= 

...•«.  GX 

C$ULEN=  ••♦••♦  GX 

CS.CUG-- 

•♦•«••  GX 

C$UNAM=  **♦»»»  GX 

CS.DTE= 

«•••♦«  GX 

C.STS  =  «*•♦••  GX 

CS.FLG= 

••••♦•  GX 

D$TADR:  ♦»♦♦••  GX 

rs.pvc= 

.».♦..  GX 

ERRALL=  *«•*»»  GX 

CU$B1L= 

......  GX 

ERRDTE  000041R 

C$UCUG= 

......  GX 

ERRNSD  OOOOOOR 

C$UFLG= 

*•♦•••  GX 

.  ABS. 

000000 

noo 

(RW,I,GBL,ABS,OVR) 

00065A 

001 

(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

K  10 

MACRO  V05.05b  Saturday  29-Jun-85  05:21 


ERRNUM  000100R 

EX$ERR=  000002 

G$LENX=  ♦•***♦  GX 

XP.BIL=  ******  GX 

XP.DTA=  ******  GX 

XP.KND=  ******  GX 

XP.KNG=  ******  GX 
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XP.NUM= 

** t *** 

GX 

$OPRND= 

******  GX 

1BYTMN= 

****** 

GX 

$RLBF  = 

******  GX 

;bytxt= 

****** 

GX 

$RQBF  = 

******  GX 

iCFERR= 

****** 

GX 

SSECUG 

OOOUJRG 

iCUG  = 

****** 

GX 

$SWICH= 

******  GX 

■DTE  = 

****** 

GX 

$TMLST= 

******  GX 

$NUM  = 

****** 

GX 

$XXAVL= 

******  GX 

•♦  Assembler  statistics 


Work   file  reads:  0 

Work  tile  writes:  0 

Size  of  work  file:  84A5  Words  (  33  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-IIM/PLUS 


SY:SETCUr.V2![°32?°34]SETCUG/CR/-SP=SY:[1,1]RSXMC|v|.SML/ML,ri30,110]NETL  IB/ML,  [1 32, 10]SETCUG 


roPiTcri  nv  Maren  nw  PQ-iiiNJ-RS  AT  05:21 
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L  10 


SETDTE 
SETCHN 


K  11 

SET  LOCAL  DTE  PARAMETE  MACRO  V05.O3b  Saturday  29-Jun-85  05:21 
CREATE  CHANNEL  LIST 


321  001050 

322 

323  001052 

32A  00105A 

325 


0007AO 

012605 
000207 


60$: 


BR 

MOV 
RETURN 


10$ 
(SP)' 


,R5 
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;  CONTINUE 
;  RESTORE  R5 
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SSELOG  -  SET  LOGGING  PARAMETERS 


201  000400 

202  OOO'iO'i 

203  OOO^ilO 
20*;  000412 

205  000416 

206  C00422 

207  000426 

208  000432 

209  000440 

210  000442 

211  000446 

212  000450 

213  000452 

214  000456 

215  000460 

216  000470 

217  000472 

218  000476 

219  000500 

220  000502 

221  000510 

222  000512 

223  000520 

224  000522 

225  000526 
226 

227 
228 

229  000530 

230  000536 

231  000544 

232  000552 

233  000560 
234 

235 
236 

237  000562 

238  000566 

239  000572 

240  000576 

241  000600 

242  000610 

243  000612 

244  000620 

245  000626 

246  000632 

247  000640 

248  000646 

249  000654 

250  000662 

251  000666 

252  000672 

253  000700 

254  000706 

255  000714 

256  000716 

257  000724 


012704 
012467 
100546 
012467 
012467 
012467 
012467 
032767 
001404 
012703 
012305 
001522 
004767 
103005 

000516 
012700 
011000 
001430 
122760 
001372 
026760 
001366 
020560 
001363 


056760 
056760 
056760 
056760 
000452 


OOOOOOG 
OOOOOOG 


OOOOOOG 
000002G 
000004G 
000006G 
OOOOOOG  OOOOOOG  80$: 

000000' 

90$: 

000316        100$: 

103$: 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  000004 
000016 


OOOOOOG  000006 

000002G  000010 

000004G  000012 

000006G  000014 


MOV  #$KNEVT,R4 

70$:    MOV  (R4)+,$CLASS 

BMI  150$ 

MOV  (R4)+,$EVENTtO 

MOV  (R4)+,$EVENT+2 

MOV  (R4)*,$EVENTt4 

MOV  (R4)+,$EVENT+6 

BIT  #WC.L0G,$W1LD 

BEQ  100$ 

MOV  *SNKT8L,R3 

MOV  (R3)+,R5 

BEQ  145$ 

CALL  PROEVT 

BCC  105$ 

ERRORS  *ERREVT 

BR  150$ 

105$:   MOV  #$TMLST,RO 

110$:   MOV  (RO),RO 

BEQ  120$ 

CMPB  #CS.EVT,C.STS(RO) 

BNE  110$ 

CMP  $CLASS,C.CLS(RO) 

BNE  110$ 

CMP  R5,C.SNK(R0) 

BNE  110$ 

FOUND  EVENT  DEFINITION 

BIS  $EVENT+0,C.EVT+0(RO) 

BIS  $EVENT+2,C.EVT+2(R0) 

BIS  $EVENTt4,C.EVT+4(R0) 

BIS  $EVENT*-6,C.EVT+6(R0) 

BR  140$ 

CREATE  A  NEW  TEMPLATE 


012700 
012701 
004767 
103005 

000446 
012760 
016760 
010560 
016760 
016760 
016760 
016760 
004767 
004767 
062767 
062767 
032767 
001254 
032767 
001227 


OOOOOOG 

000020 

OOOOOOG 


120$: 


OOOOOOG  130$: 
000004 

000006 
000010 
000012 
000014 


OOOOOOG 
OOOOOOG 
OOOOOOG  140$: 


OOOOOOG 

OOOOOOG 

000016 

OOOOOOG 

000002G 

000004G 

000006G 

000042 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


OOOOOOG  OOOOOOG  145! 


MOV  #$XXAVL,RO 

MOV  *C.LEN,R1 

CALL  $RQBF 

BCC  130$ 

ERRORS  #ERRBUF 

BR  1 50$ 

MOV  #CS.EVT,C.STS(RO) 

MOV  $CLASS,C.CLS(RO) 

MOV  R5,C.SNK(R0) 

MOV  $EVENT+0,C.EVT+0(RO) 

MOV  $EVENT+2,C.EVT+2(R0) 

MOV  $EVENTt4,C.EVT+4(R0) 

MOV  SEVENT+6,C.EVT+6(R0) 

CALL  FINEVT 

CALL  SQINSN 

ADD  #F.LENX,$BYTMN 

ADD  *F.LENX,$BYTXT 

BIT  *WC.LOG,$WILD 

BNE  90S 

BIT  *0M.KEV,$0PRND 

BNE  70$ 


POINT  TO  KNOWN  EVENTS  TABLE 
GET  EVENT  CLASS  TO  PROCESS 
BR  IF  END  OF  TABLE 
GET  EVENT  MASKS 


KNOWN  LOGGING  SPECIFIED? 

BR  IF  NO 

POINT  TO  SINK  TYPE  TABLE 

GET  SINK  TYPE 

BR  IF  END  OF  TABLE 

PROCESS  THE  EVENT 

BR  IF  VALID  EVENT 

DISPLAY  ERROR  MESSAGE 

AND  EXIT 

GET  START  OF  TEMPLATES 

GET  NEXT  TEMPLATE 

BR  IF  NOT  IN  LIST  -  CREATE  NEW  ENTRY 

IS  THIS  AN  EVENT  TEMPLATE? 

BR  IF  NO 

IS  THIS  THE  CORRECT  TEMPLATE? 

BR  IF  NO 

IS  THIS  THE  CORRECT  TEMPLATE? 

BR  IF  NO 


SET  THE  EVENT  MASKS 


POINT  AT  END  OF  TASK  LISTHEAD 

GET  LENGTH  OF  AN  OBJECT  TEMPLATE 

TRY  TO  ALLOCATE  A  TEMPLATE 

BR  IF  SUCCESSFUL 

PRINT  ALLOCATION  FAILURE  MESSAGE 

AND  EXIT 

INDICATE  EVENT  TEMPLATE 

STORE  EVENT  CLASS 

STORE  SINK  TYPE 

STORE  EVENT  MASKS 


FIND  PLACE  FOR  TEMPLATE 
INSERT  ENTRY  INTO  QUEUE 
UPDATE  BYTE  AREA  MINIMUM 
UPDATE  CURRENT  BYTE  EXTENSION 
KNOWN  LOGGING  SPECIFIED? 
BR  IF  YES 

KNOWN  EVENTS  SPECIFIED? 
BR  IF  YES 


CFT  I  nr.r,  Twr, 
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SETMOD 
tSEXSV- 


-  DEFINE   MODULE     MACRO  V05.03b  Monday  01-Jul-85   17:29 
DEFINE   MODULE    X25-SERVER 
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109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 

125  00063A 

126  00063A 

127  0006^0 

128  0006'14 
129 

130  000646 

131  0006'46 

132  000652 

133  000656 

134  000662 

135  000670 

136  000672 
137 

138 
139 

140  000674 

141  000700 

142  000702 

143  000704 

144  000706 

145  000710 

146  000714 

147  000716 

148  000722 

149  000724 

150  000732 

151  000734 

152  000742 

153  000744 

154  000752 

155  000754 
156 

157 
158 

159  000756 

160  000764 

161  000766 

162  000772 
163 

164 
165 


012704 
012702 
000404 


012704 
012702 
004767 
032767 

001401 


012702 
005003 
010205 
011202 
001423 
004767 
103372 
020462 
001367 
032767 
001020 
026762 
001357 
026762 
001353 
000407 


032767 
001031 
004767 
103426 


.SBTTL 
.SBTTL 


SSEXSV- 
$SEX29- 


DEFINE  MODULE  X25-SERVER 
DEFINE  MODULE  X29-SERVER 


»»»  -  SSEXSV-  DEFINE  MODULE  X25-SERVER 
***  -  $SEX29-  DEFINE  MODULE  X29-SERVER 

INPUT: 

SOPRND  =  REQUEST  CODE 

$DST   =  PARSED  DESTINATION  NAME 

OUTPUT: 

DESTINATION  DESCRIPTORS  UPDATED 


.ENA8L  LS8 


115443 
001714' 


SSEXSV:: 


115447 

002054' 

002106 

OOOOOOC  OOOOOOG 


SSEX29: 


10$: 


MOV 
MOV 
BR 


MOV 

MOV 

CALL 

BIT 

BEQ 

CALLR 


#<*RX25>,R4 

#XSVCHA,R2 

10$ 


#<''RX29>,R4 

#X29CHA,R2 

TSTPSI 

#XS.CTM!XS.M' 

20$ 

(R2) 


ONLY  X25  DESTINATIONS 

IF  COUNTER  TIMER  OR  MAX  CIRCUITS 

JOIN  COMMON  CODE 


ONLY  X29  DESTINATIONS 
IN  CASE  COUNTER  TIMER  OR  MAX  CIRCUITS 
MAKE  SURE  THIS  IS  A  PSI  SrSTEM 
,$OPRND  ;  IS  THIS  CHARACTERISTICS  ? 
IF  EQ,  NO 
ELSE  DISPATCH  TO  ROUTINE 


LOOK  FOR  DESTINATION  DESCRIPTOR 


OOOOOOG 

001230 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 


J0$: 
30$: 


MOV 

CLR 

MOV 

MOV 

BEQ 

CALL 

BCC 

CMP 

BNE 

BIT 

BNE 

CMP 

BNE 

CMP 

BNE 

BR 


#$PSIPT,R2 

R3 

R2,R5 

(rJ),R2 

40$ 

CHKDST 

30$ 

R4,D$STYP(R2) 

30$ 

#XS.KND, SOPRND 

50$ 

SDST,D$SNAM(R2) 

30$ 

$DST+2,DSSNAM+2 

30$ 

50$ 


DESTINATION  NOT  FOUND 


OOOOOOG  OOOOOOG  40$ 
001254 


BIT 
BNE 
CALL 
BCS 


ffXS.KND, SOPRND 

60$ 

ALCDST 

60$ 


POINT  TO  LJSTHEAD 
INITIALLY,  NO  LINK  ADDRESS 
SAVE  PREVIOUS  ADDRESS 
TRAVERSE  LIST 
BR  IF  END  OF  LIST 
CHECK  FOR  DESTINATION  TEMPLATE 
BR  IF  NOT  DESTINATION  BLOCK 
CHECK  DESTINATION  TYPE 
IF  NE,  WRONG  TYPE 
WILDCARD  DESTINATIONS  ? 
BR  JF  YES 

COMPARE  FIRST  WORD  OF  NAME 
BR  IF  WRONG  DESTINATION 
(R2)  ;  COMPARE  SECOND  PART  OF  NAME 
IF  NE,  KEEP  LOOKING 
FOUND  IT 


WILDCARD  OPERATION  ? 

IF  NE,  YES  -  DONE 

ALLOCATE  A  DESTINATION  TEMPLATE 

IF  CS,  ERROR 


UPDATE  PARAMETERS 
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SETMOD  - 
ISTPSI  - 

572 
5?3 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
58A 
585 
586 
587 
588 


DEflNE  MODULE  MACRO  V05.05b  Monday  01-Jul-85  17:29  Page 
TE5T  fOR  PSl  IN  SYSTEM 


']\ 


.SBITL   TSTPSl  -  TEST  EOR  PSI  IN  SYSTEM 
'*•  TSTPSl  -  TEST  EOR  PSI  IN  SYSTEM 
INPUTS       SPSIPT  =  POINTER  TO  PSNSDE  TEMPLATE. 
OUTPUT 


IE  NO  PSI  SUPPORT,  ISSUES  ERROR  MESSAGE 
AND  RETURNS  TO  CALLER'S  CALLER. 


002770 

002770  005''67  OOOOOOG 

00277A  001005 

002776 

003006  005726 

003010  000207 


TSTPSl; 


10$: 


TST  $PSIPT 

BNE  10$ 

ERR0R$  *ERRPSI 

TST  (SP)+ 
RETURN 


IS  THERE  PSI  SUPPORT  ? 
IF  NE,  YES 

ERROR  -  NO  PSI  SUPPORT 
NO  MORE  WORK  HERE 


L  U 

SETMOD  -  DEFINE  MODULE  MACRO  V05.03b  Monday  01-JuI-85  17:29  Page  16 
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$SENOD   -   SET   NODE   PARAMETERS 


195  000262 

19A  000270 

195 

196 

197 

198  000272 

199  000502 


056760 
000207 

OOOOOOG 

000054 

^5$:    BIS     $HOSr,C 
A0$:    RETURN 

;  ERROR  CONDITIONS 

000207 

101$:   ERRORS  #ERRNOD 
RETURN 

HOS(RO) 


ELSE,    STORE   NEW  HOST 
RETURN   TO  CALLER 


NO  NODE    TEMPLATE 
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SETNSP  -  SET  NSP  PARAMETERS 
$SENSP  -  SET  NSP  PARAMETERS 


MACRO  VO5.03b  Saturday  29-Jur-85  05;?2  Page  5-1 


162  000356 

163  000364 
164 

165 
166 

167  000366 

168  000372 

169  000374 

170  000376 

171  000404 

172  000406 

173  000414 
174 

175 
176 

177  000416 

178  000424 

179  000426 

180  000434 

181  000442 

182  000450 

183  000452 
184 

185 
186 

187  000460 

188  000466 

189  000470 

190  000476 
191 

192  000504 

193 

194 

195 

196  000506 

197  000516 

198  000:20 

199  000530 

200  000532 

201  000542 

202  000544 
203 

204 


032767  OOOOOOG 
001435 


OOOOOOG  70$: 


BIT 
BEO 


#OE.VFY,$OPRND 
90$ 


WAS  THE  VERIFICATION  STATE  SPECIFIED 
If  EQ,  NO  ..  LEAVE 


012705  OOOOOOG 

011505 

001451 

122765  OOOOOOG 

0013^2 

022765  051516 

001366 


SEARCH  FOR  NSP  FEATURES  DEFINITION 
80$ 


OOOOOOG 
OOOOOOG 


MOV 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BNE 


#$TMLST,R5 

(R5),R5 

120$  , 

#CS.FEA,C.STS(R5) 

80$ 

*"NS,C.PRM(R5) 

80$ 


PC, NT  AT  START  OF  TEMPLATES 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  LIST 

;  IS  THIS  A  FEATURES  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

IS  THIS  THE  NSP  FEATURES  TEMPLATE 

IF  NE,  NO  ..  KEEP  LOOKING 


032765 
001442 
052765 
042765 
032767 
001403 
052765 


032767 
001406 
052764 
016764 

000416 


000411 

000404 

012605 
000207 

000001 


000001  000002G 


OOOOOOG 

100000 

OOOOOOG 


OOOOOOG 
000006G 
OOOOOOG 


100000  000006G 


CHECK  IF  VERIFICATION  EXIST: 

BIT  #NF.ACC,C.PRMt2(R5)  ;  DOES  THIS  SYSTEM  HAVE  ACCESS  VERIFICATION? 

BEQ  130$  ;  IF  EQ,  NO  ..  TELL  USER 

BIS  *CS.«OD,C.STS(R55  ;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

BIC  #NF$ACC,C.PRMt6(R5)  ;  ASSUME  USER  DOESN'T  WANT  ACCESS  VERIFICATION 

BIT  #SW.VFY,$SWICH  ;  DOES  THE  USER  WANT  ACCESS  VERIFICATION  ? 

BEQ  90$  ;  IF  EQ,  NO 

BIS  #NF$ACC,C.PRM+6(R5)  ;  ENFORCE  THE  ACCESS  VERIFICATION 

CHECK  FOR  ECL  SEGMENT  SIZE 


OOOOOOG  OOOOOOG  ')0%: 


OOOOOOG 
OOOOOOG 


OOOOOOG 
000004 


BIT 
BEQ 
BIS 
MOV 


#E2.SEG,$OPRN2  ;  SEGMENT  BUFFER  SIZE  SPECIFIED  7 
100$  ;  IF  EQ,  NO 

#CS.M0D,C.STS(R4)  ;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 
ELSE  STUFF  IT 


100$:   BR 

•  ERROR  CONDITIONS 

110$ 


$ESEG,C.SEG(R4) 
140$ 


120$: 

130$: 
140$: 


ERR0R$ 

BR 

ERROR$ 

BR 

ERROR$ 

MOV 

RETURN 

.END 


#ERRDEC 

140$ 

#ERRFEA 

140$ 

#ERRSUP 

(SP)+,R5 


RETURN  TO  CALLER 

NO  DEC  TEMPLATE 

NO  NSP  FEATURES  TEMPLATE 

ACCESS  VERIFICATION  NOT  SUPPORTED 
RESTORE  R5 
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PRSi'.UD     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:19 
SVMBOL  CROSS  REFERENCE 


L  1 

PAGE  2 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

.MOMCl 

00C420 

RG 

#15-281 

.MOMDA 

000170 

RG 

#8-150 

.HOMRE 

000300 

RG 

#11-208 

.MOMXR 

000350 

RG 

#13-244 

.MONNA 

001252 

RG 

#27-572 

.MONUM 

000522 

RG 

#17-327 

.MOOBJ 

001176 

RG 

#26-548 

.MOOBN 

001152 

RG 

#25-531 

.MOPRI 

001050 

RG 

#23-482 

.MORET 

000324 

RG 

#12-226 

.MORST 
PNUMB 

000374 

RG 
GX 

#14-262 
5-95 

5-97 

6-113 

6-115 

7-131 

8-153^ 

9-174 

9-176 

10-193 

10-195 

11-211 

11-213 

12-229 

12-231 

13-247 

13-249 

14-265 

14-267 

15-284 

15-286 

16-308 

17-330 

17-332 

19-365 

23-485 

23-487 

24-510 

PNUMH 

GX 

25-534 
5-93 

25-536 
6-111 

7-129 

8-151 

9-172 

10-191 

11-209 

12-227 

13-245 

14-263 

15-282 

16-302 

17-328 

19-363 

23-483 

24-508 

25-532 

.PSTCN 

-   ****** 

GX 

4-78 

21-420 

22-447 

22-449 

22-452 

26-540 

26-556 

27-573 

27-580 

.PSTP' 

=:   ****** 

GX 

4-70 

21-412 

22-457 

26-551 

27-575 

n   1 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
1^ 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
55 


.TITLE 
.IDENT 


PRSPRO  -  ACTION  ROUTINES  FOR  PROCESS 
/V05.00/ 


COPYRIGHT  (C)  197'5,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SC'TWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  ACTION  ROUTINES  FOR  PROCESS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NCV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S   V4.2 
DEL  let-llM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 


M    2 


L  3 
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RNHAR  -  STORE  HARDWARE  ADDRESS 


249 

250 

251 

252 

255 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265  000362 

266 

267 

268  000405 

269 

270 

271  000424 

272  000424 

273  000430 

274  000434 

275  000440 

276  000446 

277  000450 

278  000454 

279  000460 

280  000462 

281  000464 

282  000466 

283  000470 

284  000474 

285  000476 
286 

287  000500 

288  000504 

289  000506 

290  ■'   "10 
291 

292  Ot  :2 

293  000516 

294  000522 

295  000526 
296 

297 
298 
299 
300 
301 
302 
303 

304  000530 

305  000534 


000000 
OOOCOl 
177777 


021 
014 


016700 
012701 
012702 
126027 
001402 
012702 
122267 
001316 
105722 
001412 
003004 
122027 
001115 
000771 

004767 
103511 
112021 
000764 

012700 
012701 
012702 
000404 


016700 
016701 


.S8TTL   .RNHAR  -  STORE  HARDWARE  ADDRESS 
***   .RNHAR  -  STORE  REMOTE  NODE  HARDWARE  ADDRESS 
INPUTS:       TPARS  CONVENTIONS. 
OUTPUT:       SRNHAR  =  RAD50  HARDWARE  ADDRESS. 


=  0 
=  1 


-1 


END 

DIGIT 

HYPHEN 


001 
001 


001 
001 


Tl: 


.NLIST  BEX 

DNA  FORMAT:  XX-XX-XX-XX-XX-XX 
.BYTE   12. +5,   D,D,H,   D,D,H, 


,D, 


D,D,H,  D,D,H,   D,D,H,   D,D, 


OOOOOOG 
000000' 
000362- 
000002  000055 

000405- 
OOOOOOG 


000055 


000100 


000000' 

000014 

OOOOOOG 


RSX  FORMAT:  XXXXXXXXXXXX 

t2: 

.BYTE 

12.,    D,D,    D 

.EVEN 

.LIST 

BEX 

.RNHAR. 

MOV 

.PSTPT,RO      ; 

MOV 

#SCR,R1 

MOV 

*T1,R2 

CMP8 

2(fi0) ,#<'-> 

BEQ 

10$ 

MOV 

*T2,R2 

10$: 

CMPB 

(R2)+,.PSTCN 

8NE 

REJ 

20$: 

TST8 

(R2)  + 

BEQ 

40$ 

BGT 

30$ 

CMP8 

(R0)+,#<'-> 

BNE 

REJl          ; 

BR 

20$ 

30$: 

CALL 

HEX 

BCS 

REJl 

MOVB 

(R0)+,(R1)+ 

BR 

20$ 

40$: 

MOV 

#SCR,RO 

MOV 

#12.,R1 

MOV 

#$RNHAR,R2 

BR 

STR50X 

D,D, 


D,D, 


D,D, 


D,D, 


POINT  TO  PARSED  STRING 

POINT  TO  SCRATCH  BUFFER 

ASSUME  DNA  FORMAT 

HYPHEN  PRESENT  ? 

IF  EQ,  YES 

ELSE  PARSE  RSX  FORMAT 

CHECK  STRING  LENGTH 

REJECT  IF  NOT  EXACT  MATCH 

NEXT  CONTROL  BYTE 

IF  EQ,  END  OF  STRING 

IF  GT,  HEX  DIGIT  EXPECTED 

ELSE  HYPHEN  EXPECTED 

IF  NE,  ERROR 

ELSE  CONTINUE 

VALIDATE  HEX  DIGIT 
REJECT  INVALID  CHARACTERS 
COPY  CHARACTER 
CONTINUE 

POINT  TO  HEX  STRING 
LENGTH  OF  HEX  STRING 
POINT  TO  PARSED  DATA  AREA 


OOOOOOG 
OOOOOOG 


STR50  =  STORE  EXTENDED  RAD50  STRING 

RO  =  SOURCE 

Rl  =  SOURCE  LENGTH 

R2  =  DESTINATION 


STR50:   MOV 
MOV 


.PSTPT.RO 
.PSTCN.RI 


SOURCE 
LENGTH 


M  3 


PRSSY5 
.SYPAR 
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65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 

80  000000 

81  000000 

82  000004 

83  000010 

84  000012 

85  000016 

86  000022 

87  000024 

88  000030 

89  000034 

90  000042 

91  000044 

92  000050 


.SBTTL   .SYPAR  -  DYNAMIC  PARTITION  NAME  ACTION  ROUTINE 
»**  -  .SYPAR  -  DYNAMIC  PARTITION  NAME  ACTION  ROUTINE 
INPUT: 


.PSTPT  :  ADDRESS  OF  PARTITION  NAME 
.PSTCN  =  COUNT  OF  CHARS  IN  PARTITION  NAME 


OUTPUT 


SPARNA  =  RAD50  PARTITION  NAME  (2  WORDS) 

R0,R1  =  DESTROYED 

THE  TRANSITION  IS  ACCEPTED  OR  REJECTED 


005067 
016700 
010701 
004767 
010167 
010701 
004767 
010167 
022767 
103002 
062716 
000207 


000002G 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
000002G 
000006 

000002 


.SYPAR: 


OOOOOOG 


10$: 


CLR 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

CMP 

BHIS 

ADD 

RETURN 


$PARNA+2 

. PSTPT, RO 

PCRI 

SCATS 

R1, SPARNA 

PC,R1 

SCATS 

R1,SPARNAt2 

#6, .PSTCN 

lOl 

#2,(SP) 


CLEAR  THE  2ND  HALF  OF  THE  PARTITION  NAME 

POINT  RO  AT  PARTITION  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PARTITION  NAME  TO  RAD50 

STORE  THE  PARTITION  NAME 

PERIODS  ALLOWED 

CONVERT  REST  OF  PARTITION  NAME  TO  RAD50 

STORE  SECOND  HALF  OF  PARTITION  NAME 

IS  THE  PARTITION  NAME  TOO  BIG  ? 

IF  HIS,  NO  -  OKAY 

ELSE,  REJECT  THE  TRANSITION 


n  A 


L  5 
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2 
3 
i. 
5 
6 
7 
8 
9 
10 

n 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  PURMOD  -  PURGE  MODULE 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 
CFE  -  PURGE  MODULE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  08-NOV-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLU5  Vl.1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


N  5 


PURMOD  - 
TSTPSl  - 

^75 
47A 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 


L  6 
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TEST  FOR  PSl  IN  SYSTEM 


.SBTTL  TSTPSl  -  TEST  FOR  PSI  IN  SYSTEM 

♦♦  TSTPSl  -  TEST  FOR  PSI  IN  SYSTEM 

INPUTS       SPSIPT  =  POINTER  TO  PSNSDF  TEMPLATE. 

OUTPUT       IF  NO  PSI  SUPPORT,  ISSUES  ERROR  MESSAGE 
AND  RETURNS  TO  CALLER'S  CALLER. 


002042 

002042  005^67  OOOOOOG 

002046  001005 

002050 

002060  005726 

002062  000207 


TSTPSl: 

TST  SPSIPT 

BNE  10$ 

ERRORS  #ERRPSI 

TST  (SP)+ 

10$:    RETURN 


IS  THERE  PSI  SUPPORT  ? 
IF  NE,  YES 

ERROR  -  NO  PSI  SUPPORT 
NO  MORE  WORK  HERE 


DC  nc  .  in 


n   6 


PURREM  -  PURGE  REMOTE  MODE 
PURDLL  -  PURGE  DLL  INFO 
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200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 

210  000174 

211  000176  012705  OOOOOOG 

212  000202  000402 
213 

2K  000204  011505 
215  000206  001505 
216 

217  000210  011502 

218  000212  001503 

219  000214  122762 

220  000222  001570 

221  000224  020462 

222  000230  001365 

223  000232  010267 

224  000236  011200 

225  000240  010067 

226  000244  122760 

227  000252  001065 
228 

229  000254  032767 

230  000262  001022 

231  000264  004767 

232  000270  004767 
23' 
234 

235 
236 

237  000274  016702  177502 

238  000300  032762  177776  000004 

239  000306  001045 

240  000310  016700  177470 

241  000314  022020 

242  000316  012701  000005 

243  000322  005720 

244  000324  001036 

245  000326  077103 
246 

247 
248 

249  000330  004767  000354 

250  000334  012701  000056 

251  000340  012700  OOOOOOG 

252  000344  004767  OOOOOOG 

253  000350  162767  OOOOOOG 

254  000356  162767  OOOOOOG 

255  000364  052767  OOOOOOC 

256  000372  004767  000124 


.SBTTL  PURDLL  -  PURGE  DLL  INFO 
PURDLL  -  PURGE  REMOTE  NODE  DLL  DATA 


INPUTS: 
R4 


=  NODE  ADDRESS 


OUTPUT: 

DOWNLINE  LOAD  TEMPLATES  AND  FILE  BLOCKS  ARE  PURGED. 


10$: 
15$: 


OOOOOOG  OOOOOOG 

000006 

177544 

177540 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000142 
000226 


PURDLL:  SAVRG 
MOV 
BR 

MOV 
BEO 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BNE 

MOV 

MOV 

MOV 

CMPB 

BNE 

BIT 
BNE 

CALL 
CALL 


R5 

#$TMLST,R5 

15$ 

(R5),R5 
30$ 

(R5),R2 

30$  ; 

#CS.SER,C.STS(R2) 

10$ 

R4,S$ADD(R2) 

lOi 

R2,SERPT 

(R2),R0 

RO.FILPT       , 

#CS.FIL,C.STS(RO) 

40$ 


SAVE  POSITION  IN  REMOTE  LIST  SCAN 

POINT  TO  TEMPLATE  LISTHEAD 

THIS  IS  THE  FIRST  POSSIBLE  UNLINK  POINT 

POINT  TO  NEXT  POTENTIAL  UNLINK  POINT 
IF  EQ,  DONE 

POINT  TO  NEXT  TEMPLATE 

IF  EQ,  DONE 

;  SER$DF  ? 

NO 

ADDRESS  OK  ? 

NO 

SAVE  SER$DF  POINTER 

SAVE  FIL$DF  POINTER 

TSANITY  CHECK 
TROUBLE 


#RN.NAM,$OPRND  ;  DELETING  THE  WHOLE  9  YARDS  ? 

20$  ;  YES 

PRGSER  ;  ELSE  JUST  PLUCK  BITS 

PRGFIL  ;  AND  PURGE  SELECTED  FILES 


IF  PARTIAL  DELETION  LEAVES  NULL  TEMPLATES,  DELETE 
THEM  AN  UPDATE  THE  POOL  ALLOCATION  ACCORDINGLY. 


MOV 
BIT 


BNE 

30$ 

MOV 

FILPT.RO 

CMP 

(RO)+,(RO)t 

MO'' 

#5.R1 

$:          TST 

(r6)  + 

BNE 

30$ 

SOB 

R1,17$ 

PURGE   NODE 

ALL 

SERPT,R2       ;  RECOVER  SER$DF  ADDRESS 
#»CSF.ADD,S$FLG{R2)  ;  FLAGS  REMAINING  " 


J0$: 


OOOOOOG 
OOOOOOG 
OOOOOOG 


CALL 

MOV 

MOV 

CALL 

SUB 

SUB 

BIS 

CALL 


YES  -  NOT  A  CANDIDATE  FOR  DELETION 

POINT  TO  FILE  BLOCK  POINTERS 

SKIP  LINK  WORD  AND  FLAG  WORD 

5  FILES 

POINTING  TO  A  FILE  NAME  BLOCK 

IF  NE,  YES  -  CAN'T  DELETE  THIS  ONE 

FALL  THRU  IF  BOTH  SER$DF,  FILSDF  ARE  NULL 


REMOVE  FROM  LIST 

LENGTH 

FREELISTHEAD 

RELEASE  CORE  BLOCK 

REDUCE  MINIMUM  POOL  BYTE  ALLOCATION 

..AND  CURRENT  VALUE 
#RN.SLOIRN.TLOIRN.LOD:RN.DIA!RN.DMP,$OPRND  ;  PURGE  ALL  FILES 
PRGFIL         ;  GO  TO  IT 


QREM 

#S$LEN,R1 

#$XXAVL,RO 

$RLBF 

#S.LENX,$BYTMN 

#S.LENX,$BYTXT 


M  7 

_QC  AC . Tn 
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56 

57 

58 

59 

60 

61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

91  000000 

92 

93 

94 

95 

96 

97  000000 

98  000002 
99 

100 
101 
102 
103 
104 

105  000000 

106  000002 

107  OOCOO^    002 

108  C00041     000 
109 

110 
111 
112 


'  **** 

■  LOCAL  MACROS 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 


MOV 
.ENDC 
CALL 
.ENDM 

■  **** 

':    MACRO  CALLS 

•  **** 

.MCALL 

CHADFS 
LOCAL  DATA 


TEXT.RO 

SCFER1 
EPRINT 


CHADFJ 


RDBSZ: 
DDM: 


.BLKU 
.BLKW 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


DEFINE  CHARACTERISTICS  WORDS  OFFSETS 


OLD  RD8  SIZE 

CURRENT  DDM  PROCESS  NAME 


ERROR  MESSAGES 

.ENABL  LC 
.NLIST  BEX 
EXSUAR  =  0 


103 
103 


106 
106 


ERR8UF 
ERRTHS 


EXSERR 
.ASCIZ 
.ASCIZ 
.EVEN 

.LIST 


<EXSERR>/CFE  —  No  buffer  definition/ 

<EX$WAR>/CFE  —  Minimum  receive  buffer  ualue  changed  to  sD/ 

BEa 


AMTTrnr   MArDO  wnC  n7k  C^Vur-^av,  50-l.ln-R'^  0^-50   Pane  L-^ 
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UPDDDM  -  UPDATE  THE  DDM  PRIORITY 
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189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 

201  000332 

202  000332 

203  000336 

204  000340 
205 

206  000342 

207  000344 

208  000346 

209  000354 

210  000356 

211  000362 

212  000364 

213  000370 
214 

215  000372 

216  000376 

217  000404 
218 

219 
220 


.SBTTL  UPDDDM  -  UPDATE  THE  DDM  PRIORITY 
•»  UPDDDM  -  UPDATE  THE  DDM  PRIORITY 
INPUTS 


RO 
R5 


ADDRESS  OF  DDM  TEMPLATE 
ADDRESS  OF  CONTROLLER  TEMPLATE 


OUTPUT 


THE  DDM  PRIORITY  IS  SET  TO  THAT  OF  THE  CONTROLLER 
WITH  THE  HIGHEST  PRIORITY. 


004267 
010001 
005002 

011101 
001412 
122761 
001006 
026102 
003767 
016102 
000764 

010260 
052760 
000207 


000001 


OOOuOOG 


UPDDDM: 


10$: 


OOOOOOG  OOOOOOG 

000012 

000012 


000004G        20$; 
OOOOOOG  OOOOOOG 


JSR 
MOV 
CLR 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BLE 

MOV 

BR 

MOV 
BIS 
RETURN 


.END 


R2,$SAVVR 

RO.Rl 

R2 


SAVE  VOLATILE  REGISTERS 
COPY  DDM  POINTER 
NO  PRIORITY,  YET 


(R1),R1        ;  NEXT  TEMPLATE 

20$  ;  BR  IF  END  OF  LIST 

#CS.CNT,C.STS(Rl5  ;  IS  THIS  A  CONTROLLER  TEMPLATE 

20$  ;  IF  NE,  NO  -  DO  UPDATE 

C.PRI(R1),R2    ;  COMPARE  TO  MAXIMUM  PRIORITY 

10$  ;  IF  LE,  CONTINUE 

C.PRI(R1),R2    ;  ELSE  UPDATE  MAXIMUM 

10$  ;  CONTINUE 

R2,C.PRM+4(R0)   ;  ALWAYS  SET  DDM  PRIORITY 

#CS.MOD,C.STS(RO)  ;  AND  MARK  AS  CHANGED 


ecT     rnniTDni  i  CD    noTlnMC    MAfDn    \lC\^    n^h    Qaf 


M       0 

irHav    7Q-.li]n-RS    flS:?! 
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SETCUG  CREATED  BY     MACRO     ON  29-JUN-85  AT   05:21 

SYMBOL    CROSS   REFERENCE 


L  10 

PAGE   1 

CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CS.CHN 

_ 

GX 

6-185 

CS.CUG 

= 

****** 

GX 

6-119 

6-143 

6-189 

CS.DTE 

= 

****** 

GX 

6-164 

CS.FLG 

= 

****** 

GX 

6-155 

CS.PVC 

- 

****** 

GX 

6-187 

CUSBIL 

= 

****** 

GX 

6-154 

CSUCUG 

~ 

****** 

GX 

•6-151 

CSUFLG 

- 

****** 

GX 

*6-U6 

•6-154 

ClULEN 

- 

****** 

GX 

6-138 

6-203 

CtUNAM 

- 

****** 

GX 

6-123 

6-125 

•6-144 

•6-''45 

C.STS 

I 

****** 

GX 

6-119 

•6-143 

•6-155 

6-164 

DtTADR 

r 

****** 

GX 

6-167 

ERRALL 

= 

****** 

GX 

6-211 

ERRDTE 

000041 

R 

#5-93 

6-207 

ERRNSD 

000000 

R 

#5-92 

6-199 

ERRNUM 

000100 

R 

#5-94 

6-209 

EXSERR 

- 

00000? 

#5-91 

5-??. 

5-93 

5-94 

GSLENX 

:; 

****** 

GX 

6-U1 

6-142 

XP.BIL 

r 

****** 

GX 

6-152 

XP.DTA 

= 

****** 

GX 

6-133 

6-156 

XP.KND 

= 

****** 

GX 

6-121 

XP.KNG 

~ 

****** 

GX 

6-131 

XP.NUM 

- 

GX 

6-135 

6-149 

SBYTMN 

- 

****** 

GX 

•6-141 

SBYTXT 

- 

****** 

GX 

♦6-142 

tCFERR 

- 

****** 

GX 

6-199 

6-207 

6-209 

6-211 

SCUG 

- 

****** 

GX 

6-123 

6-125 

6-144 

6-145 

$DTE 

- 

****** 

GX 

6-168 

SNUM 

- 

****** 

GX 

6-151 

SOPRND 

= 

****** 

GX 

6-121 

6-131 

$RLBF 

r 

****** 

GX 

6-205 

SRQBF 

:; 

****** 

GX 

6-139 

SSECUG 

O0OU2 

RG 

#6-111 

SSWICH 

- 

****** 

GX 

6-133 

6-135 

6-149 

6-152 

STMLST 

- 

GX 

6-115 

6-161 

•6-181 

•6-193 

SXXAl'L 

- 

****** 

GX 

6-137 

6-202 

6-185 


6-187 


6-189 


6-156 


f-nCATCrv      Dv 


iM-ai^  4T  ni^oi 


PAT.F    ? 


M  10 


SETDTE 
ESTATE 


SET  LOCAL  DTE  PARAMETE  MACRO  V05.03b  Saturday  29-Jun-85 
CHANGE  DTE  STATE 


05:2 


21  Page  10 


327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3A0 

341 

3A2  001056 

3A3  001056 

3A4  001 06A 

345  001066 

346  001072 

347  001074 

348  001076 

349  001104 

350  001106 

351  001110 

352  001112 

353  001116 

354  001120 

355  001122 

356  001126 

357  001130 
358 

359 
360 
361 

362  00' 5  w 

363  00' i^. 

364  0011 o2 
3.3  001166 

366  001172 

367  001174 

368  001200 

369  001210 
370 

371  001212 

372  001216 

373  001224 

374  001226 
375 

376  001232 

377 

378 


032767 
001452 
016700 
011000 
001446 
126027 
001372 
020005 
001770 
005760 
001765 
010001 
062701 
010502 
062702 
000004 


.SBTTL  DSTATE  -  CHANGE  DTE  STATE 

♦♦-DSTATE  -  CHANGE  DTE  STATE 

INPUTS:      R5  =   DTE  TEMPLATE  ADDRESS 
SSWiCH  =  PARSED  OPTIONS 

OUTPUT:      THE  DTE  STATE  IS  CHANGED.  If 

THE  REQUESTED  STATE  IS  ON,  AND  THERE 

!S  ALREADY  ANOTHER  ACTIVE  DTE  ON  THE  SAME  LINE 

THAN  AN  ERROR  MESSAGE  IS  PRINTED. 

REGISTERS:    RO,  Rl  AND  R2  ARE  CLOBBERED. 


OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 


DSTATE: 


10$: 


010502 
062702 
012701 
012700 
112120 
004767 

000410 

005065 
052767 
001402 
005265 

000207 

000001 


OOOOOOG 
000052' 
OOOOOOG 

OOOOOOG 


OOOOOOG       20$: 
OOOOOOG  OOOOOOG 

OOOOOOG 

30$: 


BIT 

BEQ 

MOV 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BEQ 

TST 

BEO 

MOV 

ADD 

MOV 

ADD 

.REPT 

CMP 

BNE 

.ENDR 

MOV 

ADD 

MOV 

MOV 

MOVB 

CALL 

ERROR$ 

BR 

CLR 
BIT 
BEQ 
INC 

RETURN 

.END 


#XP.ST1,$SWICH 

20$ 

$TMLST,RO 

(R0),R0 

20$ 

C.STS(RO),#CS 

10$ 

R0,R5 

lOi 

D$TSTA(RO) 

10$ 

R0,R1 

#D$TLIN,R1 

R5,R2 

#D$TLIN,R2 

4 

(R1)  +  ,(R2)*- 

10$ 

R5,R2 

#D$TADR,R2 

#ERRLIN,R1 

#$BUFF,RO 

(R1)+,(R0)+ 

$EDMSG 

#$BUFF 

30$ 

D$TSTA(R5) 
#XP.ST1,$SWICH 
30$ 
D$TSTA(R5) 


DTE 


REQUESTED  STATE  =  ON  ? 

NO 

POINT  TO  TEMPLATE  LISTHEAD 

NEXT  TEMPLATE 

IF  EQ  END  OF  LIST 

;  IS  THIS  A  DTE  TEMPLATE  ? 

IF  NE,  NO 

SAME  AS  TARGET  DTE  ? 

YES-  DON'T  CARE 

STATE  =  ON  ? 

NO 

COPY  CURRENT  DTE  TEMPLATE  POINTER 

POINT  TO  LINE  ID 

COPY  TARGET  DTE  TEMPLATE  POINTER 

POINT  TO  LINE  ID 

COMPARE  LINE  IDS 

IF  NE,  DIFFERENT  LINES 

ELSE  POINT  TO  TEMPLATE 
POINT  TO  DTE  ADDRESS 
POINT  TO  ERROR  STRING 
POINT  TO  OUTPUT  BUFFER 
OUTPUT  SEVERITY  CODE 
FORMAT  THE  DTE  ADDRESS 
ERROR 
DONE 

ASSUME  OFF 

TEST  FOR  ON  STATE 

BR  IF  OFF 

ELSE,  STATE  =  ON 


M  11 
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SETLOG 
tSELOG 


-  SET  LOGGING  PARAMETER  MACRO  V05.03b  Saturday  29-Jjn-85 
SET  LOGGING  PARAMETERS 


l)3li 


1  Page  7-? 


258  0007P6  000207 


150$: 


RETURN 


M  12 
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SET MOD 
$SEX29- 


-  DEFINE   MODULE     MACRO  V05.03b  Monday  01-Jul-85   17:29 
DEFINE   MODULE   X29-SERVER 


L  13 

Page  6-1 


166  000774 

167  001000 

168  001002 

169  001 OOA 

170  001012 

171  0010U 

172  001020 
175  001022 
17A  00102'. 

175  001032 

176  001034 

177  001040 

178  001046 
179 

180  001050 

181 

182 

183 

184  001052 

185  001062 
186 

187 
188 


004767 
011202 
001423 
122762 
001017 
004767 
011202 
001413 
122762 
001007 
004767 
032767 
001315 

000207 


000066 

OOOOOOG  OOOOOOG 
000150 

OOOOOOG  OOOOOOG 

000342 

OOOOOOG  0000006 


50$; 


CALL 

MOV 

BED 

CMPB 

BNE 

CALL 

MOV 

BEQ 

CMPB 

BNE 

CALL 

BIT 

BNE 


60$:    RETURN 
ERRORS 


SETDST 

(R2),R2 

70$ 

#CS.DSA 

70$ 

SETDSA 

(R2),R2 

70$ 

#CS.DSC 

70$ 

SETDSC 

*XS.KND 

30$ 


SET  DST$DF  PARAMETERS 
POINT  TO  DSA$DF  TEMPLATE 
,  IF  EQ,  BIG  TROUBLE 
C.STS(R2i;  CHECK  TEMPLATE  TVPE 

IF  NE,  INTERNAL  PROBLEM 
SET  DSA$DF  PARAMETERS 
POINT  TO  DSC$DF 
,  IF  EQ,  ERROR 
r.STS(R2);  CHECK  TYPE 
;  IF  NE,  ERROR 
;  SET  DSC$DF  PARAMETERS 
,$OPRND  ;  KNOWN  DESTINATIONS  ? 
;  CONTINUE  I'  WILDCARDS 


000167  OOOOOOG 


?'0$: 


ERROR$ 
JMP 


#ERRCON 
.CONER 


INVALID  DESTINATION  SEQUENCE 
THIS  IS  SERIOUS 


.DSA8L  LS8 


<;FTMnn  -  dffinf  modi 
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SETMOD  -  DEflNE   MODULE      MACRO  V05.03b  Monday  01-Jul-85   17:29 
RQCB  -   REQUEST    CORE   BLOCH 


L  U 

Page  16 


5Sil 

592 

593 

59A 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604  003012 

605  003012 

004767  OOOOOOG 

606  003016 

105407 

607  003020 

010046 

608  003022 

010146 

609  003024 

105020 

610  003026 

005301 

611  003030 

003375 

612  003032 

012601 

613  003034 

012600 

6K  003036 

000207 

615 

616 

617 

000001 

.S8TTL  RQC8  -  REQUEST  CORE  BLOCK 

RQCB  -  REQUEST  CORE  BLOCK 

INPUTS:      RO  =  ADDRESS  OF  FREE  LISTHEAD 
R1  =  LENGTH  REQUESTED 

OUTPUT:  CARRY  SET:  ALLOCATION  FAILURE 
CARRY  CLEAR: 

RO  =  ADDRESS  OF  ZEROED  BLOCK 
Rl  =  ACTUAL  LENGTH  ALLOCATED 


RQCB: 


15$: 


20$: 


CALL 

BCS 

MOV 

MOV 

CLRB 

DEC 

BGT 

MOV 

MOV 

RETURN 


.END 


$RQ8F 

20$ 

RO,-(SP) 

R1,-(SP) 

(R0)  + 

Rl 

15$ 

(SPM,R1 

(SP)t,R0 


REQUEST  CORE  BLOCK 

IF  CS,  ALLOCATION  FAILURE 

PUSH  REGISTERS 

ZERO  OUT  THE  BLOCK 
POP  REGISTERS 
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SETNOD  -  SET  EXECUTOR  NODE  OPTl  MACRO  V05.03b  Saturday  29-Jun-85 
CHICADD  -  CHEC<  EXECUTOR  NODE 


W^ 


2     Page  6 


201 

.S8TTL 

CH<ADD  -  CHECK  EXECUTOR  ^ 

ODC 

202 
203 

•••  -  CHKADD 

-  CHECK  EXECUTOR  NODE  ADDRESS 

204 

205 

INPUTS: 

206 

INODAD 

=  EXECUTOR  NODE  ADDRESS 

20? 
208 

OUTPUTS: 

209 

C-BIT  = 

SUCCESS/FAILURE 

210 

211 
212 

213  000304 

214  000304 

~ 

004767 

OOOOOOG 

:hkadd: 

CALL 

$SAVAL 

SAVE  ALL  REGISTERS 

215  000310 

216 

217 

012700 

OOOOOOG 

MOV 

#$TMLST,RO 

GET  START  Of  TEMPLATES 

SEARCH  fOR  THE  ROUTING  TEMPLATE 

218 

219  000314 

011000 

l0$:    MOV 

(R0),RO 

GET  NEXT  TEMPLATE 

220  000316 

001414 

BEQ 

20$ 

IF  EQ,  END  OF  LIST  ..  THAT'S  OKAY 

221  000320 

122760 

OOOOOOG 

OOOOOOG 

CMP8 

#CS.ROU,C.STS(R0) 

ELSE,  IS  THIS  A  ROUTING  TEMPLATE 

222  000526 

001572 

BNE 

10$ 

IF  NE,  NO  ..  KEEP  LOOKING 

223  000330 

005760 

000004 

TST 

C.ADD(RO) 

IS  THIS  A  ROUTING  NODE? 

224  000354 

001405 

BEQ 

20$ 

BR  IF  NO 

225  000356 

026760 

OOOOOOG 

000004 

CMP 

$NODAD,C.ADD(R0) 

IS  THE  NODE  ADDRESS  IN  RANGE  ? 

226  000544 

000261 

SEC 

ASSUME  NOT 

227  000546 

005001 

BGT 

50$ 

IF  GT,  NO 

228  000550 

000241 

20$:    CLC 

ELSE,  INDICATE  SUCCESS 

229  000552 

000207 

30$;    RETURN 

n  15 
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SETNSP   -    SET    NSP  PARAMETERS 
Symbol    table 


CD.lEN= 

CL.LEN= 

CS.DEr= 

CS.FEA: 

CS.MOD= 

C.CTM 

r.DELf 

C.DELW 

C.DEV 

C.EXT 

C.FlG 

C.INAC 

t.lNCT 


000022 
000020 


000016 
000016 
000017 
000012 
000015 
000006 
OOOOU 
000012 


GX 
GX 
GX 


C.IPL 
C.LIN 
C.LKS 
C.LST 
C.NAM 
C.NCTD= 
C.NDC 
C.NLT 
C.NLTD: 
C.OUTT 
C.PRI 
.PRM 


C.RETF 


MACRO  V05.03b  Saturday  29-Jun-85 


000020 

000011 

000010 

000021 

000004 

000013 

000006 

000014 

000012 

000013 

000010 

»♦.»•»  GX 

000015 


WA 
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C.SEG 

000004 

NF 

ACC  = 

522291 

C.STS  = 

•*••«•  GX 

NF 

BCP= 

000046 
000200 

ERRDEC 

OOOOOOR 

NF 

END  = 

ERRFEA 

000030R 
000066R 

NF 

EVU 

28852? 

ERRSUP 

NF 

II  1  = 

000004 

EX$ERR= 

000002 

NF 

LV2  = 

000100 

E2.INA= 

•*•»••  GX 

NF 

SN  = 

000400 

E2.1NC= 

».♦»..  GX 

NF 

SMC  = 

8888?2 

E2.0UT= 

»*»*»»  GX 

NF 

SWP= 

000010 

E2.RET= 

•**♦•»  GX 

OE 

LNK= 

****** 

GX 

E2.SEG= 

•**•»»  cx 

OF 

NCO= 

GX 

NF$ACC= 

100000 

OE 

VFY= 

****** 

GX 

NF$E^T= 

O'.OOOO 

SW 

.VI  Y=: 

****** 

GX 

$CFERR= 

»*««**  GX 

$EINA  = 
$EINC  = 

******  GX 

******  GX 

$E0UT  = 

*.*..*  GX 

$ERET  = 

••**♦•  GX 

SESEG  = 

*.**..  GX 

$L1NKS= 

******  GX 

$NC0U  = 

•««•**  GX 

$0PRND= 

******  GX 

$0PRN2= 

****♦»  GX 

$SENSP 

000140RG 

SSWICHr 

******  GX 

$TMLST= 

**•**>  GX 

.  ABS.  000022 
000546 
Errors  detected: 


000 
001 

0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 


•«•   Assembler   statistics 

Work     tile     reads:  0 

Work      file   writes:  0 

Size  of   work    file:  9236  Words      (   37  Pages) 

Sii-e  of   core  cool:  14440  Words      (    "^5   Pages) 

Ooeratir.g     s/stem:  RSX-IIM/PIUS 

SvtsEfN5p!v2![l'32?l'34]SETNSP/CR/-SP=Sy:[l,1]RSXMCM.SML/ML,C130,110]NETLI8/ML,[132,10]SETNSP 


SETNSP 
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n  16 


M     1 


'PRSQBJ 


DPPPPPPD 

RPRRRRRR 

ssssssss 

000000 

B88BB8B8 

JJ 

ppppDPDD 

RRRRRRRR 

ssssssss 

000000 

BB8B8B36 

JJ 

PP         PP 

RR      RR 

S5 

00 

00 

BB     88 

JJ 

PP         PP 

RR      RR 

ss 

00 

00 

BB     BB 

JJ 

PP         PP 

RR      RR 

5S 

00 

00 

88     BB 

JJ 

PP         pp 

RR      RR 

SS 

00 

00 

BB     88 

JJ 

ppppppDD 

RRRRRRRR 

ssssss 

00 

00 

8BBBBB88 

JJ 

pppnpPPP 

RRRRRRRR 

ssssss 

00 

00 

BBBBBBBB 

JJ 

PP 

RR  RR 

ss 

00 

00 

BB     BB 

JJ     JJ 

PP 

RR   RR 

ss 

00 

00 

88     88 

JJ     JJ 

pp 

RR    RR 

ss 

00 

00 

BB     88 

JJ     JJ 

PP 

RR    RR 

ss 

00 

00 

BB     BB 

JJ     JJ 

PP 

RR      PR 

SSS53SSS 

000000 

88BB88B8 

JJJJJJ 

PP 

RR      ,iR 

ssssssss 

000000 

BBBBBBBB 

JJJJJJ 

LL 

ssssssss 

TTTTTl 

TTTT 

SSSSSSSS 

TTTTTl 

III! 

ss 

SS 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LI ILLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

M     1 


n  2 
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.PRNAM  -  PROCESS  NAME  ACTION  ROUTINE 


Page  ^i 


55 
56 
57 
58 
59 
60 
61 
62 
63 
6^. 
65 
66 
67 
63 
69 

70  000000 

71  000000 

72  000004 

73  000006 

74  000012 

75  000016 

76  000024 

77  000026 

78  000032 

79  000036 

80  000040 

81  000046 

82  000050 

83  000056 

84  000062 


.S8TTL   .PRNAM  -  PROCESS  NAME  ACTION  ROUIINE 

'♦**  -  .PRNAM  -  PROCESS  NAME  ACTION  ROUTINE 

INPUT: 

.PSTPT  =  ADDRESS  OF  PROCESS  NAME 
.PSTCN  =  COUNT  OF  CHARS  IN  PROCESS  NAME 

OUTPUT: 

SPRNAM  =  RAD50  PROCESS  NAME 

R0,R1  =  DESTROYED 

THE  TRANSITION  IS  ACCEPTED  OR  REJECTED 


016700 
010701 
004767 
010167 
022767 
103411 
012700 
004767 
103011 
012767 
000403 
012767 
062716 
000207 


OOOOOOG 

OOOOOOG 
OOOOOOG 
000003  OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  10$ 

000002        20$ 

30$ 


.PRNAM: 


MOV 

MOV 

CALL 

MOV 

CMP 

BLO 

MOV 

CALL 

BCC 

MOV 

BR 

MOV 

ADD 

RETURN 


. PSTPT, RO 
PCRI 
$CAT5 
R1,$PRNAM 
*3, .PSTCN 

loi 

*$TMLST,RO 

$FNPRO 

30$ 

#ERfiPRC,$ERR0R 

20$ 

#ERRPR0,$ERR0R 

#2,{SP) 


POINT  RO  AT  PROCESS  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  PROCESS  NAME  TO  RAD50 

STORE  THE  PROCESS  NAME 

IS  THE  PROCESS  NAME  TOO  BIG  ? 

IF  LO,  YES  ..  ERROR 

POINT  TO  START  OF  TEMPLATES 

TRY  TO  FIND  AT  LEAST  1  PROCESS 

IF  CC,  FOUND  ONE 

ELSE,  PROCESS  NOT  IN  SYSTEM 

AND  REJECT 

INVALID  PROCESS  ID 

ELSE,  REJECT  THE  TRANSITION 


N_  2. 


PRSREM  -  PARSE 

ACTION  ROUTINES  MACRO 

.RNHAR    'j!u'(E 

HARDWARE 

ADDRESS 

306  0005A0 

307  0005^2 

010203 

308  00054A 

060001 

309  0005A6 

010146 

310  000550 

111146 

311  000552 

112711 

000077 

312  000556 

004767 

0000006 

313  000562 

103402 

3U  00056A 

010123 

315  000566 

000773 

316  000570 

005701 

317  000572 

001401 

318  000574 

010123 

319  000576 

112636 

320  000600 

321  000602 

000207 

322 

323 

32A 

325 

326 

327 

328 
329 

330  00060A 

121027 

"^1060 

331  000610 

103412 

332  000612 

121027 

i-nr  ,71 

333  000616 

101406 

33A  000620 

121027 

000101 

335  00062A 

103404 

336  000626 

121027 

000106 

337  000632 

101001 

338  000634 

005727 

339  000636 

000261 

340  000640 

000207 

STR50X: 


10$: 


20$: 


30$: 


SAVRG 

MOV 

ADD 

MOV 

MOVB 

MOVB 

CALL 

BCS 

MOV 

BR 

TST 

BEQ 

MOV 

MOVB 

RESRG 

RETURN 


M  3 


R3 

R2,fi3 

R0,R1 

R1,-(SP) 

(R1),-(SP) 

#<'?>, (R1) 

.CAT5E 

20$ 

R1,(R3)+ 

lOi 

R1 

30$ 

R1,(R3)+ 

{SP)t,a(SP)+ 

R3 


SAVE  REGISTER 

POINT  TO  PARSED  DATA  AREA 

POINT  PAST  STRING 

SAVE  ADDRESS 

SAVE  CHARACTER 

INSERT  STOP  CHARACTER 

CONVERT  TO  RAD50  (EXTENDED  WITH  "-") 

IF  CS,  NO  DATA 

STORE  CONVERTED  VALUE 

IF  CC,  MORE 

ANY  FRACTIONAL  WORDS  ? 

IF  EQ,  NOPE 

ELSE  STORE  LAST  ONE 

RESTORE  TRAILING  CHARACTER 

RESTORE  REGISTER 


HEX  -  VALIDATE  HEX  DIGIT 


INPUT: 
OUTPUT: 


RO  =  ADDRESS  OF  HEX  DIGIT 
CARRY  BIT:  SUCCESS/FAILURE. 


HEX: 


10$: 
20$: 


CMPB 

BLO 

CMPB 

BLOS 

CMPB 

BLO 

CMPB 

BHI 

TST 

SEC 

RETURN 


(R0),*'0 

20$ 

(R0),#'9 

10$ 

(RO),#'A 

20$ 

(RO),#'F 

20$ 

(PCH 


DIGIT 

IF  LO,  NO 

REALLY  DIGIT  ? 

YES  -  OK 

HEX  DIGIT  ? 

IF  LO,  NO 

REALLY  HEX  DIGIT 

IF  HI,  ERROR 

SUCCESS 

FAILURE 


N  3 
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.SYPOL  -  POOL  NAME  ACTION  ROUTINE 
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94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 

109  000052 

110  000052 

111  000056 

112  000062 

113  000064 

114  000070 

115  000074 

116  000076 

117  000102 

118  000106 

119  000114 

120  000116 

121  000122 
122 


.SBTTL   .SYPOL  -  POOL  NAME  ACTION  ROUTINE 
»**  -  .SYPOL  -  POOL  NAME  ACTION  ROUTINE 
INPUT: 


.PSTPT  =  ADDRESS  OF  POOL  NAME 
.PSTCN  =  COUNT  OF  CHARS  IN  POOL  NAME 


OUTPUT 


SPOLNA  =  RAD50  POOL  NAME  (2  WORDS) 

RO.Rl  =  DESTROYED 

THE  TRANSITION  IS  ACCEPTED  OR  REJECTED 


005067 
016700 
010701 
004767 
010167 
010701 
004767 
010167 
022767 
103002 
062716 
000207 


000002G 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
000002G 
000006 

000002 


.SYPOL: 


OOOOOOG 


10$: 


CLR 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

CMP 

SHIS 

ADD 

RETURN 


$P0LNA+2 

. PSTPT, RO 

PC,R1 

SCATS 

Rl, SPOLNA 

PC,R1 

SCATS 

R1,$P0LNA+2 

#6, .PSTCN 

10$ 

#2,(SP) 


CLEAR  THE  SECOND  HALF  OF  THE  POOL  NAME 

POINT  RO  AT  POOL  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  POOL  NAME  TO  RAD50 

STORE  THE  POOL  NAME 

PERIODS  ALLOWED 

CONVERT  REST  OF  POOL  NAME  TO  RAD50 

STORE  SECOND  HALF  OF  pOOl  NAMF 

IS  THE  POOL  NAME  TOO  BIG  " 

IF  HIS,  NO  -  OKAY 

ELSE,  REJECT  THE  TRANSIVON 


N  A 


PURMOD  - 
MACRO  DE 

55 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 


M  5 

PURGE  MODULE   MACRO  V05.05b  Saturday  29-Jun-85  05:20  Page  4 
FINITIONS 

.SSTTL   MACRO  DEFINITIONS 

**** 

LOCAL  MACROS 
**** 


.MACRO  PRINT   TEXT 

MOV  TEXT.RO 

CALL  SPRINT 

.ENOM  PRINT 

.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MCALL  CALLR 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


N  5 


PURMOD 
DEALC    - 


-  PURGE 
REMO/F 


MODULE       MACRO  V05.03b   Saturday  ?9-Jun-85   05:20 
ENTRY   FROM  QUEUE 


N  6 

Page  15 


A91 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 

510  002064 

511  002064 

512  002070 

513  002072 

514  002074 

515  002076 

516  002102 

517  002106 

518  002110 

519  002112 

520  002116 
5."'  002122 

522  002126 

523  002130 
524 

525 


.SBTTL  DEALC  -  REMOVE  ENTRr  FROM  QUEUE 

»•*  -  DEALC  -  REMOVE  ENTRY  FROM  QUEUE 

INPUTS: 

R5  =  PREVIOUS  ENTRY  IN  QUEUE 

R2  =  ENTRY  TO  REMOVE 

R1  =  SIZE  OF  ENTRY 

RO  =^  SIZE  OF  ENTR  IN  POOL  BYTE  EXTENSION 

STMLST  =  QUEUE  LI3THEAD 

SXXAVL  =  FREE  LISTHEAD 

OUTPUTS: 

R5,R4,R3  ARE  PRESERVED 

R2  =  NEXT  NODE  IN  LIST  ^^^^   ,^^ 

ENTRY  IS  REMOVED  FROM  QUEUE  AND  RETURNED  TO  THE  FREE  LIST. 


032700  000003 

001402 

005200 

000773 

160067  OOOOOOG 

160067  OOOOOOG 

011215 

001002 

010567  000002G 

012700  OOOOOOG 

004767  OOOOOOG 

011502 

000207 

000001 


DEALC: 

1$: 

BIT 

BEQ 

INC 

BR 

5$: 

SUB 

l^y 

BNE 

MOV 

10$: 

MOV 

CALL 

MOV 

RETURN 
.END 


#3,R0 

5$ 

RO 

1$ 

RO,$BYTMN 

RO,$B/TXT 

(R2),(R5) 

10$ 

R5,$TMLST+2 

*$XXAVL,RO 

$RL6F 

(R5),R2 


HAVE  TO  ROUND  UP  TO  4  BYTE  BOUNDARY 

IF  EQ,  ALREADY  THERE 

ADD  A  BYTE 

TRY  AGAIN 

UPDATE  POOL  BYTE  MINIMUM 

UPDATE  ACTUAL  ALLOCATION 

CLOSE  UP  LIST 

If  NE,  NOT  LAST  IN  LIST 

SET  NEW  LAST  ENTRY 

POINT  TO  FREE  LIST 

RELEASE  CORE  BLOCK 

POINT  TO  NEW  NEXT  NODE 


N  6 

n IE 


PURREM  -  PURGE  REMOTE  NODE 
PURDLL  -  PURGE  DLL  INFO 


n  7 
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257  000376 

258  000402 

259  000406 

260  000412 

261  000416 
262 

263  000422 

264  000424 
265 

266  000426 

016702 
004767 
012701 
012700 
004767 

177402 
000302 
000016 

MOV 

CALL 

MOV 

MOV 

CALL 

F]LPT,R2 

QREM 

#F$LEN,R1 

#$XXAVL,RO 

$RLeF 

000207 

30$: 

RESRG 
RETURN 

R5 

000167 

OOOOOOG 

40$: 

JMP 

.CONER 

RECOVER  TEMPLATE  ADDRESS 
REMOVE  FROM  LIST 
FILSDF  LENGTH 
FREELISTHEAD 
RELEASE  CORE  BLOCK 

RESTORE  POINTER  TO  REMOTE  BLOCKS 
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122 
123 
12A 
125 


115 
lU 

115  000124 

116  0001 24 

117  000126 
11°  000130 

/  000132 

120  000134 

121  000136 
000140 
000142 
000144 

^_    000146 

126  000150 

127  000152 

128  000154 

129  000156 

130  000160 
131 

132 
133 
134 
135 
136 

137  000000 

138  000002 

139  000004 

140  000006 

141  000010 
K2  000012 

143  000014 

144  000016 

145  000020 
146 

147 
148 
149 

150  000000 

151  000002 

152  000004 

153  000006 

154  000010 

155  000012 

156  000162 


000000 


000062 
000113 
000156 
C00206 
000226 
000454 
001130 
002260 
003410 
003720 
004540 
007020 
011300 
016040 
022600 


000000 


000000 


DEFINE  THE  ASYNCHRONOUS  BAUD  RATE  TABLE 


ftATETB: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


50. 

75. 

110. 

134. 

150. 

300. 

600. 

1200. 

1800. 

2000. 

2400. 

3600. 

4800. 

7200. 

9600. 


BIT  SETTINGS 

0 

1 

2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17  -  EXTERNAL  CLOCK  (SYNC) 


DEFINE  THE  BUFFER  BUFFER  BLOCK 


C . CBNM 
C.CBSZ 
C . RBNM 
C.RBSZ 
C . SBNM 
C.SBSZ 
C.THSH 


.ASECT 
.=0 

.BLKW 
.8LKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 


DEFINE  THE  UNIT  TEMPLATE 


CUNT 
C.CWO 
C.CWl 
C.CSR 


.=0 

.8LKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.PSECT 


C.LNK 

C.STS 

CCB  NUMBER 

CCB  SIZE 

RDB  NUMBER 

RDB  SIZE 

SDB  NUMBER 

SDB  NUMBER 

RDB  THRESHOLD  VALUE 


C.LNK 

C.STS 

UNIT  NUMBER 

CHARACTERISTICS  WORD  0 

CHARACTERISTICS  WORD  1 

SECONDARY  CSR  ADDRESS 


lAC  n7k  C  - 


N  8 


M  9 

SETCNT  -  SET  CONTROLLER  OPTIONS  MACRO  V05.0^b  Saturday  29-Jun-85  05:21 
Symbol  table 


CS.CNTr 

CS.DDM= 

CS.MOD= 

C.CNT 

C.CSR 


00000^ 
000010 


C.LEN  =  000016 
C.PRI        000012 

ABS.  000016 
000A06 
Errors  detected: 


GX       CPRM  =  •♦•••*  GX 
GX       C.STS  =  »»•••♦  GX 
GX      C.URM   OOOOU 
C.VEC   000006 
ERRLIS=  ******  GX 
ERRPRl  OOOOOOR 
EX$ERR=  000002 

000   (RW,1,GBL,ABS,0VR) 
00^    (RU,1,LCL,REL,C0N) 


OL.CSR=  ***»•♦  GX 
OL.PRI=  ******  GX 


0L.URM= 
OL.VEC 
UPDDDM 
WC.CNT 


******  GX 
******  QX 
000332R 
******  GX 


WC.NAM=  ******  GX 
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$CFERR=  ******  GX 

$CNTNM=  ******  GX 

$CSR  =  ******  GX 

$DVNAM=  ******  GX 

$OPRND=  ******  GX 

$PRI  =  ******  GX 


$SAVVR=  **••*♦  GX 
SSECNT  000040RG 
$TMLST=  ******  GX 
$URM  =  ******  GX 
$VEC  =  ******  GX 
$WILD  =  ******  GX 


**•  Assembler  statistics 

Work      fi'.e     reads:  0 

Work      file   writes;  0 

Size  of   work    file:  8435   Words      (   33  Pages) 

Size  of   core  pool:  K440  Words      (    55  Pages) 

Operating     system:  RSX-llM/PLUS 

SY:SETCNr.v2ici'32??3°]SETCNT/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110JNETLI8/ML,[132,10]SETCNT 


_QC    AT    nc . 01 


N    9 


SETCUG     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:21 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


M  10 

PAGE  2 

CREF   04.00 


EPRINT 

#4-7A 

ERRORS 

#A-63 

PRINT 

#4-58 

6-199 


5-207 


6-209 


6-211 


N  10 
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SETDTE  -  SET  LOCAL  DTE  PARAMETE  MACRO  V05.03b  Saturday  29-Jun-85  05:21 
Symbol  table 


Page  10-1 


CHSHl  = 
CS.CHN= 
CS.CUG= 
CS.DTE=  •♦ 
CS.PSN=  •♦ 
C5.PVC=  •• 
CS.SVC=  •* 
CS.TRB=  *• 
CS.UN1=  •* 
CS.X2P=  •* 
CS.X29=  •» 
CS.X3P=  •• 
CSHHl  =  •• 


&X 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

«•♦•  GX 

***  ♦ 

**** 


**  ** 
t  *** 

*  *** 

*  *** 


******  GX 

******  QX 

******  5x 

000040 

001056R 


GX 
GX 


.  ABS.  000000 
001234 
Errors  detected: 


000 
001 
0 


C$HLEN= 

CSHLO  = 

C.STS  = 

DEFH5H= 

DSTATE 

D$TADR= 

DSTCT  = 

D$THSH= 

D$TLEN= 

D$TL1N= 

D$TSTA= 

ERRALL= 

ERRLIN 


(RW,I,G8L,ABS,0VR) 
(RU,!,LCL,REL,C0N) 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
0O0052R 


ERRPMl 

EX$ERR= 

EX$WAR= 

FL.MUX= 

FL.TRe= 

FL.TRI= 

INSDTE 

L$LENX= 

PRDLST 

SETCHN 

SETLJN 

XP.CHN= 

XP.C0U= 


000012R 
000002 
000000 
******  GX 
•**♦«*  GX 
»*«.**  GX 
000542R 
******  GX 
OOOOOOR 
000674R 
000606R 
******  GX 
******  GX 


XP.DTE= 

****** 

GX 

$DVNAM= 

****** 

GX 

XP.KND= 

GX 

$EDMSG= 

****** 

GX 

XP.LIN= 

****** 

GX 

$FLAGS= 

****** 

uX 

XP.MCI= 

****** 

GX 

SMC  I  = 

****** 

GX 

XP.STA= 

****** 

GX 

SOPRND= 

****** 

GX 

XP.ST1= 

****** 

GX 

$PSIPT= 

GX 

SBUFF  = 

****** 

GX 

$RL8F  = 

****** 

GX 

$BYTMN= 

****** 

GX 

SRQBF  = 

****** 

GX 

$BYTXr= 

****** 

GX 

SSEDTE 

0001 34RG 

$CFERR= 

****** 

GX 

SSWICH= 

****** 

GX 

$CHNLS= 

****** 

GX 

$TMLST= 

****** 

GX 

$CT   = 

****** 

GX 

SXXAVL- 

****** 

GX 

$DTE  = 

****** 

GX 

***  Assembler  statistics 


Work  tile  reads: 
Work  tile  writes: 
Size  of  work  file; 
Size  of  core  pool : 
Operating  system; 


0 

0 

8480  Words     (   34  Pages) 

14440  Words      (    55  Pages) 

RSX-11M/PLUS 


SvfsETDTE'v2![°32J343SETDTE/CR/-SP=SY:[1,nRSXMCM.SML/ML,[130,110:NETLI8/ML,[132,101SETDTE 


CE    THT  C 


rDCATcr>   Dv      MAron      nM   PO-iiiw-S';    4T   flS.'Pl 


PAGF    1 


N  11 


SETLOG 
FINEVT  - 

260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 


M  12 

-  SET  lOGGlNG  PARAMETER  MACRO  V05.03b  Saturday  29-Jun-85  05:21  Page  8 
-  FIND  ^JEXT  EVENT  IN  LIST 

.SBTTL  FINEVT  -  FIND  NEXT  EVENT  IN  LIST 


000730 
00073A 
000736 
000740 
000742 
000750 
000752 
000760 
000762 
000770 
000772 


012702 
010201 
011202 
001414 
122762 
001371 
026062 
101365 
026062 
101361 
000207 


OOOOOOG 


OOOOOOG  OOOOOOG 
000004     000004 
000016     000016 


FINEVT   -   FIND   NEXT   EVENT    IN  SORTED   LIST 

INPUTS: 

RO  =  TEMPLATE  TO  BE  INSERTED 

Rl  =  ADRESS  OF  TEMPLATE  TO  PRECEDE  CURRENT  TEMPLATE 


FINEVT 

MOV 

10$: 

MOV 

MOV 

BEQ 

CMP8 

BNE 

CMP 

BHI 

CMP 

BHI 

20$: 

RETURN 

#$TMLST,R2 

R2,R1 

(R2),R2 

20$ 

#CS.EVT,C.STS(R2) 

10$ 

C.CLS(R0),C.CLS(R2) 

10$ 

C.SNK(R0),C.SNK(R2) 

10$ 


GET  START  OF  TEMPLATES 

SAVE  ADDRESS  Of  PREVIOUS 

GET  NEXT  TEMPLATE  IN  LIST 

BR  IF  END  OF  LIST 

IS  THIS  AN  EVENT  TEMPLATE? 

BR  IF  NO 

DOES  TEMPLATE  GO  HERE? 

BR  IF  NO 

DOES  TEMPLATE  GO  HERE? 

BR  IF  NO 


N  12 
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SEIMOD  ■ 
SETDST  ■ 

190 
191 
192 
193 
19A 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
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DEFINE  MODULE     MACRO  V05.03b  Monday  Ol-Jul-85   17:29     Page  7 
SET   DSTSDf    PARAMETERS 


.SSTTL      SETDST   -   SET   OST$Df    PARAMETERS 

»•    SETDST    -   SET   DSTSDF    PARAMETERS 

INPUTS  R2   =    TEMPLATE   ADDRESS 

tOPRND  =   PARSED  OPTIONS 

OUTPUT  TEMPLATE   UPDATED. 


001066 
001066 
00107A 
001076 
001104 
001112 
0011U 

207  001122 

208  001130 

209  001136 

210  001U0 

211  0011A6 

212  00115A 

213  001160 

214  001166 
215 


032767 
OOU03 
116762 
032767 
001406 
116762 
042762 
032767 

■'? 

U  iL 

1050O2 
052762 
000207 


SETDST: 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  10$: 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  0000006  20$: 

OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOG 
OOOOOOG  OOOOOOG 

30$: 


BIT 

BEQ 

MOVB 

BIT 

BEQ 

MOVB 

BIC 

BIT 

BEQ 

MOV 

MOV 

CLRB 

BIS 

RETURN 


PRIORITY  ? 
IF  EQ,  NO 
UPDATE  TEMPLATE 
UPDATE  OBJECT  NUMBER  ? 
IF  EQ,  NO 
UPDATE  TEMPLATE 

CLEAR  PREVIOUS  TASK  NAME 
UPDATE  OBJECT  TASK  ID? 
IF  EQ,  NOPE 
UPDATE  TEMPLATE 
$C)BJ+2,D$STSKt2(R2)  ;  . . . 
D$S08J(R2)      ;  OBJECT  NUMBER  IS  ZERO 
#CS.TSI<;,C.STS(R2);  REMEMBER  OPTION 


#XS.PRI,$OPRND 

10$ 

$PRI,D$SPRI(R2) 

*XS.0BJ,$0PRND 

20$ 

$08J,D$S0BJ(R2)  , 

#CS.TSK,C.STS(R2) 

#XS.08I,$0PRND 

30$ 

$08J,D$STSK(R2) 


<;FTMnri  -  hff  iwf  wnniii  F 


N  13 
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SETMOD  -  DEFINE   MODULE 
Symbol   table 


n  u 
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ALCOST 

002?26f 

D$ALEN= 

.•«••«  GX 

ERRDST 

000150R 

CHKDST 

002U4R 

D$ANUM= 

..*•»•  GX 

ERRLEN 

2525^5" 

CS.DSA= 

****** 

GX 

D$ASHI= 

«•••••  GX 

ERRNUM 

00037AR 

CS.DSC: 

GX 

DSASLO= 

•»••••  GX 

ERROBJ 

OOOOOOR 

CS.DST= 

**«•♦• 

GX 

D$CLEN= 

»»«.♦«  GX 

ERRPSI 

CS.LLC= 

****** 

GX 

D$CMLN= 

*«♦•»•  GX 

ERRXSV 

000436R 

CS.MO0= 

****** 

GX 

D$CMSK= 

•••»••  GX 

ERRX29 

2981^^." 

CS.MSK,= 

GX 

D$CVAl= 

»»».«•  GX 

EX$ERR= 

000002 

CS.NUM= 

****** 

GX 

0$CVLN= 

«••«•»  GX 

L$LCTM= 

.«...«  GX 

CS.PSN= 

****** 

GX 

D$FLNX= 

.♦••••  GX 

L$LNAM= 

......  GX 

CS.RDT= 

GX 

D$SLEN= 

*»••••  GX 

P$SPOR= 

...»*.  GX 

cs.sh;= 

GX 

D$SNAH= 

......  GX 

RQC8 

003012R 

CS.SLO= 

GX 

D$S0BJ= 

.».«••  GX 

R$DADR= 

......  GX 

CS.TSK= 

****** 

GX 

D$SPRI= 

♦».••»  GX 

R$DLEN= 

......  GX 

CS.\/AL  = 

GX 

D$STSK= 

..»••«  GX 

R$DNAM= 

......  GX 

CS.)(29= 

GX 

D$STYP= 

»»*.•*  GX 

R$LENX= 

......  GX 

r.sis  = 

****** 

GX 

ERRALL= 

..*•**  GX 

SETDSA 

001170R 

DA$CUG= 

****** 

GX 

ERRCLM 

000261R 

SETDSC 

00U02R 

DEFPRI= 

000177 

ERRCLV 

000326R 

SETDST 

001066R 

D$ACUG= 

GX 

ERRCON 

000103R 

TSTPSI 

002770R 

OtADLN= 

****** 

GX 

ERRDNM 

00004 IR 

XA.KND= 

.*•*«»  GX 

.  ABS. 

000000 

000 

(RU,I,GBL,A8S,0VR) 

0030^0 

001 

(RW,I,LCL,REL,CON) 

Errors 

detected:  0 

XA.NUM= 

****** 

fix 

XSVCHA 

0017UH 

XS.CLM= 

****** 

(iX 

XS.CLV= 

****** 

(iX 

XS.CTMr 

****** 

GX 

XS.CUG= 

GX 

XS.DST= 

****** 

GX 

XS.DTE= 

****** 

GX 

XS.KND= 

****** 

GX 

XS.MXC= 

****** 

GX 

XS.0B]= 

GX 

XS.0BJ= 

****** 

GX 

XS.PRI= 

****** 

GX 

XS.SUB= 

GX 

X$9CT  = 

****** 

GX 

X»9MXC= 

****** 

GX 

X29CHA 

00205'iR 

$BYTMN= 

...... 

GX 

$8YTXT= 

*****. 

GX 

$CfERR= 

GX 

Assembler  statistics 


0 

0 

8485  Words     (   34  Pages) 

14440  niords     (    55  Pages) 

RSX-11M/PLUS 


$CLM  = 

».*..*  GX 

$CLV  = 

».♦••♦  GX 

$cr  = 

.•♦»»•  GX 

$CUG  = 

......  GX 

$DST  = 

......  GX 

$DTE  = 

...*».  GX 

SMC  J  = 

...».«  GX 

$08  J  = 

*...♦•  GX 

$OPRND= 

.»««*•  GX 

$PR 

.»».*•  GX 

$PS  pr= 

..»..*  GX 

SRQBF  r 

.**»»•  GX 

SSEXAC 

002472RG 

JSEXSV 

000634RG 

$SEX29 

000646RG 

$SU81  = 

»»♦♦••  GX 

$SUB2  = 

*»...»  GX 

$TMLST= 

...•».  GX 

$XXAVL= 

.«•*•♦  GX 

.CONEft= 

...*.♦  GX 

Work  file  reads: 
ulort<  file  writes: 
Size  of  ijork  f  i  le: 
Size  of  core  pool ; 
Operating      system; 

DB2:SETMOD'!!'n7?ri32!^34]SETMOD/CR/-SP  =  D62:ri,lJftSXMCM.SML/ML,[130,110]NETL18/ML,[132,103SETMOD 


sFTMnn 


fRFATFD  BY      MACRO     ON   l-JUL-85   AT    17:29 


PAGE    1 


N  U 
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OPPREM  -  UPPATF    AREA  OF    REMOTE    DEFINITIONS 


211 
232 
25? 

25A 
235 
r-jb 
IV 
238 
239 
240 
241 
242 

243  000354 

244  000354 

245  00C360 

246  000^64 
247 

248 
249 

250  000366 

251  000370 

252  000:'72 

253  000J74 

254  000402 

255  000404 

256  000410 

257  000414 

258  000416 

259  000420 
2o0  000426 
261 

262 
263 

264  000432 

265  000434 

266  000436 

267  000440 

268  000442 

269  000444 

270  000446 

271  000452 
272 

273 
274 

275  000454 

276  000456 

277  000460 

278  C00464 

279  000466 

280  0004  70 

281  0004  72 

282  000500 

283  000502 

284  0005^0 
285 

286  0OC512 

287  000514 


.SBTTL      UPDREM  -  UPDATE   AREA  OF   REMOTE   DEFINITIONS 
••-UPDREM-UPDATE   AREA  OF   REMOTE   DEFINITIONS 
INPUT: 


OUTPUT: 


Rl      =  FORMER  EXECUTOR  AREA  NUMBER    (HIORD) 
R2     =  NEW  EXECUTOR  AREA  NUMBER   (HIORD) 
ITMLST      =    TEMPLATE   LISTHEAD 

ALL   REMOTE    DEFINITIONS   WITH   THE   OLD   EXECUTOR 

AREA  ARE    UPDATED    TO  REFLECT    THE   NEW  EXECUTOR  AREA. 


004567 

012705 
005003 


010504 
011505 
001430 
032765 
001771 
016546 
042716 
022601 
001363 
042765 
050265 


011546 
010515 
010503 
012605 
010514 
001555 
010367 
000745 


005703 
001425 
012705 
010504 
011505 
001410 
122765 
001371 
026565 
'03565 

011446 
010314 


OOOOOOG 
OOOOOOG 


UPDREM: 


JSR 
MOV 
CLR 


R5,$SAVRG 

#$TMLST,R5 

R3 


GET  SOME  REGISTERS 

POINT  TO  TEMPLATE  LISTHEAD 

INITIALIZE  TEMPORARY  LISTHEAD 


LOCATE  NUDES  WHOSE  ADDRESSES  REQUIRE  CHANGES 


OOOOOOG 

000010 
001777 


176000 
000010 


l0$:    MOV  R5,R4 

MOV  (R5),R5 

BEQ  30$  , 

OOOOOOG  20$:    BIT  #CS.REM,C  .STS(R5) 

BEQ  10$ 

MOV  C.RADD(R5),-(SP) 

BIC  *1777,(SP) 

CMP  (SP)t,R1 

BNE  10$  , 

000010        BIC  #*C1777,C.RADD(R5) 
BIS 


R2,C.RADD(R5)   ;  FOLD  IN  NEW  AREA 
REMOVE  NODE  FROM  LIST  -  INSERT  IN  TEMPORARY  LIST 


SAVE  ADDRESS  OF  PREDECESSOR 
POINT  TO  NEXT  TEMPLATE 
IF  EQ,  END  OF  LIST 
;  IS  THIS  ONE  A  REMOTE  DEFINITION  ? 
IF  EQ,  NO  -  SKIP  IT 
PICK  UP  REMOTE  NODE  ADDRESS 
ISOLATE  AREA 

SAME  AS  OLD  EXECUTOR  AREA  ? 
IF  NE,  NO  -  LEAVE  IT  ALONE 
ELSE  CLEAR  REMOTE  AREA 


000002G 


OOOOOOG 

OOOOOOG 
000010 


MOV 
MOV 
MOV 
MOV 
MOV 
BNE 
MOV 
BR 


(R5),-{SP) 

R3,(R5) 

R5,R5 

(SP)',R5 

R5,(R4) 

20i 

R3,$TMLSTt2 

lOi 


.1ST 


SAVE  NEXT  TEMPLATE  ADDRESS 
LINK  CHANGED  TEMPLATE  INTO  T 

...  AT  THE  FRONT  ... 
GET  ADDRESS  OF  NEXT  IN  SCN 
CLOSE  UP  LIST 
IF  NE,  NORE 
ELSE  FIX  BACK  POINTER 
PROCESS  REMAINDER  OF  REMOTE  DEFINITIONS 


FOLD  NODES  ON  TEMPORARY  LIST  BACK  IN,  IN  ADDRESS  ORDER 


OOOOOOG 
000010 


^0$: 
40$: 

50$: 


T5T 

BEQ 

MOV 

MOV 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BHIS 

m-i 

MOV 


R3 

60$ 

#$TMLST,R5 

R5,R4 

{R5),R5 

50$  , 

#CS.REM,C.STS(R5) 

40$ 


ANYTHING  CHANGED  ? 

NO 

GET  START  ADDRESS  OF  TEMPLATES 

SAVE  ADDRESS  OF  PREVIOUS 

GET  NEXT  TEMPLATE  IN  LIST 

IF  EQ,  END  OF  LIST 

;  IS  THIS  A  REMOTE  TEMPLATE  ? 

IF  NE.  NO  ..  KEEP  LOOKING 


C.RADD(R3),C.RADD(R5)  ;  ELSE,  DOES  TEMPLATE  GO  HERE 
40$  ;  IF  HIS,  NO  ..  KEEP  LOOKING 


(R4),-(SP) 
R5,(R4) 


SAVE  OLD  SUCCESSOR  ADDRESS 
LINK  IN  NEW  REMOTE 
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SYMBOL   CROSS  BEfERENCE  CREF       OA.OO 

SYMBOL      VALUE  REFERENCES 


CD.LEN 

--   000022 

#',-59 

CL.LEN 

r.   000020 

»',-60 

CS.DEi" 

:::     ****** 

GX 

5-126 

CS.FFA 

=     ****** 

GX 

5-170 

CS.MOD 

=     *  *      *  *  * 

GX 

5-135 

5-140 

C.CTM 

rj00i6 

#A-60 

C.DELf 

000016 

#A-59 

C.DELW 

000017 

#A-59 

C.DEV 

000012 

#'!,-60 

C.EXT 

000015 

#A-60 

C.FIG 

000006 

#A-60 

C.INAC 

OOOOU 

#A-59 

•5-144 

C.INCT 

000012 

#A-59 

•5-149 

C.IPL 

000020 

#4-59 

C.LIN 

000011 

#4-60 

C.LK5 

000010 

#A-59 

•5-134 

r.LST 

000021 

#4-59 

C.NAM 

OOOOOA 

#4-60 

C.NCTD 

=  000013 

#4-60 

C.NDC 

000006 

#4-59 

•5-139 

C.NLT 

OOOOU 

#4-60 

C.NLTD 

=  000012 

#4-60 

C.OUTT 

000015 

#4-59 

•5-154 

C.PRl 

000010 

#4-60 

CPRM 

~       ****** 

GX 

5-172 

5-177 

C.RETF 

000015 

#4-59 

•5-159 

C.SEG 

000004 

#4-59 

•5-190 

C.ST5 

r     ****** 

GX 

5-126 
•5-189 

•5-135 

ERRDEC 

000000 

R 

#4-100 

5-196 

ERRFEA 

000030 

R 

#4-101 

5-198 

ERR5UP 

000066 

R 

#4-102 

5-200 

EXSERR 

=  000002 

#4-99 

4-100 

E2.INA 

r     ****** 

GX 

5-142 

E2.INC 

-     ****** 

GX 

5-147 

E2.0UT 

-     ****** 

GX 

5-152 

E2.RET 

=     *♦♦**» 

GX 

5-157 

E2.SEG 

r     ****** 

GX 

5-187 

NFSACC 

=   100000 

5-180 

5-183 

MF.ACC 

=  000001 

5-177 

OE.LNK 

=    *♦♦*** 

GX 

5-132 

OE.NCO 

=    ****** 

GX 

5-137 

OE.VFV 

=    ****** 

GX 

5-162 

5W.VFY 

-     ****** 

GX 

5-181 

$CFERR 

-    ****** 

GX 

5-196 

5-198 

$£INA 

=    ****** 

GX 

5-144 

SEINC 

=    ****** 

GX 

5-149 

SEOur 

-    ****** 

GX 

5-154 

SERET 

-    «♦***♦ 

GX 

5-159 

SESEG 

-    ****** 

GX 

5-190 

Slinks 

-    ****** 

GX 

5-134 

SNCOU 

-   •*•*.* 

GX 

5-139 

5-145  5-150  5-155  5-160  5-179  5-189 


•5-180  •5-183 

•  5-140  'S-US  •S-ISO  'S-ISS  •5-16'  5-170  ^5-179 

4-101  4-102 


5-200 
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'ac'f  ;t  ccntents 

^-   t5    .OBNUM  -  STORE  THE  OBJECT  NUNM8ER 

t-       89    .uBNAM  -  STORE  THE  OBJECT  TASK  NAME 

^-  '?3    .UBrOP  -  STORE  THE  NUMBER  OF  OBJECT  TASK  COPIES 


PRSPRO  - 
.PRNLT  - 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

'00 

101 

102 

103 

10A 


N  ? 

ACTION  ROUTINES  FOR  PR  MACRO  V05.03b  Saturday  29-Jun-85  05:19  Page  5 
STORE  NUMBER  OF  LINE  TABLES  SPECIFIED 


INPUT- 


;  OUTPUT 


00006A  .PRNLT: 

00006A  116767  OOOOOOG  OOOOOOG 

000072  026727  OOOOOOG  OOOOOOG 

000100  101405 

000102  062716  000002 

000106  012767  000000c  OOOOOOG 

0001U  000207  iO$: 


.SBTTL   .PRNLT  -  STORE  NUMBER  OF  LINE  TABLES  SPECIFIED 
.PRNLT  -  STORE  NUMBER  OF  LINE  TABLES  SPECIFIED 

.PNUMB  =  NUMBER  OF  LINE  TABLE  TO  BE  SET  IN  PROCESS  SPACE 

NUMBER  IS  VALIDATED  AND  THE  TRANSITION  IS  .'CCEPTED/REJECTED 


MOVB 

. PNUMB, $NLT 

STORE  THE  LINE  COUNT 

CMP 

. PNUMB, *$MXNLT 

VALUE  IN  RANGE  ? 

BLOS 

10$ 

IF  LOS,  YES 

ADD 

*2,(SP) 

ELSE,  REJECT 

MOV 

#ERRILN,$ERROR 

INVALID  NUMBER 

RETUrW 

N  3 
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RNSPA  -  STORE  SERVICE  PASSWORD 
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3A2 
3A3 
3AA 
3A5 
3A6 
3A7 
3A8 
3A9 
350 

351  0006A2 

352  0006A2 

353  000646 
35A  000652 

355  000656 

356  000660 

357  000664 

358  000666 

359  000672 

360  00067A 
361 

362  000700 

363  000704 

364  000706 

365  000710 
366 

367  000712 

368  000716 

369  000722 

370  000726 
371 

372  000750 

373  000734 
374 


.SBTTL   .RNSPA  -  STORE  SERVICE  PASSWORD 
*•  .RNSPA  -  STORE  REMOTE  NODE  SERVIDE  PASSWORD 
INPUTS:       TPARS  CONVENTIONS. 
OUTPUT:       SERVICE  PASSWORD  AT  SRNSPA  IN  RAD50. 


012702 
012701 
012722 
077103 
016701 
160102 
020127 
101211 
016700 

004767 
103604 
112022 
077105 

012700 
012701 
012702 
000704 

062716 
000207 


000000' 

000010 

030060 

OOOOOOG 

000020 

OOOOOOG 

177700 


000000' 

000020 

OOOOOOG 


000002 


.RNSPA:: 


MOV 
MOV 
MOV 
SOB 
MOV 
SUB 
CMP 
BHI 
MOV 

CALL 
BCS 
M0V8 
SOE 

MOV 
MOV 
MOV 
BR 


REJI:   ADD 

RETURN 


1$: 


10$: 


#SCR,R2 

#16./2,R1 

#"00,(R2)+ 

Rl.ll 

.PSTCN.Ri 

R1,fi2 

R1,#16. 

REJ 

.PSTPT,RO 

HEX 

REJ 

(R0)t,(R2)+ 

R1,10$ 

#SCR,RO 
#16.,R1 
#$RNSPA,R2 
STR50X 

#2,(SP) 


POINT  TO  SCRATCH 

COUNT 

INSERT  LEADING  ZEROES 

GET   COUNT 

INSERT   PARSED   DIGITS   HERE 

CHECK   LENGTH 

REJECT 

POINT  TO  PA,-(SED  STRING 

HEX  DIGIT  ? 

IF  CS,  NO 

STUFF  BYTE  INTO  SCRATCH  AREA 


SET  UP  SOURCE  ADDRESS, 

COUNT, 

DESTINATION 

STORE   RAD50  VAI  UE 

REJECT   TRANSITION 


PRSSYS  - 
.SVBYT  - 

12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
UO 
141 
H2 
1A3 
144 
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PARSE  SYSTEM  ACTION  RO  MACRO  V05.03b  Saturaay  29-Jun-85  05:20  Page  7 
POOL  SINGLE  WORD  ALLOCATION  EXTENSION 


.SBTTL   .SYSYT  -  POOL  SINGLE  WORD  ALLOCATION  EXTENSION 
'»«*  -  .SV8YT  -  POOL  SINGLE  WORD  ALLOCATION  EXTENSION 

^  '.PNUM8  =  NUMBER  OF  BYTES  FOR  SINGLE  WORD  POOL  EXTENSION 

OUTPUT: 

TRANSITION  IS  ACCEPTED/REJECTED 
NUMBER  IS  STORED  IN  $BYT 


000124 

000124  016700  OOOOOOG 

000130  010067  OOOOOOG 

000134  020027  177700 

000140  101405 

000142  062716  000002 

000146  012767  OOOOOOG  OOOOOOG 

000154  000207 


.SYBYT:: 


10$: 


MOV 

MOV 

CMP 

BLOS 

ADD 

MOV 

RETURN 


.PNUMB.RO 

RO,$BYT 

R0,#<1023.*64.> 

lOi 

#2,(SP) 

#ERRILN,$ERROR 


GET  THE  BYTE  COUNT 
STORE  IN  ADVERTISED  PLACE 
IS  NUMBER  IN  RANGE  ? 
IF  LOS,  YES  -  OKAY 
ELSE,  REJECT  TRANSITION 
INVALID  NUMBER 


PURMOD  -  PURGE  MODULE 
LOCAL  DATA 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 

88  000000  ^^5^',l 

89  000006  115';47 

90  OOOOU  000000 
91 
92 
93 
94 

95  000002 

96  000016  002 

97  000067  002 

98  000130  002 

99  000173  002 

100  000243    002 

101  000313    002 

102  000354    002 

103  000/.32     002 
104 
105 
106 


MACRO  VO5.03b  Satu:  Jay  29-Jun-85  05:20 


N  5 
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.SBTTL  LOCAL  DAIA 
.NLIST  BEX 


LOCAL  DATA 


115447  003310 
050712  000000 


SPECIAL  DESTINATIONS  UH'CH  MAr  NOT  BE  PURGED 

SPCDST:  .RAD50  /X25/  /X29ACP/ 
.RAD50  /X29/  /NCR  / 
.WORD   0 


ERROR  TEXT 


103 
103 
103 
103 
103 
103 
103 
103 


106  ERRNSD 

106  ERRNDT 

106  ERRNSG 

106  ERRXSV 

106  ERRX29 

106  ERRPSI 

106  ERRDLM 

106  ERRDST 


.NLIST 

EXSERR 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.LIST 


BEX 
=  2 
<EX$ERR>/CFE  —  Destination  not  in  configuration/ 
<EX$ERR>/CFE  —  DTE  not  in  conf iquration/ 
<EX$ERR>/CFE  —  Group  not  in  conTiguration/ 
<EX$ERR>/CFE  —  X25-Ser\/er  not  in  configuration/ 

—  X29-Seruer  not  in  configuration/ 

—  No  PSI  suoport  in  system/ 

—  DTE  with  DLM  circuits  not  purged:  X5R/ 

—  In»;alid  destination  sequence/ 


<EX$ERR>/CFE 
<EX$ERR>/CFE 
<EX$ERR./CFE 
<EX$ERR>/CFE 


BEX 


PURMOD  -  PURGE  MODULE 
Symbol  table 


N  6 
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CHKDTE 

001004F 

CS.CHN= 

****** 

(jX 

CS.CUG= 

****** 

GX 

CS.DSA= 

****** 

GX 

CS.DSC= 

****** 

GX 

CS.DST  = 

****** 

GX 

CS.DTE= 

****** 

GX 

CS.LLC= 

****** 

GX 

CS.MOD= 

****** 

GX 

CS.PVC= 

****** 

GX 

CS.RDT= 

****** 

GX 

CS.X29= 

****** 

GX 

C$HLEN= 

****** 

GX 

C$LENX= 

****** 

GX 

C$ULEN= 

****** 

GX 

C$UNAM= 

****** 

GX 

C.STS  = 

****** 

GX 

.  ABS.  000000    000 
002132    001 
Errors  detected:  0 

♦•♦  Assembler  statistics 


OEALC   00206AR 
D$ADLN=  »♦****  GX 
D$ALEN=  ******  GX 
DSCLEN=  **•*•»  GX 
D$CVLN=  »*»♦**  GX 
D$FLNX=  «***♦♦  GX 
D$SLEN=  *♦**♦»  GX 
D$SNAM=  ******  GX 
D$STVP=  ******  GX 
D$I'ADR=  ******  GX 
D$TCT  =  ******  GX 
D$THSH=  ******  GX 
D$TLEN=  ******  GX 
ERRDLM  000354R 
ERRDST  C00432R 
ERRNDT  000067R 
ERRNSD  000016R 

(RU,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


ERRNSG 

ERRPSI 

ERRXSV 

ERRX29 

EX$ERR= 

G$LENX= 

L$LCTM= 

L$LENX= 

L$LNAM= 

PURCUG 

PURDIE 

P$VLEN= 

P$VOWN= 

R$[)LEN= 

R$DNAM= 

R$LENX= 

SPCDST 


000130R 
00031 3R 
000173R 
000243R 
000002 
******  GX 
*♦*»**  GX 
******  GX 
******  GX 
001120R 
000536R 
******  GX 
******  GX 
******  GX 
******  GX 
»»*«**  GX 
OOOOOOR 


TSTPSI 

XA.KND= 

XP.CTH= 

XP.CUG= 

XP.DTE^ 

XP.KND= 

XP.KNG^ 

XSVCTM 

XS.CTM= 

XS.KND= 

X$LENX= 

X$9CT  : 

X29CTM 

$BUFF  : 

SBYTMN: 

SBVTXT^ 


GX 
GX 
GX 
GX 
GX 
GX 


0O20'i2R 
****** 
****** 
****** 
****** 
****** 
****** 
001572R' 
******  GX 
******  GX 
******  GX 
******  GX 
001650R 
******  GX 
******  GX 
******  GX 


$CFERR= 

$CUG  = 

$DST  = 

$DTE  = 

$EDMSG= 

$0PRND= 

$PSIPT= 

SPUXAC 

SPUXPR 

SPUXSV 

$PUXS9 

SRLBF  = 

$SAV\/R= 

$TMLST= 

$XXAVL= 

.CONER= 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 

****** 

****** 

****** 

****** 

****** 

****** 

001710RG 

000500RG 

001246,'?G 

001260RG 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 


Work  file  reads: 
Work  file  writes: 
Size  of  work  f i le: 
Size  of  core  poo'. : 
Operating  system: 


0 

0 

8423  Words     (  33  Pages) 

KA40  Words      t   55   Pages; 

RSX-11M/PLUS 


Sr:PURMOD!v2;t°32??3i]PURMOD/CR/-SP=SY:C1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,C132,10]PURMOD 
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PRGSER  -  PURGE  SERVICE  SLOCK  PARAMETERS 


268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 

280  000452 

281  000432 

282  000436 

283  ro0440 

284  000442 

285  000446 

286  000450 

287  000454 

288  000456 
289 

290  000460 

291  000460 

292  000464 

295  000470 
294  000474 
2'^5  000500 

296  000504 

297  000510 

298  000514 

299  000520 
500 


012700 
012001 
001406 
052067 
001775 
040162 
000770 
000207 


000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
000000 


000460' 

OOOOOOG 
000004 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


.SBTTL  PRGSER  -  PURGE  SERVICE  BLOCK  PARAMETERS 
**  PRGSER  -  PURGE  SERVICE  BLOCK  PARAMETERS 
INPUT: 


OUTPUT: 
REGISTERS: 


R2  =  SERSDF  TEMPLATE  ADDRESS 
SOPRND  =  PARSED  OPTIONS 

THE  OPTIONS  ARE  PURGED. 

R3,  R4  AND  R5  ARE  SAVED. 


PRGSER: 
10$: 


20$: 
STBL: 


MOV 

MOV 

BEQ 

BIT 

BEQ 

BIC 

BR 

RETUhN 


.UORD 
.WORD 
.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


#ST8L,R0 

(R0)+,R1 

20$ 

(R0)+,$0PRND 

10$ 

R1,S$FLG(R2) 

10$ 


POINT  TO  CONTROL  TABLE 

PICK  UP  BIT  VALUE 

IF  EQ,  DONE 

WAS  OPTION  PARSED  ? 

IF  EQ,  NO 

ELSE  CLEAR  OPTION  IN  TEMPLATE 

CONTINUE 


SF.HST 

SF.HAD 

SF  " 

SF.DEV 

SF.PSS, 

SF.DPA, 

SF.DPC, 

SF.PH3, 

0 


RN.HOS 
RN.HAR 
CIR,  RN.SCI 
RN.SDV 
RN.SPA 
RN.DPA 
RN.DCT 
RN.SNV 


Host  address  specified 
Hardware  address  specified 
Sersiice   circuit  specified 
Service  device  specified 
Ser\/ice  password  specified 
Dump  address  specified 
Dump  count  specified 
Service  node  type  is  Phase  5 


SETBUF  - 

SET  BU 

SSEBUF  - 

SETUP 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

000162 

171 

000162 

172 

000164 

173 

000170 

174 

000172 

175 

000174 

176 

000202 

177 

178 

179 

180 

000204 

181 

000212 

182 

000220 

183 

000222 

184 

185 

000230 

186 

000236 

187 

000240 

188 

000244 

189 

000250 

190  000252 

191 

000256 

192 

000260 

193 

000264 

194 

000266 

195 

000272 

196 

000276 

197 

000302 

198 

000304 

199 

000310 

200 

201 

000320 

202 

000326 

203 

000330 

204 

000334 

205 

000340 

206 

000344 

207 

000352 

208 

209 

000360 

210 

000366 

211 

000370 

212 

000374 

213 

000400 

214 

000404 
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.SBTTL      SSEBUF    -   SETUP  BUFFER    TEMPLATE 
«*•  -  SSEBUf   -  SETUP  BUFFER   TEMPLATE 
INPUT: 


010546 
012705 
011505 
001517 
122765 
001372 


052765 
032767 
001403 
016765 

032767 
001430 
016700 
010065 
005300 
026500 
101420 
010065 
010502 
062702 
012701 
012700 
112120 
004767 


032767 
001414 
016700 
166500 
016501 
016567 
016765 

032767 
001411 
016700 
166500 
016501 
016765 


R3-R5 


TPARS  REGISTERS 


OUTPUT: 


SSEBUF: 


OOOOOOG 


10$: 


OOOOOOG  OOOOOOG 


C-8IT  =  SUCCESS/FAILURE 


MOV  R5,-(SP) 

MOV  #$TMLST,R5 

MOV  (R5),R5 

BEQ  101$  , 

CMPB  #CS.BUF,C.STS(R5) 

BNE  10$ 


SAVE  REGISTER  FOR  TPARS 

POINT  AT  START  OF  TEMPLATES 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  A  BUFFER  TEMPLATE 

IF  NE,  NO  ..  KEEP  LOOKING 


UFPATt  THE  TEMPLATE 


OOOOOOG  OOOOOOG 
OOOOOOG  0000006 

OOOOOOG  000004 

OOOOOOG  OOOOOOG  15$: 

OOOOOOG 
000010 

000020 

000020 

000020 

000041' 

OOOOOOG 

0000006 


OOOOOOG  0000006  20$: 

OOOOOOG 

000012 

000010 

000012  177426 

0000006  000012 

OOOOOOG  0000006  30$: 

OOOOOOG 
000014 
00001 '- 
OOOOOUG  000014 


BIS 
BIT 
BEQ 
MOV 

BIT 

BEQ 

MOV 

MOV 

DEC 

CMP 

BLOS 

MOV 

MOV 

ADD 

MC 

MOV 

MOVE 

CALL 

ERRORS 

BIT 
BEQ 
MOV 
f'JB 
MOV 
MOV 
MOV 

Bll 
BEQ 
MOV 
SUB 
MOV 
MOV 


#CS.M0D,C.STS(R5)  ;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

#OS.CCB,$OPRND  ;  NEW  CCS  NUMBER  ? 

15$  ;  IF  EQ,  NO 

$CC8NM,C.CBNM(R5)  ;  UPDATE  THE  CCB  NUMBER 


#OS.RBN,$OPRND 

20$ 

$RD8NM,R0 

R0,C.RBNM(R5) 

RU 

C.THSH(R5),R0 

20$ 

R0,C.THSH(,"'5) 

R5,R2 

*C.THSH,R2 

#ERfiTHS,Rl 

#$BUFF,RO 

(R1)+,(R0)t 

$EDMSG 

#$eUFF 

#OS.RBS,SGPRND 

30$ 

$RD8SZ,R0 

C.R8SZ(R5),R0 

C.R8NM(R5),R1 

C.RBSZ(R5),RDBSZ 

$RD8SZ,C.RBSZ(R5) 

#0S.SBN,$0PRND 

40$ 

SSDBNM,RO 

C.S8NM(:?5),R0 

C.S8SZ(R5),R1   , 

$SDeNM,C.SBNM(R5) 


NEW  RD8  NUMBER  ? 

IF  EQ.  NO 

GET  NEW  RDB  NUMBER 

UPDATE  THE  RDB  NUMBER 

CALCULATE  NEW  MAX  THRESHOLD  VALUE 

OLD  THRESHOLD  VALUE  OK  ? 

IF  LOS,  YES  -  LEAVE  IT 

ELSE  STUFF  IT 

COPY  BUFFER  TEMPLATE  ADDRESS 

POINT  TO  THRESHOLD  VALUE 

POINT  TO  FORMAT  STRING 

POINT  TO  BUFFER 

MOVE  SEVERITY  CODE  FIRST, 

FORMAT  IT 

PRINT  WARNING  MESSAGE 

NEW  RDB  SIZE  ? 
IF  EQ,  NO 
GET  NEW  RDB  SIZE 

CALCULATE  DIFFERENCE  IN  NUMBER  RDBS 
GET  RDB  NUMBER 
;  SAVE  THE  CURRENT  RDB  SIZE 
;  UPDATE  THE  RDB  SIZE 

NEW  SDB  NUMBER  ? 

IF  EQ,  NO 

GET  NEW  SDB  NUMBER 

CALCULATE  DIFFERENCE    IN  NUMBER   SOBS 

GET   SDB   SIZE    IN  BYTES 

;    UPDATE    THE    SDB   NUMBER 


SETCNT     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:21 
SYMBOL  CROSS  REFERENCE 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCE 

S 

CS.CNT 

; 

****** 

6X 

5-U6 

6-208 

CS.DDM 

- 

GX 

5-132 

5-144 

CS.MOD 

- 

***♦♦♦ 

GX 

5-155 

HI^ 

C.CNT 

OOOOOA 

"■,-102 

5-150 

C.CSR 

000010 

#A-10A 

»5-165 

C.LEN 

r 

000016 

#A-107 

C.PRI 

000012 

#4-105 

•5-174 

6-210 

6-212 

CPRM 

- 

****** 

GX 

5-136 

»6-215 

C.STS 

= 

****** 

GX 

5-132 

5-144 

5-146 

»5-155 

6-208 

C.URM 

oooou 

#4-106 

♦5-159 

C.VEC 

000006 

#4-103 

»5-162 

ERRLIS 

- 

****** 

GX 

5-184 

ERRPRl 

000000 

R 

#4-92 

5-172 

EXSERR 

= 

000002 

#4-91 

4-92 

OL.CSR 

= 

****** 

GX 

5-163 

OL.PRI 

= 

****** 

GX 

5-166 

OL.URM 

r 

****** 

GX 

5-157 

OL.VEC 

- 

****** 

GX 

5-160 

UPDDDM 

000332 

R 

5-175 

#6-201 

WC.CNT 

:. 

****** 

GX 

5-148 

WC.NAM 

- 

****** 

GX 

5-134 

5-148 

SCFERR 

= 

****** 

GX 

5-172 

5-184 

SCNTNM 

j: 

****** 

GX 

5-150 

$CSR 

= 

****** 

GX 

5-165 

SDVNAM 

:= 

****** 

GX 

5-136 

SOPRND 

= 

****** 

GX 

5-157 

5-160 

5-163 

5-166 

tPRI 

- 

GX 

5-168 

5-170 

5-174 

SSAVVR 

= 

****** 

GX 

6-202 

SSECNT 

OOOOAO 

RG 

#5-124 

STMLST 

- 

****** 

GX 

5-125 

$URM 

r 

*♦*  «■** 

GX 

5-159 

$VEC 

- 

****** 

GX 

5-162 

$W1LD 

= 

****** 

GX 

5-134 

5-148 

*6-216 
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SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


CHSHl 

CS.CHN 

CS.CUG 

CS.DTE 

CS.PSN 

CS.F-i/C 

CS.SVC 

CS.TRB 

CS.UNI 

CS.X2P 

CS.X29 

CS.X3P 

C$HHI 

CSHLEN 

CSHLO 

C.ST5 

DEFHSH 

OSTATE 

DSTADR 

DSTCT 

D$THSH 

DtTLEN 

D$TLIN 

DSTSTA 

ERRALL 

ERRLIN 

ERRPMI 

EXSERR 

EXtWAR 

FL.MUX 

FL.TRB 

FI..TRI 

INSDTE 

LSLENX 

PRDLST 

SETCHN 

SETLIN 

XP.CHN 

XP.COU 

XP.DTE 

XP.KND 

XP.LIN 

XP.MCI 

XP.STA 

XP.STl 

$BUFF 

SBYTMN 

SBVTXT 

SCFERR 

SCHNLS 

ICT 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

000040 
001056 

****** 
****** 

****** 
****** 
**  *♦** 
****** 
****** 

000052 
000012 
000002 
000000 

****** 
****** 
****** 

0005^2  R 

****** 

000000 
00067A 
000606 
****** 

****** 

:  ****** 

:  ****** 
****** 

:  ****** 
****** 
****** 
****** 
**♦♦♦» 

:  ****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 

GX 

R 

R 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

9-318 

5-88 

5-88 

5-87 

5-87 

5-88 

5-88 

8-252 

8-252 

5-87 

5-87 

5-87 
•9-319 

9-292 
•  9-315 

6-119 

10-348 
#4-80 

6-173 

6-125 
♦6-146 
•6-148 

6-140 

8-247 
♦6-147 

6-187 
#5-93 
#5-92 
#5-91 
#5-90 

8-253 

8-256 

8-256 

6-150 

6-143 
#5-87 

6-179 

6-176 

6-177 

6-159 

6-151 

6-121 

6-137 

6-162 

6-171 

10-343 

10-365 

♦6-143 

♦6-144 

6-187 

9-299 

6-161 


9-287 
6-119 


8-258 
8-255 


9-306 
•9-317 
♦6-145 

6-143 
#10-342 

6-155 
•6-161 

6-155 

10-355 
10-352 

10-364 
6-189 
5-92 
5-93 


#7-206 

6-144 

7-214 

#9-279 

#8-245 


6-135 
6-174 


10-372 
10-368 
•6-168 
•0-169 
6-189 


9-314 
6-145 
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10-348 


7-215 

6-144 

10-363 

•6-170 

10-357 
•10-371 


•8-252 
6-148 


•10-374 


*8-255 


•8-258 


9-287 


•9-314 


•9-318 


6-151 


10-368 


N  12 
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PROEVT    -  PROCESS  EVENT   MASK 
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285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 

302  000774 

303  001000 

304  001006 

305  001010 

306  001014 

307  001020 

308  001022 

309  001026 

310  001032 

311  001034 

312  001036 

313  001040 

314  001042 

315  001044 

316  001046 

317  001050 

318  001054 

319  001056 

320  001060 

321  001062 

322  001064 

323  001066 
324 

325 


004767  OOOOOOG 

026727  OOOOOOG  074000 

103026 

012705  OOOOOOG 

C22567  OOOOOOG 

001013 

012703  OOOOOOG 

012701  000004 

012546 

005116 

032623 

001007 

005301 

003372 

000'.06 

062705  00001 0 

005715 

100356 

000261 

000401 

000241 

000207 

000001 


.SBTTL  PROEVT  -  PROCESS  EVENT  MASK 


PROEVT  -  PROCESS  EVENT  MASK 

INPUTS: 

lEVENT  -  FILTER  MASKS 
SCLASS  -  EVENT  CI  ASS 

OUTPUTS: 

CARRY  CLEAR: 

VALID  EVENT  MASK 
CARRY  SET: 

INVALID  EVENT  MASK  FOUND 


PROEVT. 

CALL 

$SAVAL 

CMP 

SCLASS, #L.CUST 

BHIS 

50$ 

MOV 

#$KNEVT,R5 

10$: 

CMP 

(R5)+,$CLASS 

BNE 

30$ 

MOV 

#$EVENT,R3 

MCV 

#4,R1 

20$: 

MOV 

(fi5)+,-(SP) 

COM 

(SP) 

BIT 

(SP)+,(R3)t 

BNE 

40$ 

DEC 

R1 

BGT 

20$ 

BR 

50$ 

30$: 

ADC 

#10, R5 

T.l 

(R5) 

BPL 

10$ 

40$: 

SEC 

BR 

60S 

50$: 

CLC 

60$: 

RETURN 

SAVE  ALL  REGISTERS 

CUSTOMER  SPECIFIC  EVENT? 

BR  IF  YES 

POINT    TO  VALIDITY    TABLE 

MATCH  ON  EVENT    CLASS? 

BR   IF    NO 

POINT  TO  FILTER  MASK 

PERFORM  CHECK  ON  4  WORDS 

GET  MASK  OF  VALID  BITS 

MAKE  IT  MASK  OF  INVALID  BITS 

ANY  INVALID  BITS  PRESENT? 

BR  IF  YES 

MORE  TO  CHECK? 

BR  IF  YES 

else  successful 

point  to  next  entry  in  table 

scan  all  of  table 

Indicate  error 

indicate  success 


.END 
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SETMOD  -  DEflNE  MODULE     MACRO  V05.03b  Monday  01-Jul-85  17:29     Page  8 
SETDSA   -   SET   DSASDF    PARAMETERS 


217 
218 
219 
220 
221 
222 
225 
22^ 
225 
226 

227  001170 

228  001170 

229  001176 

230  001200 

231  001206 

232  0012U 

233  001222 
23^  001230 

235  001232 

236  001236 

237  001240 

238  001242 

239  001 2A6 

240  001252 

241  001256 

242  001262 

243  001266 

244  001272 

245  001276 
2^.6  001300 
247 

248 
249 

250  001316 

251  001324 

252  001332 

253  001334 

254  001342 

255  001350 

256  001356 

257  001362 

258  001364 

259  001372 

260  001400 
261 


.SBTTL  SETDSA  -  SEi  DSA$DF  PARAMETERS 


032767 
001411 
016762 
016762 
052762 
032767 
001435 
016700 
006200 
010001 
166200 
062700 
042700 
060067 
060067 
010162 
012700 
010201 
062701 
000005 


052762 
032767 
001422 
042762 
052762 
016762 
005767 
100406 
052762 
016762 
000207 


•*  SETDSA 
INPUTS 

OUTPUT 

SETDSA: 


SET  DSASDF  PARAMETERS 

R2  :  TEMPLATE  ADDRESS 
JOPRND  =  OPTIONS  SELECTED 

DSASDF  TEMPLATE  UPDATED. 


OOOOOOG 

OOOOOOG 

BIT 
BEQ 

OOOOOOG 

OOOOOOG 

MOV 

000002G 

000002G 

MOV 

OOOOOOG 

OOOOOOG 

BIS 

OOOOOOG 

OOOOOOG  10S: 

BIT 
BEQ 

177776G 

MOV 
ASR 
MOV 

OOOOOOG 

SUB 

000003 

ADD 

000003 

BIC 

OOOOOOG 

ADD 

OOOOOOG 

ADD 

OOOOOOG 

MOV 

OOOOOOG 

MOV 
MOV 

OOOOOOG 

ADD 
.REPT 
MOV 
.ENDR 

OOOOOOG 

OOOOOOG 

BIS 

OOOOOOG 

OOOOOOG  20$: 

BIT 
BEQ 

oooooor 

OOOOOOG 

BIC 

OOOOOOG 

OOOOOOG 

BIS 

OOOOOOG 

OOOOOOG 

MOV 

OOOOOOG 

TST 
BMI 

OOOOOOG 

OOOOOOG 

BIS 

OOOOOOG 

OOOOOOG 

MOV 

30$: 

RETURN 

*XS.CUG,$OPRND 

10$ 

$CUG,DSACUG(R2) 

SCUG+2,D$ACUG+2( 

#DA$CUG,C.STS(R2 

#XS.DTE,SOPRND 

20$ 

SDTE-2,R0 

RO 

R0,fi1 

DSADLN(R2),R0 

#3,R0 

*3,R0 

R0,$8YTMN 

RO,$BYTXT 

R1,D$ADLN(R2) 

#$DTE,RO 

R2,fil 

#DSANUM,R1 

5 

(R0)+,(R1)+ 


CHECK  FOR  NEW  GROUP 

IF  EQ,  NONE 
,  UPDATE  TEMPLATE 
k2):... 
);  SET  OPTION 

NEU  DTE  ADDRESS? 

IF  EO,  NOPE 

GET  PARSED  LENGTH 

GET  BCD  LENGTH 

COPY  IT 

btT  DIFFERENCE 

ROUND  UP  TO  4  BYTE  BOUND 

UPDATE  MINIMUM  ALLOCATION 

UPDATE  ACTUAL  ALLOCATION 

UPDATE  SAVED  LENGTH 

POINT  TO  PARSED  DTE  STRING 

COPY  ADDRESS 

POINT  TO  NAME  FIELD 

MOVE  IT  IN 


*CS.NUM,C.STS(R2)  ;  SET  OPTION 
#XS.SUB,SOPRND  ;  SU8ADDRESS? 
30$  ;  IF  EQ,  NOPE 

#CS.SLOICS.5HI,C.STS(R2)  ;  CLEAR  BOTH 


#CS.SL0,C.STS(R2) 

$SUB1,D$ASL0(R2) 

$SU82 

30$  ; 

#CS.SHI,C.STS(R2) 

$SU82,D$ASHI(R2); 


ASSUME  ONLY  LOW  ON  COMMAND  LINE 
;'SET  LOW  RANGE 
TEST  FOR  PRESENCE  OF  HIGH  END 
IF  MI,  NO  HIGH  END 
;  REMEMBER  OPTION 
UPDATE  TEMPLATE 


SEIMOD  CREATED  BY      MACRO     ON   1-JUL-85   AT   17:29 

SVMBOl    CROSS   REFERENCE 


SYMBOL      VALUE 


ALCDST 
CHKDST 
C5.DSA 
CS.DSC 
CS.D5T 
CS.LLC 
CS.MOD 
CS.MSK 
CS.NUM 
C5.PSN 
CS.RDT 
CS.5HI 
CS.SLO 
CS.TSK 
CS.VAL 
CS.X29 
C.STS 


DASCUG 
DEFPRI 
DSACUG 
DSADI.N 
OSALEN 
DSANUM 
OtASHl 
DSASLO 
DSCLEN 
DSCMLN 
DSCMSK 
DSCVAL 
DSCVLN 


002226 
002UA 


=   ****** 
=   ****** 


-   ****** 

=   ****** 


~   ****** 


=   ****** 
=   ****** 


z.      ****** 


R 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


=  ****** 
=  000177 


r  ****** 


=  ****** 


=  ****** 


=  ****** 
=  ****** 


GX 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

6-161 

6-U5 

6-169 

6-174 

12-A18 

10-356 

10-363 

9-293 

8-250 

12-422 

14-520 

8-253 

8-253 

7-207 

9-279 

11-384 

6-169 

9-279 

14-520 

8-232 
#4-79 
•8-230 

8-238 

13-462 

8-246 
•8-259 
•8-255 

13-463 
•9-284 

9-287 

9-315 

9-281 


#13-450 

#12-413 

13-475 

12-420 

13-471 


9-300 

14-518 

14-545 

8-258 

8-254 

7-213 

9-321 

6-174 
•9-293 
•14-545 

13-458 
•8-231 
♦8-243 

13-474 


9-302 


N  U 

PAGE   1 

CREF       04.00 


12-424 


12-426 


13-480 


•7-207 
9-300 


•7-213 
•9-321 


♦8-232 
10-356 


•8-250 
•10-363 


•8-253 
11-384 


♦8-254 
12-426 


♦8-258 
14-518 


♦9-312 


DSFLNX 

r  ****** 

GX 

13-467 

13-468 

DSSLEN 

r  ****** 

GX 

13-461 

13-470 

DSSNAM 

::  ****** 

GX 

6-151 

6-153 

•13-482 

DSSOBJ 

:;  ****** 

GX 

•7-206 

•7-212 

DSSPRI 

=  ****** 

GX 

•7-203 

DSSTSK 

r  ****** 

GX 

•7-210 

•7-211 

DSSTYP 

-  *♦♦»** 

GX 

6-147 

•13-484 

ERRALL 

z  ****** 

GX 

13-490 

14-566 

ERRCLM 

000261 

R 

#5-99 

9-330 

ERRCLV 

000326 

R 

#5-100 

9-328 

ERRCON 

000103 

R 

#5-96 

6-184 

ERRDNM 

000041 

R 

#5-95 

ERRDST 

000150 

R 

#5-97 

13-492 

ERRLEN 

000545 

R 

#5-104 

9-326 

ERRNUM 

000374 

R 

#5-101 

14-569 

ERR08J 

000217 

R 

#5-98 

13-494 

ERRPSI 

COOOOO 

R 

#5-04 

15-585 

ERRXSV 

000436 

R 

#5-  }2 

10-368 

ERRX29 

0004  74 

R 

#5-103 

'1-396 

EXSEPR 

-  000002 

#5-93 

5-94 

5-95 

•13-483 


5-96 


5-97 


5-98 


5-99 


5-100 


5-101 
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288  0O0S16 

289  OO0S20 

290  000S22 

291  000S26 

292  000S50 
293 

294  000532 

295 

296 


012613 
001555 
010367 
011303 
000751 

000207 

000001 


000002G 


60$: 


MOV 
BNE 
MOV 
MOV 
BR 

RETURN 

.END 


CSP)»,(R5) 

30$ 

R3.$TMLST»2 

(R^),R3 

30$ 


POINT    TO  NEW  SUCCESSOR 
IF   NE,    NO  LAST   -    CONTINUE 
ELSE  MARK  NEW  LIST   END 
POP  ADDRESS  FROM   TEMP  LIST 


8 

J 

PURMOI; 

M[ 

0 

L 

G  ]$ 

F 

M 

H    11 

r 

N 
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J 
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E 
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H 
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2 

I 
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B 

5 

J 

E   12 

C 

3 

K 
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D 

3 

L 
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E 

3     PRSREfl 

M 

H   12 

F 

3 

N 

I    12 

G 

3 

B 

8 

J   12 

H 

3 

C 

8 

K  12 

I 

D 

8 

L   12 

J 

5 

E 

8 

M   12 

< 

3 

F 

8 

N   12 

L 

3 

G 

8 

B   13 

M 

3 

H 

8 

C   13 

N 

3 

I 

8 

SET8UF 

"   \l 

5 

A 
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8 

E    13 

C 

A 

K 

8 

F    13 

D 
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8 
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E 
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K 
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F 

9 

SETCM 

N   13 

L 

4 

G 

9 

8   14 

M 

4 

H 

9 

C    U 

N 

i 

9 

D   U 

B 

5 

J 

9 

E    ]^ 

5 

K 

9 

F    14 

p 

5 

L 

9 

G    14 

c 

c 

M 

9 

H    14 

F 

5 

N 

9 

I    14 

G 

5 

B 

10 

J    14 

H 

5 

C 

10 

SETCUG 

K    U 

I 

5 

D 

10 

L    14 

SETDTE 


SEFLOG 


SETMOD 


M  14 
N  14 
B  15 


15 

15 

5 

5 

5 


\\ 

D  16 

E  16 

F 

G 

H 

1 

i 

K 


SETNOD 


SETNSP 


ACRO  ON  29-JUN-85  AT  05:22 

B  1 

PAGE  2 

CREF   OA.OO 

r:ferences 

5-132     5-137     5-162 
5-1A-     S-U7     5-152 
#5-117 
5-181 
5-122     5-167 

5-157 

SETNSP  L  ..-Alto   BY 

SYMBOL  CROS,      .FERENCE 

SYMBOL  VALJE 

|oPRN2  =   ••♦.*.     GX  5-iA-  S-U7  5-152  5-157  5-187 

SSENSP         OOOKO  RG 

SSWICH  =   ......     GX 

STMlST  =   ......     GX 


C     1 


SETOBJ     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:22 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


CHKMUL 
CS.OBJ 

c.cpy 

C.FLG 

C.LEN 

C.NAM 

C.STS 

C.TYP 

ERRBUF 

ERRMUL 

ERRNAM 

ERRONA 

EXSERR 

F I  NOB J 

OBJ  NAM 

OF.RLU 

OF. SMC 

00. COP 

00. NAM 

OO.USR 

OO.VFY 

O.LENX 

SW.RLU 

SW.SMC 

tBYTMN 

SBYTXT 

SCFERR 

SCOPES 

$C5TA 

SOPRND 

SQINSN 
SRQBF 

SSAV'VR 

SSEOBJ 

SSWKH 

STMLST 

STNAM 

tTNUM 

SVLVL 

SXXAVL 


301056  R 
«**•**  GX 
000012 
000005 

000013 
000006 


OOOOOA 
000000 
000201 
0000A2 
000115 
000002 
001022 
000244 
000100 
000200 

**■**■»♦ 
*♦«  *** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 

R 
R 
R 
R 

R 
B 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 

000252  R6 
GX 
GX 
GX 
GX 
GX 
GX 


=    ****** 


****** 


REFERENCES 

5-150 

5-U3 
#4-116 
#4-114 
*5-210 
#4-118 
#4-115 

5-143 
#4-113 
#4-101 
#4-104 
#4-102 
#4-103 
#4-100 

5-216 
#4-121 

5-162 

5-168 

5-166 

5-152 

5-160 

5-174 

5-218 

5-163 

5-170 
•5-218 
•5-219 

5-156 

5-173 

7-286 

5-152 

7-300 

5-217 

5-195 

7-273 
#5-136 

5-163 

5-137 

5-15° 

5-145 

5-177 

5-193 


5-191 

5-197 

•5-169 

•5-162 

•5-214 

5-194 

•5-158 

•5-197 

5-145 

5-226 

5-224 

5-228 

5-156 

4-101 

#6-244 

7-283 

5-165 

5-172 

5-206 

•;-184 

5-212 
5-219 
5-203 
5-208 


5-186 
5-211 
7-288 
5-160 


5-170 
6-245 
5-159 
5-154 
5-215 


#7-273 
6-249 
•5-173 
•5-165 
•5-215 

•5-159 

6-249 

•5-198 


5-186 
4-102 


5-205 
5-210 
7-300 
5-188 


7-302 
5-224 
5-166 

5-203 

5-199 
5-182 


B     2 

PAGE    1 

CREF        04.00 


•5-202 

•5-168 

7-311 

•5-199 

6-251 


4-103 

7-311 
7-275 


5-226 
5-174 

5-208 

5-200 
5-198 


•5-211 
•5-172 


•5-200 
6-251 

4-104 


•5-176 
7-279 


•5-177 


•5-201 


•5-205 


5-228 
5-184 


7-302 
7-274 


5-1E 


5-206 


5-212 


7-275 


C     2 


SETPnO  - 
SSEPRO  - 

95 
96 
97 
98 
99 
ICO 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
lU 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
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SEl  PROCESS  OPTIONS    MACRO  V05.03b  Saturday  29-Jun-85  05:23  Page  5 
SET  PROCESS  PARAMETERS 

.SBTTL  $SEPR0  -  SET  PROCESS  PARAMETERS 

*•*  -  $SEPRO  -  SET  PROCESS  PARAMETERS 

INPUT: 


000076 
000076 


000102 
000106 


OCOllO 
000116 
000124 


000126 
000134 
000136 
000144 
000146 
0001 50 
000160 
000162 
000164 
000172 


00017A 
000202 
000204 
000212 
000220 
000222 


000230 
00C236 
000240 
0002'.6 
00025'. 
000256 
000264 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT: 


THE  PROCESS  TEMPUTE  IS  UPDATED 


012700  OOOOOOG 


004767 
103467 


052760 
032767 
001423 


032767 
001435 
026027 
001007 
010046 

012600 
000422 
116760 
000416 


032767 
OOU03 
116760 
032767 
001403 
116760 


032767 
001721 
042760 
032767 
001712 
052760 
000706 


OOOOOOG 


OOOOOOG  OOOOOOG 
OOOOOOG  OOC'^OOG 


OOOOOOG  OOOOOOG 
000004  114224 


OOOOOOG  000014 


OOOOOOG  OOOOOOG 

OOOOOOG  000012 

OOOOOOG  OOOOOOG 

OOOOOOG  000013 


OOOOOOG  OOOOOOG 

OOOOOOG  000006 
OOOOOOG  OOOOOOG 

OOOOOOG  000006 


$SEPR0: 

'mov 

#$TMLST,RO 

GET  START  OF  TEMPLATE  LIST 

;  SEARCH  FOR 

THE  PROCESS 

iO$; 

CALL 

$FNPRO 

FIND  THE  PROCESS  TEMPLATE 

BCS 

30$ 

IF  CS,  NO  MORE 

;  UPDA1 

E  THE 

TEMPLATE 

BIS 

#CS.i10D,C.STS(RO 

;  INDICATE  THAT  THIS  TEMPLATE  IS 

MODIFIED 

BIT 

#FL.LLC,$FLAGS 

IS  THIS  AN  LLC  PROCESS  ? 

BEQ 

23$ 

IF  EQ,  NO 

•  LLC 

BIT 

#OP.NLT,$OPRND 

LINE  TABLE  COUNT  SPECIFIED  ? 

BEQ 

25$ 

IF  EQ,  NO 

CMP 

C.NAM(RO),**RXPT 

;  IS  THIS  PROCESS  XPT? 

BNE 

21$ 

IF  NE,  NO  -  OKAY 

MOV 

RO,-(SP) 

SAVE  RO 

ERROR$ 

*ERRNSP 

XPT  CANNOT  HAVE  LINE  TABLES  IN  PROCESS  SPACE 

MOV 

(SP)t,RO 

RESTORE  RO 

BR 

25$ 

AND  CONTINUE 

21$: 

MOVE 

$NLT,C.NLT(RO) 

STORE  THE  LLC  LINE  TABLE  COUNT 

BP 

25$ 

AND  CONTINUE 

;  DDM/ 

;,.c 

^3$: 

BIT 

#OP.NLT,$OPRND 

LINE  TABLE  COUNT  SPECIFIED  ? 

BEQ 

24$ 

IF  EQ,  NO 

M0V8 

$NLT,C.NLTD(RO) 

STORE  THE  LINE  TABLE  COUNT 

24$: 

BIT 

*OP.NCT,$OPRND 

CONTROLLER  TABLE  COUNT  SPECIFIED 

-) 

BEQ 

25$ 

IF  EQ,  NO 

MOVB 

$NCT,C.NCTD(RO) 

ELSE,  STORE  THE  CONTROLLER  TABLE 

COUNT 

;  PROCESS  STATE 

55$: 

BIT 

*OP.STA,$OPRND 

DOES  HE  WANT  TO  SET  THE  STATE  ? 

BEQ 

10$ 

IF  EQ,  NO 

BIC 

*ZF.MFL,C.FLG(RO 

)  ;  ASSUME  MANUAL  LOADING 

SIT 

#SW.LOA,$SWICH 

■  DOES  HE  WANT  AUTOMATIC  LOADING  ? 

BEQ 

10$ 

•  IF  EQ,  NO 

BIS 

*ZF.MFL,C.FLG(RO 

)  ;  MARK  THE  PROCESS  FOR  LOAD 

BR 

10$ 

LOOK  FOR  MORE  WORK 

,,  L  ?, 
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PRMERR  -  PRINT  PARAMETER  ERROR  TEXT 


SE 
Fl 


310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 

324  001316 

325  001316 

326  001322 

327  001326 

328  001330 

329  001334 

330  001336 

331  001342 

332  001344 

333  001346 

334  001350 
355  001354 

336  001360 

337  001364 

338  001374 

339  001402 
340 

341 
342 


.SBTTL  PRMERR  -  PRINT  PARAMETER  ERROR  TEXT 

'**  PRMERR  -  PRINT  PARAMETER  ERROR  TEXT 

INPUT:       RO  =  PVC  TEMPLATE  ADDRESS 

CALLING  SEQUENCE: 

JSR     R1, PRMERR 

.WORD   TEXT  ADDRESS,  TEXT  LENGTH 

ALL  REGISTERS  ARE  PRESERVED. 


PRMERR: 


012702  000336' 

005042 

156012  000003G 

005042 

156012  000002G 

012142 

012142 

012700  OOOOOOG 

012701  000210' 
004767  OOOOOOG 


000201 
000001 


SAVRG 

<R0,R2> 

MOV 

#SCR+10,R2 

CLR 

-(fi2) 

BIS8 

P$VNAM+3(R0) 

CLR 

-(R2) 

Bise 

P$VNAM+2(R0) 

MOV 

(R1)+,-(R2) 

MOV 

(R1)+,-(R2) 

SAVR6 

<R1> 

MOV 

#$SUFF,RO 

MOV 

#ERRPRM,R1 

CAlL 

SEDMSG 

PRINT 

#$8UFF 

RESRG 

<R1,R2,R0> 

RTS 

Rl 

.END 


,(R25 
,(R2i 


SAVE  REGISTERS 

POINT  TO  SCRATCH  AREA 

TRIB  NUMBER 

CONTROLLER  NUMBER 

TEXT  STRING  ADDRESS 

TEXT  SRING  LENGTH 

SAVE  REGISTER 

POINT  TO  TEXT  BUFFER 

POINT  TO  CONTROL  STRING 

BUILD  MESSAGE 

PRINT   T 

RESTORE  REGISTERS 

RETURN 


,.AC       f\7l. 


C     A 

.ac     AC . 07 


SETREM  - 
FINREM  - 

2A0 
241 
2A2 
2A3 
24A 
2A5 
246 
2A7 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 


B  5 

SET  REMOTE  NODE  OPTION  MACRO  V0?.03b  Monday  Ol-Jut-85  16.37  Page  6 
flND  NEXT  REMOTE  IN  SORTED  LIST 


000276 
000276 
000302 
000304 
000306 
000310 
000316 
on-.. 20 
0.''032t 
00033C 


012702 
010201 
011202 
001410 
122762 
001371 
026062 
103365 
'  '^0207 


.SBTTL  FINREM  -  FIND  NEXI  ncMOTE  IN  SORTED  LIST 
FINREM  -  FIND  NEXT  REMOTE  IN  SORTED  LIST 


INPUTS 


RO 


TEMPLATE  TO  BE  INSERTED 


OUTPUTS: 

R1  =   ADDRESS  OF  TEMPLATE  TO  PRECEED  CURRENT  TEMPLATE 


OOOOOOG 


FINREM: 
10$: 


OOOOOOG  OOOOOOG 
OOOOiO  000010 


20$: 


MOV  *$TMLST,R2 

MOV  R2,R1 

i-py  (R2),R2 

BEQ  20$ 

CMP8  *CS.REM,C.5TS(R2) 

BNE  10$ 

CMP  C.ADD'R0),C.ADD'R2) 

BHIS  10$ 

RETURN 


GET  START  ADDRESS  OF  TEMPLATES 
SAVE  ADDRESS  OF  PREVIOUS 
GET  NEXT  TEMPLATE  IN  LIST 
IF  EQ,  END  OF  LIST 
U  THIS  A  REMOTE  TEMPLATE  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
ELSE,  DOES  TEMPLATE  GO  HERE  ' 
IF  HIS,  NO  ..  KEEP  LOOKING 
ELSE,  OKAY 


inc  n7k 


c  5 


•  ♦FILE«MD'«SETROU 
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5SSSSSSS 

EEEEEEEEEE 

TTT7TTTTTT 

RRRRRRRR 

000000 

UU      UU 

5s?'>;sss 

EEEEEEEEEE 

TTTTTTTTTT 

RRRRRRRR 

000000 

UU      UU 

5S 

EE 

RR      RR 

00 

00 

UU      UU 

ss 

EE 

RR      RR 

UO 

00 

UU      UU 

ss 

EE 

RR      RR 

OU 

00 

UU      UU 

ss 

EE 

RR      RR 

00 

00 

UU      UU 

SSSS5S 

EEEEEEEE 

RRRRRRRR 

00 

00 

UU      UU 

SSSSSS 

EEEEEEEE 

RRRRRRRR 

00 

00 

UU      UU 

ss 

EE 

RR   RR 

UU 

00 

UU      UU 

SS 

EE 

RR   RR 

00 

00 

UU      UU 

ss 

EE 

RR    RR 

00 

00 

UU      UU 

ss 

EE 

RR    RR 

00 

00 

UU      JU 

ssss^sss 

EEEEEEEEEE 

RR      RR 

000000 

UUUUUUUUUU 

ssssssss 

EEEEEEEEEE 

TT 

RR      RR 

000000 

UUUUUUUUUU 

LL 

ssss;sss 

TTT 

'TTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

L 

ss 

LL 

ss 

LL 

SrSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

lL 

SS 

LL 

SS 

ILLLLLLLLL 

SSSSSSSS 

LLLLlLLLlL 

S'^SSSSS 

c  ^ 


r 
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S8 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 


87 

88 

89 

90 

91 

000000 

92 

93 

000000 

9A 

000002 

95 

OOOOOA 

96 

000006 

97 

000010 

98 

000011 

99 

000012 

100 

101 

102 

ooooc: 

103 

lOA 

OCMOOO 

105 

106 

107 

108 

109 

110 

111 

000006 

112 

000057 

113 

G00063 

1U 

000000 


^OOOIA 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 

PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT->oo> 

MOV  TEXT.kO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

*  *** 
LOCAL  DATA 


DEFINE  THE  SLT  TEMPLATE 


C.NAM 
C.FL6 
C.CNT 
CUNT 
C.CT: 


.ASECT 

.=0 

.BLKW 

.8LKU 

.BLKU 

.BLKW 

.8LK8 

.BLKB 

.BLKW 


C.LEN=. 
ARGLST: 


.PSECT 
.BLKW 


ERROR  TEXT  STRINGS 


002 

EXSERR 

=  2 

.NLIST 

BEX 

002 

103 

106 

ERRACT: 

.ASCII 

<EXSERR>/CFE 

055 

0A5 

115 

ACTOPT: 

.ASCIZ 

/-XM/ 

002 

103 

106 

ERRSTA: 

.ASCIZ 

<EXSERR>/CFE 

.EVEN 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


C.LNK 

C.STS 

THE  DDM  PROCESS  NAME 

THE  SLT  FLAGS  WORD 

THE  DDM  CONTROLLER  NUMBER 

THE  DDM  UNIT  NUMBER 

THE  COUNTER  TIMER 


Circuits  still  actije,  line  XR-XM/ 

Can't  enable  multipie  circuits  on  endnode/ 


L  7 


SETSLT   -   SET    SLT   PARAMETERS 
Symbol   table 
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ACTERR 

001226R 

EX$ERR= 

000002 

0C.STA= 

******  GX 

SW.SDI= 

****** 

GX 

$COMP  = 

******  GX 

ACTOP' 

000057R 

FL.MTP= 

**••«*  GX 

OL.CTM= 

*■««***  GX 

SU.SEN= 

****** 

GX 

$CT 

»*♦**■•  GX 

ARGLST 

OOOOOOR 

FL.MUX= 

»**«««  GX 

OL.STA^ 

******  GX 

S$LBRA=: 

****** 

GX 

$EDMSG= 

******  GX 

CHKSTA 

00133AR 

FL.PVC- 

»n**»  GX 

SEICIR 

000504R 

S$LCTT= 

****** 

GX 

$FLAGS= 

♦♦**«*  GX 

CO.LIN= 

******  GX 

FL.TRI= 

******  GX 

SETLIN 

000354R 

S$LFLG= 

****** 

GX 

$FNSTA= 

******  GX 

CS.MOD= 

****»«  GX 

FNDACT 

001160R 

SETPTP 

00057uR 

S$LHTM= 

****** 

GX 

$HTM  = 

******  GX 

CS.STA= 

.*»*«*  GX 

LF.ENA= 

******  GX 

SETSTA 

001O02R 

S$LRPR= 

****** 

GX 

$OPRND= 

******  GX 

C.CMT 

000310 

LF.MFL= 

*«*••»  GX 

SF.ErA= 

******  GX 

S$LTYP= 

****** 

GX 

$SAVRG= 

******  GX 

C  ^  T 

000012 

LF.MTP^ 

**»»«»  GX 

SF.SER= 

******  GX 

S$TFLG= 

****** 

GX 

$SAVVR= 

******  GX 

C  .FLG 

V  W  \J  ^^     '    ^- 

000006 

LF.SER= 

*«**»«  GX 

Sl$CTM= 

******  GX 

WC.CIR= 

****** 

GX 

SSESLT 

000116RG 

C  .LEN  = 

00001^, 

NF.END= 

*♦«**«  GX 

SL$HTM= 

»**♦*♦  GX 

$8UFF  = 

****** 

GX 

$STAN  = 

******  GX 

C.NAM 

000004 

OC.CTM= 

••*♦»*  GX 

SL$TYP= 

******  GX 

$CFERR= 

****** 

GX 

$SWKH= 

******  GX 

C  .STS  = 

**♦*•»  fx 

OC.HTM= 

'***♦*  GX 

ST$HTM= 

*«**,*  GX 

SCIMXR= 

****** 

GX 

$TMLST= 

******  GX 

f"  .UNT 

000011 

0C.MXR= 

»*•»•*  GX 

SU.ENA-- 

******  GX 

$CIRPR= 

****** 

GX 

$WILD  = 

******  GX 

ERRACT 

000006R 

OC.RPR= 

*♦**«»  GX 

SW.LOA= 

******  GX 

tCNFlG= 

****** 

GX 

.FNSLT= 

******  GX 

ERRSTA 

000063R 

.  ABS. 

OOOOU    000 
001572    001 

{RW,I,GBL,ABS,0VR) 
(RW,!,LCL,REL,CON) 

Errors 

detected:  0 

.»*   Assembler    statistics 


Work  file  reads 
Work  file  writes 
Size  of  work  f  i le 
Size  of  core  oool 
Operating      s'/3te?n 


0 

8549  Words      ■'   34   Pages) 

14440  Words      (    55   Pages) 

RSX-IIM/PLUS 


SYtsEfsLKv2;n?2,134jSEfsLT/rR/-SP  =  SV:Ll,1]R5XMCM.SML/ML,[130,110]NErLIB/ML,ri32,10]SETSLT 


EI 
Ef 
PI 
S> 


C     8 


r 


SETSVC  CREATED  BY     MACRO     ON  29-JUM-85   AT   05:24 

MACRO  CROSS   REFERENCE 
MACRO  NAME  REFERENCES 


B     9 

PAGE   2 

CREF        04.00 


EPRIN' 

*4-73 

ERRORS 

#4-62 

5-19 

PRINT 

#4-57 

SVCDFi 

#4-83 

4-85 

5-215 


5-216 


1 


C     9 


5ETUNT  CREATED   BY      MACRO     ON   12-AJG-85   A!    15:02 

mr-id   CROSS  REfERENCE 

WIACRO  NAME  REFERE^^CES 

4-91 

5-227  7-318 


B  10 

PAGE   3 

CREF       OA.OO 


SET 
LOC 


fHADF$ 

#A-89 

EPRIMT 

*4-75 

ERRORS 

#4-64 

PRINT 

*4-59 

1 


C  10 
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SETX3P  -  SET  X.25  LEVEL  3  PARAM  MACRO  V05.03b  Saturday  29-Jun-85  05:25  Page  5 
LOCAL  DATA 

86  .S8TTL  LOCAL  DATA 

ERROR  TEXT 


89 

90 

91 

92  OOOCOO 

93 

9A 


000002                    EXSERR  =  2 

.NLIST  BEX                   .      .   , 

002     103     106  ERRX3P:  .ASCI7  <EX$ERR>/CFE  —  No  X5P$DF  in  database/ 

.LIST  BEX 


7  n  A  n  A  M 


ran     wHt;  n^K  C  ^¥.  .r-A^^,     "30-  I 


C  11 


BUFR 
fS.OBJ  = 
C.CPY 
C.FLG 
C.LEN  = 
C.NAM 

STS  = 

TYP 
DEFALT 
DFALTL= 
ERROBJ 
EX$ERR= 


B  12 

SHOBJ  -  I  1ST  OBJECT  CHARACTERIS  MACRO  V05.05b  Saturday  29-Jun-85  05:25 
Symbol  table 


Page  5-2 


SHOC 
DlSf 


000362R 

«»»•»«  GX 

000012 

000005 

000013 

000006 


OOOOO'. 
00051 1R 
000007 
OOOOOOR 
000002 


GX 


HEADR 

HEADRl 

HFLAG 

INSP 

INSPL  = 

LOGIN 

LOGINL= 

MSIBLK 

MS2BLK 

MS3BLK 

OFF 


OOOO^i^R 

oooniR 

000536R 

000325R 

000007 

000304R 

000005 

000340R 

000342R 

000352R 

000322R 


OFFL   = 

000003 

O.MXC 

000004 

WHATL  = 

000001 

OF.PRO= 

0000^0 

O.NAM 

000006 

$BUFF  = 

«♦*•♦*  GX 

OF.RLU= 

000100 

O.TVP 

000002 

$CeDMG= 

*«»«**  GX 

OF.SMC= 

000200 

OlMSG 

000165R 

$CFERR= 

♦*••**  GX 

ON 

000320R 

02MSG 

000202R 

$EDMSG= 

»«♦***  GX 

ONE 

000276R 

03MSG 

000243R 

$GT8UF= 

******   GX 

ONEL   = 

000006 

TBLI 

000372R 

$PRINT= 

******   GX 

ONL 

000002 

TCL2 

000402R 

SSHOBJ 

000450RG 

O.FLG 

000003 

VT8L 

OOOIIOR 

$TMLST= 

******   GX 

O.LEN 

000012 

WC.OBJ= 

******  GX 

$TNUM  = 

*»*»♦*  GX 

O.LNK 

000000 

UHAT 

00033''.R 

$WILD  = 

******   GX 

ABS.  000013 
001066 
Errors  detected: 


000 
001 
0 


(RW,1,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 


•   Assernbler   statistics 

Work      fUe      reads:  0 

Work      tile   writes:  0 

Size  of   work    file:  8588  Words      (   3A   Pages) 

Size  of   core  pool;  14440  Words      {    55  Pages) 

Operating     system:  R5X- i 1M/PLUS 

SY:SHOBj!v2!b32!°34]SHOBJ/CR/-SP=SY:[1,1JRSXMCM.SML/f^L,[130,110]NETLI6/ML,[132,10JSHOBJ 


IM-B';     AT     0K-7K 


C  12 


B  13 

SHOCIR  -  LIST  CIRCUIT  CHARACTER  MACRO  V05.05b  Thursday  29-Aug-85  11:51 
OISPLV  -  DISPLAY  TRANSPORT  CIRCUIT  INFO 

41^  002706  004767  OOOOOOG 

A15  002712 

416  002722  000207 

417 


Page  6-1 


CALL 

SEDMSG 

;  FORMAT  IT 

PRINT 

#$8UFF 

;  PRINT  IT 

10$: 

RETURN 

;  PONE 

SH 

Sy 
DB 


TCT    rrDriilT    ruADAfTPD    MAfDn    \/n^    n^h    Thiirt:H;i\ 


C  13 

PQ-Aun-R"!    11  fSl 


Psae    7 


L 


B  H 

SHOCIR  -  LIST    CIRCUIT   CHARACTER  MACRO  V05.03b   Thursday  29-Aug-85   11:51      Page   13-2 
Symbol   table 

DB2:SHOCIR.T65,C152,13'.]SHOCIR/CR/-SP=DB2:[1,1]RSXMCM.SML/ML,[MO,110]NETL1B/ML,[132,-OJSHOC1R 


SHC 
$Sh 


CLinr  I  D 


TDCATPh     DV         MATDn         OM     5Q-Alir,-Sr      AT      11   -SI 


PAHF      1 


C  K 


B  15 

SHOEXF  -  LIST  EXECUTOR  OPTIONS  MACRO  V05.05b  Saturday  29-Jun-85  05:25  Page  5-1 
SSHEXE  -  SHOW  EXECUTOR  CHARACTERISTICS 


2^A  0016A? 

246  001646 

247  001654 

248  001656 

249  001664 

250  001666 
251 

252 
253 

254  001672 

255  001674 

256  001676 

257  001704 

258  001706 

259  001714 
260 

261 
262 

263  001716 

264  001722 

265  001724 

266  001726 

267  001732 

268  001740 
269 

270  001742 

271 

272 

273 

274  001746 

275  001752 

276  001754 

277  001760 

278  001764 

279  001770 
280 

281 
282 

283  001774 

284  0G2000 

285  002004 

286  002012 

287  002016 

288  002022 

289  002026 

290  002032 

291  002036 

292  002042 

293  002046 
294 

295 
296 

297  002056 

298  002062 

299  002064 

300  002070 


001052 
OOOOOOG 
OOOOOOG 
OOOOOOG 


C00167 

122765 
001370 
026327 
001364 
012703 


011303 
001410 
122763 
001372 
022763 
001366 


012704 
011404 
001002 
000167 
122764 
001370 


012702  001460' 


J  MP 

OOOOOOG  80$:    CMP8 
BNE 

017704  CMP 
BNE 
MOV 


260$ 


ELSE,  END  OF  TEMPLATES 


#CS.LLC,C.STS(R3)  ;    IS    THIS  AN  LLC    TEMPLATE 

70$  ;  IF   NE,    NO  -  KEEP   LOOKING 

C.PRM(R3),*"RECL  ;    IS    THIS    THE   ECL   LLC    ? 

70$  ;  IF   NE,    NO    ..    KEEP  LOOKING 

*$TMLST.,R3  ;  POINT  AGAIN 


SEARCH   FOR    THE   NSP   FEATURES    TEMPLATE 


^0$: 


OOOOOOG 
051516 

OOOOOOG 


001000 
OOOOOOG 


OOOOOOG 
OOOOOOG 


MOV 

BEQ 

CMPB 

BNE 

CMP 

BNE 


(R3),R3 

100$ 

#tS.FEA,C.STS(R5 

90$ 

*"NS,C.PRM(R3) 

90$ 


SEARCH  FOR  THE  [)EC$DF  TEMPLATE 


100$: 
110$: 


0000006   120$: 


MOV  #$TMLST.,R4 

MOV  (R4),R4 

BNE  120$ 

JMP  270$  , 

CMP8  #CS.DEC,C.STS(R4) 

BNE  110$ 

MOV  *MSGeLK,R2 


016512 
010501 
062701 
010162 
012701 
004767 


01V02 

016512 

016562 

012700 

012701 

004767 

016501 

004567 

000332' 

004767 


000010 

000012 
000002 
000264' 
000750 


001460' 

000004 

000006     000002 

OOOOOOG 

000314' 

OOOOOOG 

000052 

00734 

000364' 

001036 


012702  001460' 
005012 

005062  000002 

116412  000012 


NODE  ID 

MOV  C.NID(R5),(R2) 

MOV  R5,R1 

ADD  *C.NIDt2,R1 

MOV  R1,2(R2) 

MOV  #IDMSG,R1 

CALL  PRINT 

NAME,  ADDR'SS,  AND  HOST 

MOV  *MSGBLK,R2 

MOV  C.NAM(R5),(R2)   ; 

MOV  C.NAM+2(R5),2(R2) 

MOV  #$8UFF,R0 

MOV  *NAMMSG,R1 

CALL  $EDMSG 

MOV  C.NUM(R5),R1 

JSR  R5,PUTADR 

.WORD  ADDMSG,ADDMS2 

CALL  PUTHST 

PRINT  #$8UFF 

INCOMING  TIMER,  OUTGOING  TIMER 


GET  NEXT  TEMPLATE 

IF   EO,    END  OF    TEMPLATES 

;    IS    THIS   A  FEATURES    TEMPLATE    ? 

IF   NE,    NO    ..    KEEP  LOOKING 

IS   THIS    THE   NSP   FEATURES    TEMPLATE 

IF   Nt,    NO    ..    KEEP  LOOKING 


POINT  AGAIN 

GET  NEXl  TEMPLATE 

BR  IF  ONE  EXISTS 

BR  IF  NO  DEC$DF  MACRO 

;  IS  TH'S  THE  DEC$DF  MACRO? 

BR  IF  NO 

POINT  R2  AT  ARGUMENT  BLOCK 


STORE  THE  LENGTH  OF  THE  STRING 
COPY  NODE  TEMPLATE  ADDRESS 
CALCULATE  ADDRESS  OF  THE  ID  STRING 
STORE  STRING  ADDRESS 
POINT  Rl  AT  THE  FORMAT  STRING 
PRINT  IT 


POINT  AT  ARGUMENT  BLOCK 
STORE  THE  NODE  NAME 

POINT  TO  BUFFER 

DITTO  FOR  FORMAT  STRING 

FORMAT  EXECUTOR  NAME 

GET  ADDRESS 

PUT  TWO  WORD  PHASE  4  ADDRESS 


MOV 
CLR 
CLR 

MOVB 


*MSG8LK,R2 

{R2) 

2(R2) 

C.INCT(R4),(R2) 


NOW  DO  HOST, 
SHIP  IT 


REMOTE  NODE  STYLE 


POINT  R2  AT  ARGUMENT  BLOCK 
INITIALIZE  ARGUMENT  BLOCK 

STORE  INCOMING  TIMER 


ICT    cvCfMTnD    nDTIflKK       MATRn    \'0^    fT^h    ';Ati]rH;iv    ?9- 


C  15 

hin-85   05:25      Psap    5-2 


[ 


B  16 

SHOLIN  -  LIST  LINE  CHARACrERIST  MACRO  V05.03b  Saturday  29-Jun-'"^  05:26 
Table  nt  contents 

5-  285  SSHLIN  -  SHOW  LINE  CHARACIERlSflCS 

6-  365  DISPLV  -  DISPLAY  LINE  rHAHACTERISTICS 

7-  <;20  GFTUNT  -  GET  THE  UNIT  INFORMATION 

8-  522  GlTURM  -  GET  UNIBUS  RuN  MASK  ,,  ^ 
<^  566  GETSLT  -  GET  THE  LOADING  INTORMATION  CO-ROUTINE 

IL-  663    FMTLIN  -  FORMAT  A  LINE  ID 


C  16 

jAOA.'TCDi  CT   MAron   v/n";   n^h    <;ariirrijv    ^Q- lun-RS    nS:?A      Psnp    3 


SETNSP     CREATED  Bv  MACRO  OM  29-JUN-85  AT  05:22 
MACRO  CROSS  REFERENCE 
MACRC  NAME      REFERENCES 


C  1 

PAGE  3 

CREF   0^.00 


DEC^Pt 

#^-57 

4-59 

EPRINT 

#4-83 

ERRORS 

#4-72 

5-196 

LLCTP$ 

#4-57 

4-60 

NSFDF$ 

#4-57 

4-61 

PRiN' 

#4-67 

5-198 


5-200 


D  1 


-J         L 


SEToaj  CREATED  BV 

MACRO  CROSS   REi'ERE^CE 


MACRO     OH  P9-JUN-65    AT   05:22 


PAGE 
CREf 


C     2 


0^.00 


MACRO  NAME 

REFERENCES 

EPRINT 

#A-76 

ERRORS 

#4-65 

5-156 

ISTATS 

#4-00 

ObJDF$ 

#4-90 

4-02 

PRINT 

#4-60 

STATES 

#4-90 

TRANS 

#4-90 

-186 


5-224 


5-226 


5-228 


0     2 


05:2! 


SE'PRO  -  SET  PROCESS  OPTIONS    MACRO  V05.03b  Saturday  29-Jun-85  05:2!  Page  5-1 
tSEPRO  -  SET  PROCESS  PARAMETERS 

152 

155  000266  000207  30$:    RE 'URN 
15^ 
155 

156  000001  .EMD 


0  3 


L_ 


5ETPVC    -   SET    PVC   PARAMETERS 
SymDol   table 


C     A 

MACRO  V05.05b  Saturday  29-Jun-85  05:23     Page  7-1 


Operatir.g      system:    RSX-11M/PLUS 

SV:SEfpvc'v2![°3^??^AJ5FT'=Vf/CR/-SP=SV:[1  J  ]RSXMCM.SML/f1L,[1 30,1-;  (l-jNETLIB/flL,  [132,1  OTSETPVC 


SE 

UPI 


co.«.Nr  = 

«».«.»  5X 

FL.DLM= 

««*♦»*  6X 

P$VNAM= 

******  GX 

WC.UNT^ 

****** 

GX 

$MBL  = 

****** 

GX 

CS.DTE= 

«•*♦♦»  GX 

FOUND 

O0C324R 

P$V0WN= 

*»**«»  GX 

X$LENX= 

****** 

GX 

SMWI  = 

****** 

GX 

cs.p'yr= 

***t*«  GX 

OC.CHN- 

»***«*  GX 

P$VPSZ= 

*«*♦**  GX 

SBUFF  = 

****** 

GX 

SOPRND- 

****** 

GX 

r$LEMX- 

.»»■<»»  GX 

OC.CTM= 

*«*•*»  GX 

P$VSTA= 

****»»  GX 

$SYTMN= 

****** 

GX 

$PRIN)T  = 

****** 

GX 

C.STS  = 

*.-»»«  GX 

OC.DTE= 

******  GX 

P$VWSZ= 

******  GX 

$BYTXT= 

****** 

GX 

$PSIPT= 

****** 

GX 

0$TADR= 

.♦»»»«  GX 

OC.MBL= 

******  GX 

SCR 

000326R 

$CFERR= 

****** 

GX 

$RLBF  = 

****** 

GX 

ERRALL= 

******  GX 

OC.MWI= 

».*♦»*  GX 

SETDTE 

001212R 

$CHN  = 

****** 

GX 

$RQBF  = 

****** 

GX 

ERRCHN 

0001A5R 

OC.STA= 

******  GX 

SW.ENA= 

******  GX 

$C1RID= 

****** 

GX 

SSEPVC 

000346RG 

EPRDTE 

0000A5R 

PRMERR 

001316R 

"XDAT 

000272R 

$CNTNM= 

****** 

GX 

SSTAN  = 

****** 

GX 

ERRPAR 

0001 06R 

PV$PSZ= 

******  GX 

TXDATL^ 

OOOOH 

SCOMP  = 

****** 

GX 

$SWICH= 

****** 

GX 

ERPPRM 

000210R 

PVSWSZ-- 

.**♦.*  GX 

TXWND 

000'06R 

$CT 

****** 

GX 

$TMLST= 

****** 

GX 

ERRPVC 

OOOOOOR 

p%\ia   = 

******  GX 

TXWNDL= 

000016 

$DTE  = 

****** 

GX 

$W1LD  ^ 

****** 

GX 

EX$ERR= 

000002 

P$VLCN= 

*«*»*»  GX 

UC.CNT= 

*»»«**  GX 

$EDMSG= 

****** 

GX 

$XXAVL= 

****** 

GX 

FL.CRE= 

******  GX 

P$VLEN= 

******  GX 

WC.TRI= 

***«».  GX 

$FLAGS= 

****** 

GX 

.  ABS. 

OOUOOO 
001AOA 

000 
001 

{RW,i,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 

Errors 

detected: 

0 

•*«  Ass 

embl-r  stat 

i'  s  t  i  c  s 

Work   f 

ite  reads 

ij 

Jor^   f 

lie  writes 

0 

Size  of 

work  file 

8656 

Words 

(  34  Pages) 

Size  of 

core  pool 

H'.AO  Words 

(  55  Pages) 

l_ 


-QC      AT      fll^.T? 


D     4 


r 


C  5 

SETREM  -  SET  REMOTE  MODE  OPTION  MACRO  VO5.03b  Monday  C1-Jul-85  16:37  Page 
UPDDLL  -  UPDATE  DLL  PARAMETERS 


26'. 
265 
266 
267 
268 
"69 

'272 
273 
27A  000332 

275  0003A0 

276  0003A2 
:'77  0003A6 
278 

279  000352 

280  00035/, 

281  000356 

282  000360 

283  000362 
28A  00036A 

285  000366 

286  000372 

287  00037A 

288  000376 
289 

290  000400 

291 

292  000402 

293 

294  000402 

295  000416 

296  0C0432 

297  000446 

298  000462 

299  00C476 

300  CC0512 

301  000526 
312  U00542 

303  000556 

304  000572 

305  000606 

306  00062? 

307  C0C636 
308 


.senL 

*»  -  UFDDLL  - 
INPUTS: 

OUTPUT: 


032767  OOOOOOG  OOOOOOG  UPDDLL:  BIT 

00K17  BEQ 

004767  r00672  CALL 

012705  j0040c^'  MOV 


UPDDLL  -  UPDATE  DLL  PARAMETERS 

UPDATE  "OWNLINE  LOAD  DATABASE 

SOPRND  =  PARSED  OPTIONS. 

RO      =  ADDRESS  OF  REMOTE  BLOCK 

THE  DLL  DATABASE  IS  UPDATED. 


012504 

001411 
012500 
012503 
012501 
012502 
032567 
001767 
004714 
000765 

000207 


000640' 
000640' 
000662' 
000640' 
000640' 
000640' 
000640' 
000640' 
000702' 
000702' 
000702' 
000702' 
000702' 
000000 


10$: 


OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
0000006 
OOOOOOG 


000002 
000020 
OOOOCO 
000100 
00020C 
000010 
000004 
000040 
000000 
000000 
000000 
000000 
000000 


20$: 

DTBL: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.  WORD 
.WORD 
.WORD 
.WCiD 
.WORD 
.WORD 


MOV 

BEQ 

MOV 

MOV 

MOV 

MOV 

BIT 

BEQ 

CALL 

BR 

RETURN 


#RN.XXX,$OPRND 

20$ 

GETDLL 

#DTaL,R5 

(R5)+,R4 

20$ 

(R5)+,R0 

(R5)+,R3 

(R5)+,R1 

(R5)+,R2 

(R5)t,$0PRND 

10$ 

(R4) 

10$ 


SETWOR, 
SETWOR. 
SETBIT. 
SETWOR, 
SETWOR, 
SETWOR, 
SETWOR. 
SETUUR, 
SETFIL, 
SETFIL, 
SETFIL, 

:etfil, 

SETFIL, 
0 


$RNHOS,  SF.HST, 

$RNSDV,  SF.DEV, 

$SWICH,  0, 

$RNOPA,  SF.DPA, 

$RNDCP,  SF.DPC, 

$RNSCI,  SF.CIR, 

$RNHAR,  SF.HAD, 

$RNSPA,  SF.PSS, 

$RNSL0,  0, 

$RNTLO,  0, 

$RNL0D,  0, 

$RNDJ,',  0, 

$RNDMP,  0, 


S$HST, 

S$DEV, 

S$FLG, 

S$DPA, 

S$DPC, 

S$CIR, 

S$HAD, 

S$PSS, 

F$SEC, 

F$TER, 

F$LD, 

r$DIA, 

F$DUM, 


DLL  PARAMETERS  PRESENT  ? 
IF  EQ,  NO  DONE 
POINT  TO  SER$DF,FIL$DF 
DISPATCH  TABLE 

GET  NEXT  ROUTINE  ADDRESS 

IF  EQ,  DONE 

SOURCE  ADDRESS 

GET  TEMPLATE  FLAG  BIT 

GET  DESTINATION  OFFSET 

GET  COUNT  (OR  TARGET  BIT  VALUE) 

WAS  THIS  OPTION  PARSED  ? 

IF  EQ,  NOPE 

ELSE  CALL  ROUTINE 

CONTINUE 


1, 

1, 

SF.PH3, 

2, 

1, 

4, 

4, 

6, 

0, 

0, 

0, 

0, 


RN.HOS 
RN.SDV 
RN.SNV 
RN.DPA 
RN.DCT 
RN.SCI 
RN.HAR 
RN.SPA 
RN.SLO 
RN.TLO 
RN.LOD 
RN.DIA 
RN.DMP 


Host  node  address 
Service  device 
Service  node  version 
Dump  address 
Dump  count 
Service  circuit 
Hardware  address 
Service  password 
Secondary  loader  file 
Tertiary  loader  file 
Load  file 
Diagnostics  file 
Dump  file 
table  stopper 


i;nc  n7h  tji^ 


L 


SETROu  -  SET  EXECUTOR  ROUTIMG  0  MACRO  V05.03b  Saturday  29-Jun-85  05 
Table  of  content; 

S-  1U    SSEROU  -  SET  ROUTING  PARAMETERS 


'-:§, 


c: 


jArnr,  i,r\K     (TZk  C5f,,n,^aw  DO-  h 


0  6 


[ 


SE'SLT    -   SET    SLT   PARAMETERS 


1  15 
116 


C  7 

MACRO  V05.03b  Saturday  29-Jun-85  05:2^  Page  3-2 

.LIST  BEX 


D  7 


SETSlT  created  by      macro     on   29-JUNJ-85   AT   05:24 

SYMBOL   CROSS   REFERENCE 


SYMBOL     VALUE 


ACTERR 

ACTOPT 

ARGLST 

CHKSTA 

CO. LIN 

CS.MOD 

CS.STA 

r.CNT 

C.CT 

C.FLG 

C.LEN 

C.rAM 

C.STS 

CUNT 

ERRACT 

ERRSTA 

EXSERR 

FL.MTP 

FL.MUX 

FL.PVC 

FL.TRI 

FNDACT 

LF.ENA 

LF.MFL 

LF.MTP 

LF.SER 

NF.ENt) 

OC.CTM 

01. HTM 

OC.MXR 

OC.RPR 

OC.STA 

OL.CTM 

OL.STA 

SETCIR 

SETLIN 

SETPTP 

SETSTA 

SF.ENA 

SF.SER 

SLSCTM 

SLSHTM 

SLST^P 

STSHTM 

SW.ENA 

SiJ.LGA 

SW.SDI 

SiJ.SEN 

SSLBRA 

SSLCTT 

S$LFLG 


001225  R 
000057  R 


000000 
001334 

r  ****** 
::  ****** 

~  000010 
000012 
000006 

=  OOOOU 
000004 

~   ****** 

000011 

000006 

000063 

=  000002 

r  ****** 
-  ****** 


****** 

001160 
****** 
♦  *  t  *** 
****** 
****** 
****** 
****** 
**»*+* 
****** 
****** 
****** 
****** 

000504 
000354 
000570 
001002 
****** 
****** 


****** 
****** 
****** 


R 

R 
GX 
GX 
GX 


GX 

R 
R 

GX 
GX 
GX 
GX 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

R 

R 

R 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
CX 
GX 
GX 
GX 


REFERENCES 

5-220 
#3-112 
#3-10A 

4-K2 

4-139 

4-151 

9-405 
#3-97 
#3-99 
#3-96 
#3-101 
#3-95 
»4-151 
#3-98 
#3-111 
#3-113 
#3-109 

8-347 

10-436 

4-136 

4-141 

5-218 

5-225 

5-202 

5-196 

7-325 

11-464 

4-153 

4-172 

4-153 

4-162 

4-172 

4-153 

4-172 

4-178 

4-176 

5-198 

5-217 

8-358 

8-371 

4-156 

7-319 

7-311 

8-367 

5-213 

5-204 

4-170 

4-170 

•4-160 

«4-155 

5-196 

7-295 


#10-426 

»10-435 

10-431 

#11-455 

4-174 

8-357 

10-433 

7-309 

10-432 
^4-156 
10-439 
10-429 
11-501 
3-111 
9-396 


6-263 
5-262 
5-206 
6-251 
7-328 


7-307 


7-291 

8-355 
#6-247 
#5-195 

6-253 

6-257 
8-361 
8-374 


5-260 
5-226 
7-323 
7-323 


5-202 
»7-299 


*10-438 
10-441 

7-293 
8-365 


7-311 


3-113 
11-487 


#9-395 
5-265 
5-225 
7-309 


8-363 

8-355 

11-452 


#7-285 

#8-346 

9-407 


7-297 
7-300 
7-326 
8-369 


»5-205 
»7-302 


C  8 

PAGE  1 

CREF   04.00 


»7-319 


*8-357 


*8-355 


*8-367 


9-405 


7-299 
5-228 
11-477 


11-462 


11-498 


7-303 
8-369 


•5-225 
'7-iC5 


7-305 
5-258 


11-491 
5-255 


7-295 


7-299 


7-302 


8-359 
8-372 


•5-228 
*7-325 


11-466 


5-251 
•7-328 


5-258 

ii-i-gi 


•6-252 


♦6-265 
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EEEEEEEEEE 
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ssssssss 

TT 

^TTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

^L 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 
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LL 
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LL 

ss 

LL 

ss 

LLLLLLLLLL 
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•F1LE'«1D'«SETX2P 
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SET 
$5E 


SSSS3SSS 

EEEEtEEEEE 

TTTTTl 

TTTT 

XX      XX 

222222 

PPPPPPPP 

ssssssss 

EEEEEEEEEE 

TTTTT 

TTTT 

XX      XX 

222222 

PPPPPPPP 

ss 

EE 

XX      XX 

22     22 

PP     PP 

ss 

EE 

XX      XX 

22     22 

PP     PP 

ss 

EE 

XX   XX 
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22 
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SS5SS3 

EEEEEEEE 

XX 
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XX 
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EE 
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22 
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XX      XX 

22 
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ssssssss 

EEEEEEEEEE 

T 

XX      XX 

2222222222 

PP 

ssssssss 

EEEEEEEEEE 

XX      XX 

2222222222 

PP 

LL 

ssssssss 

TTTTTTrTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 
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LL 

ss 

LL 
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LL 

ss 

LL 

ssssss 

LL 

SSSSSS 

LL 

ss 

LL 

SS 

LL 

ss 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

0  10 


n    r; 


SETX5P 
tSEXjP 


SET    X.25   LEVEL 
SET    X.25   LEVEL 


h-.r. 


96 
97 
98 
99 

100 
101 
102 
103 
104 
105 
106 
107 
108 

109  000036 

110  000036 

111  000042 

112  000044 

113  000046 

114  000054 

115  000056 

116  000064 
i;7  000066 
118 

119  000074 

120  000102 
1?1  000104 
122 

123  000112 

124  000120 

125  000122 
126 

127  000130 

128  000136 

129  000140 
130 

131  000146 

132  000154 

133  000156 
134 

135  000164 

136  000172 

137  0^0174 
138 

139  000202 

140  000210 

141  000212 
142 

143  000220 

144  000226 

145  000230 
146 

147  000236 

148  000244 
'49  000246 

151  000254 

152  000262 


3  PARAM  MACRO  V05.03b  Saturday  29-Jun-85  05:25  Page  6 
3  PARAMETERS 

.SBTTL  $SEX5P  -  SET  X.25  LEVEL  3  PARAMETERS 

»•»  -  $SEX3P  -  SET  X.25  LEVEL  3  PARAMETERS 

IMPUT: 


012700 
011000 
001522 
122760 
001372 
032767 
001403 
116760 

032767 
001403 
116760 

032767 
001403 
016760 

032767 
001403 
116760 

032767 
001403 
116760 

032767 
001403 
016760 

032767 
001403 
116760 

032767 
001403 
116760 

032767 
001403 
116760 


SOPRfJD  =  OPERANDS  PRESENT 


OUTPUT: 


C-8!T  =  SUCCESS/FAILURE 

THE  X3P$DF  TEMPLATE  IS  UPDATED 


03; 

001 


767 
403 


$SEX3P 

10$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

20$: 

OOOOOOG  OOOOOOG 

OOOJQOG  OOOOOOG 

30$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

40$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

50$: 

OOOOOOG  OOOOOOG 

000  OOG  OOOOOOG 

55$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

60$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

65$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

70$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

75$: 

MOV  #$PSIPT,RO 

MOV  (RO),RO 

BEQ  101$  , 

CMPB  #CS.X3P,C.STS(R0) 

BNE  10$ 

BIT  #XP.CTM,$OPRND  ; 

BEQ  20$ 

MOVB  $CALT,X$3CT(R0)  ; 

BIT  #XP.CLT,$OPRND  ; 

BEQ  30$ 

MOVB  $CLT,X$3ICT(R0)  ; 

BIT  #XP.DFB,$OPRND  ; 

BEQ  40$  ; 

MOV  $DFD,X$5DFP(R0)  ; 

BIT  *XP.DFW,$OPRND  ; 

BEQ  50$ 

MOVB  $DfW,X$3DW(R0>  ; 

BIT  #XP.MXU,$0PRND  ; 

BEQ  55$ 

MOVB  $MW;,X$3MW(R0)  ; 

BIT  #XP.MXB,$OPRND  ; 

BEQ  60$ 

MOV  $BSZ,X$3MXP(R0)  ; 

BIT  *XP.MXC,$OPRND  ; 

BEQ  65$ 

MOVB  $MXC,X$3KM(R0)  ; 

BIT  *XP.MRE,$OPRND  ; 

BEQ  70$ 

MOVB  $MRE,X$5RM(R0)  ; 

BIT  *XP.MXR,$0PRND  ; 

BEr^  75$  ; 

MOVB  $MXR,X$3SM(R0)  ; 

BIT  *XP.RET,$OPRN»  ; 

E^Q  80$  ; 


POINT  TO  PSN$DF  TEMPLATE 

NEXT  TEMPLATE 

IF  EQ,  NO  MORE 

;  IS  THIS  A  X3P$DF  TEMPLATE 

IF  NE,  NO  -  KEEP  LOOKING 

CALL  TIMER? 

BR  IF  NO 

UPDATE  TEMPLATE 

CLEAR  TIMER? 
BR  IF  NO 
UPDATE  TEMPLATE 

DEFAULT  DATA? 
BR  IF  NO 
UPDATE  TEMPLATE 

DEFAULT  WINDOW? 
BR  IF  NO 
UPDATE  TEMPLATE 

MAXIMUM  WINDOW? 
BR  IF  NO 
UPDATE  DATA 

MAXIMUM  DATA? 
BR  IF  NO 
UPDATE  VALUE 

MAXIMUM  CLEARS? 
BR  IF  NO 
UPDATE  TEMPLATE 

MAXIMUM  RE:FTS? 
BR  IF  NO 
UPDATE  VALUE 

MAXIMIM  RESTARTS? 
BR  IF  NO 
UPDATE  TEMPLATE 

RESET  TIMER? 
BR  IF  NO 


,yAC   n7u,  C  -,*.. 
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SHOBJ 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT 

05:25 

PAGE  1 

SYMBOL 

:R0SS  REFERENCE 

CREF   04 

.00 

SYMBOL 

VALUE 

REFERENCES 

BUFR 

000562  R 

#4-142 

5-235 

5-237 

5-259 

CS.OBJ 

=  »..♦*•  Gx 

5-192 

C.CPY 

000012 

#4-109 

5-252 

r.FLG 

000005 

#4-107 

5-216 

5-224 

5-250 

I..LEN 

=  000013 

#4-110 

C.N-\M 

000006 

#4-108 

5-214 

5-215 

C.STS 

=  ..«»..  GX 

5-192 

C.TYP 

OOOOOA 

#4-106 

5-196 

5-213 

DEFALT 

000311  R 

#4-126 

4-127 

5-227 

DFALTL 

=  000007 

#4-127 

5-226 

ERROBJ 

000000  R 

#4-116 

5-260 

EXtERR 

=  000002 

#4-115 

4-116 

HEADR 

0000A4  R 

#4-117 

5-204 

HEADRl 

000111  R 

#4-118 

5-207 

HFLAG 

000336  R 

#4-138 

*5-185 

5-201 

♦5-205 

INSP 

000325  R 

#4-132 

4-133 

4-160 

INSPL 

=  000007 

#4-135 

4-160 

LOGIN 

00030A  R 

#4-124 

4-125 

5-223 

LOGINL 

=  000005 

#4-125 

5-222 

MSIBLK 

0OO3A0  R 

#4-159 

4-153 

*5-212 

*5-213 

MS2BLK 

000542  R 

#4-140 

4-154 

•5-214 

•5-215 

•5-220 

•5-221 

MS3BLK 

000352  R 

#4-141 
»5-259 

4-155 

*5-222 

•5-223 

•5-226 

•5-227 

OFF 

000322  R 

#4-150 

4-131 

4-161 

OFFL 

=  000003 

#4-131 

4-161 

OF.RLU 

=  000100 

5-224 

OF. SMC 

=  000200 

5-230 

ON 

000520  R 

#4-128 

4-129 

4-159 

ONE 

000276  R 

#4-122 

4-123 

5-229 

ONEL 

=  000006 

#4-125 

5-228 

ONL 

=  000002 

#4-129 

4-159 

OlMSG 

000165  ., 

#4-119 

4-146 

02MSG 

000202  R 

#4-120 

4-147 

03MSG 

0002A5  R 

#4-121 

4-148 

TBLl 

000572  R 

#4-146 

5-240 

TBL2 

000402  R 

#4-153 

5-241 

VTBL 

000410  R 

#4-159 

5-220 

5-221 

WC.OBJ 

=  ««..**  GX 

5-194 

5-205 

5-254 

WHAT 

00053A  R 

#4-134 

4-135 

4-162 

4-163 

4-164 

4-165 

WHATL 

=  000001 

#4-135 

4-162 

4-165 

4-164 

4-165 

4-166 

SBUFF 

=  »...*.  GX 

5-208 

5-211 

5-245 

5-247 

SCBDMG 

=  »*«♦»«  GX 

5-235 

SCFERR 

=  ,.»»*»  GX 

5-260 

lEDMSG 

=  .»»«♦»  fx 

5-210 

5-246 

SGTBUF 

=  »*.*•♦  GX 

5-209 

SPRINT 

-   ,»,»**  GX 

5-211 

5-247 

SSHOBJ 

000450  RG 

#5-183 

STMLST 

-    *»♦«*«  GX 

5-186 

STNJM 

=  «*♦*».  GX 

5-196 

SwlLD 

-  *♦•♦♦♦  GX 

5-194 

5-205 

5-254 

SHO( 
GET- 


•5-228 


•5-229 


•5-238 


4-166 


_oc  AT  nf;  ot: 
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C  13 

SHOCIR  -  LIST   CIRCUIT   CHARACTER  MACRO   V05.03b   Thursday  29-Aug-85   11:51      Page   7 
GETTCI    -   GET    TRANSPORT    CIRCUIT    INFORMATION 


^19 

A20 

l^2^ 

1,22 

423 

424 

425 

426 

427 

428 

429 

430 

451 

432 

433 

434 

435 

436  002724 

437 

438 

439 

440  002724 

441  002730 

442  002734 

443  002740 

444  002742 

445  002746 

446  002752 

447  0^^2754 
4'.8  002756 

449  002764 

450  002772 

451  002774 

452  002776 

453  003004 

454  003012 

455  003014 

456  003016 

457  003024 

458  003026 

459  003030 

460  003036 

461  003042 

462  003044 

463  003046 

464  003054 
465 

466  003062 

467  003070 
468 

469 
470 

471  003076 

472  003104 

473  003106 

474  003110 
475 


012700 
016701 
004767 
005004 
016500 
042700 
006300 
006300 
01606? 
016067 
001033 
005000 
042767 
032765 
001413 
005200 
032765 
001406 
005200 
052767 
005067 
006300 
006300 
016067 
016067 

012767 
012767 


016567 
005727 
000261 
000207 


.SBTTL  GETTCI  -  GET  TRANSPORT  CIRCUIT  INFORMATION 
GETTCI  -  GET  TRANSPORT  CIRCUIT  INFORMATION 


INPUT 


R5  =  ADDRESS  OF  THE  CURRENT  UNIT  DEFINITION 


OUTPUT 


CARRY  SET:  NO  TRANSPORT  CIRCUITS  FOR  THIS  LINE 

CARRY  CLEAR: 

TYP8LK»0,t2  PROTOCOL  TYPE 

TYPBLK*4,+6  OWNER  NAME 

HELBLK+O  HELLO  TIMER  (PTP) 

HuLBLKt2,+4  SERVICE  (PTP) 

STA8LK+0  COST  TROM  UNT$DF 


GETTCI: 


PROTOCOL  TYPE 


10$: 


001544' 
OOOOOOC 
OOOOOOG 

000010 
177770 


001550'  176756 
001552'  176752 


OOOOOOG  OOOOOOG 
000010  000010 


000020  0000 '0 


OOOOOOC  OOOOOOG 
OOOOOOG 

20$: 

001610'  176666 

001612'  176662 

000010  176646  25$: 

001555'  176642 


MOV 

MOV 

CALL 

CLR 

MOV 

BIC 

ASL 

ASL 

MOV 

MOV 

BNE 

CLR 

BIC 

BIT 

BEQ 

INC 

BIT 

BEQ 

INC 

BIS 

CLR 

ASL 

ASL 

MOV 

MOV 

MOV 

MOV 


000014  176724 


50$: 


MOV 
TST 
SEC 
RETURN 


#HWP,R0        ;  POINT  TO  DDM  NAME  BUFFER 

$DVNAMtL$NAM,R1  ;  GET  DEVICE  NAME 

$C5TA  ;  CONVERT  IN  CASE  HARDWARE  PROTOCOL 

R4  ;  ASSUME  LAPS  PROTOCOL 

C.CW1(R5),R0    ;  GET  CHARACTERISTICS 

#«C7,R0        ;  ISOLATE  PROTOCOL  TYPE 

RO  ;  MAKE  IT  A 

RO  ;  DOUBLEWORD  INDEX 

PROT8Lt-0(R0),TYP8LK+4  ;  GET  LENGTH 

PR0TBLt2(R0),TYPBLK+6  ;  GET  ADDRESS 

25$  ;  IF  NE,  NOT  DDCMP 

RO  ;  ASSUME  POINT  TO  POINT 

#Fl.SLV,$FLAGS  ;  NOT  A  MULTIPOINT  TRIB 

#CH.TYP,C.CW1(R5)  ;  CHECK  FOR  MULTIPOINT 

20$  ;  IF  EQ,  POINT  TO  POINT 

RO  ;  ELSE  PROTOCOL  =  DDCMP  CONTROL 

*CH.MDT,C.CW1(R5)  ;  TRIBUTARY  ? 

20$  ;  IF  EQ,  PROTOCOL  =  DDCMP  CONTROL 

RO  ;  ELSE  PROTOCOL  =  DDCMP  TRIBUTARY 

#Fl.SLVIFL.TRI,$FLAGS   ;  REMEMBER  FOR  LINE  FORMATTING  LATER 

$STAN  ;  MATCH  FIRST  (ONLY)  STATION 

RO  ;  MAKE  IT  A  DOUBLEWORD 

RO  ;   INDEX 

DDCT8L*0'R0),TYPBLKt4  ;  STRING  LENGTH 

DDCT8L+2(R0),TYPBLK+6  ;  STRING  LENGTH 


*EXECL,TYPBLK+0 
*EXEC,TYPBLKt2 


ASSUME  OWNER  =  EXECUTOR 


GET  UNIT  COST 


C.^ST(R5),STABLKtO  ;  COST  FOR  UNIT 
(PC)+  ;  RETURN  SUCCESS 

;  RETURN  CARRY  SET  IF  NO  1RANSP0RT  CIRCUIT 
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SHOCIR  CREATED  BY      ^lACRO     ON  29-AUG-85  AT    11:51 

SYMBOL    CROSS   REFERENCE 


C  K 

PAGE    1 

CREF        OA.OO 


SH( 
tSl 


SYMBOL 

VALUE 

REFERENCES 

APR 

0OH71    R 

*4-197 

8-555 

8-557 

APRVAL 

001520  R 

#4-198 

8-552 

CH.MDT 

=  000020 

7-456 

CH.TYP 

=  000010 

7-453 

CO.KNC 

=    ,*..».     GX 

5-532 

10-644 

12-754 

CS.CNT 

=    »»*»•*     GX 

5-299 

5-319 

CS.DDM 

=    *»«**•     GX 

5-290 

CS.DTE 

=    •♦♦*'♦     GX 

5-543 

5-548 

CS.PVC 

r     .♦***»        GX 

5-350 

CS.SVC 

=    ».«...     GX 

10-638 

CS.UNI 

-    ...*.»     GX 

12-855 

CS.UNT 

=    ....*»     GX 

5-315 

CS.X3P 

=    «.«»*•     GX 

5-540 

CUR5LT 

000000  R 

#4-117 

«5-295 

6-571 

6-404 

8-500 

•8-506 

C.CSR 

000012 

#4-128 

C.CST 

OOOOU 

#4-129 

7-471 

C.CWO 

000006 

#4-126 

C.CWl 

000010 

74-127 

7-444 

7-455 

7-456 

C.DPR 

000016 

#4-150 

C.HTM 

000020 

#4-151 

C.LEN 

=   000024 

#4-135 

C.LTM 
CPRM 

000022 
=    «»»*•»      GX 

#4-132 
5-288 

5-292 

5-506 

5-508 

5-526 

5-528 

8-539 

8-551 

8-559 

C.STS 

=    *♦»••*     GX 

8-561 
5-290 

5-299 

5-315 

5-319 

5-340 

5-345 

5-348 

5-350 

10-658 

10-669 

10-674 

10-698 

12-856 

12-841 

12-853 

CUNT 

OOOOOA 

#4-125 

DDCTBL 

001610  R 

#4-212 

7-465 

7-464 

DI5PLY 

00250A  R 

5-550 

#6-569 

DSAB 

001A27  R 

#4-195 

4-195 

8-513 

8-555 

DSABL 

=   000010 

#4-195 

8-512 

8-554 

DSTADR 

=   »*»•••     GX 

12-818 

DSTLIN 

-    ,«*».*      GX 

12-850 

ENAB 

00U20  R 

#4-192 

4-192 

8-509 

8-551 

ENABL 

=   000007 

#4-192 

8-508 

8-530 

ERRCIS 

=    •♦•♦•♦     GX 

6-595 

ERRNST 

001242  R 

#4-177 

EXEC 

001333  R 

#4-184 

4-184 

7-467 

12-811 

EXECL 

=   000010 

#4-184 

7-466 

12-810 

EXSERR 

=  000002 

#4-158 

#4-176 

4-177 

FL.OLC 

=   •***♦♦     GX 

3-549 

FL.DLM 

-    *♦»*••      GX 

10-646 

12-7L. 

12-779 

FL.MTP 

=    »*•♦♦»      GX 

6-574 

8-519 

8-568 

9-605 

FL.MUX 

=   .»*.»»     GX 

5-522 

9-599 

12-855 

FL.SLV 

=    ..*»♦.     GX 

7-452 

7-459 

9-607 

FL.TRB 

=    *.»...     GX 

6-585 

6-387 

FL.TRI 

=    •♦••♦«     GX 

5-285 

5-286 

7-459 

8-521 

8-570 

FL.X25 

-   »»..*.     GX 

5-273 

FMTDLM 

000406  R 

#4-155 

12-785 

FMTLIN 

003536  R 

6-399 

#9-591 

FMTl  Nl 

003542  R 

#9-502 

cHTlN? 

003546  R 

#9-593 

12-856 

L 
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0  14 


L 


SHOEXE 
ISHEXE 


LIST   EXECUTOR   OPTIONS     MACRO  V05.03b   Saturday  ?9-Jun-85 
SHOW  EXECUTOR    CHARACTERISTICS 


5  15 

05:2 


25     Page  5-2 


301  00207A 

302  002102 

303  002106 
30A 

305 
306 

307  002112 

308  002116 

309  002122 

310  0C2130 

311  00213^ 
312 

313 
3U 

315  0021A0 

316  002U4 

317  002K6 

318  002152 

319  002154 

320  002160 

321  002164 

322  002170 

323  002172 
32A  002174 

325  002176 

326  002200 

327  002204 

328  002206 

329  002212 

330  002214 

331  002216 

332  002220 

333  002222 

334  002226 

335  002232 
336 

337 
338 

339  002236 

340  002242 

341  002244 

342  002250 

343  002254 

344  002262 

345  002266 
346 

347 
348 

349  002272 

350  002276 

351  002302 

352  002310 

353  C02312 

354  002314 

355  002322 

356  002324 

357  CC2326 


116462 
012701 
004767 


012702 
016412 
016462 
012701 
004767 


012702 
005012 
005062 
0C5001 
156401 
012700 
062701 
006300 
005301 
003375 
110012 
012700 
005001 
156401 
001403 
005300 
005301 
003375 
110062 
012701 
004767 


012702 
005012 
005062 
116412 
116462 
012701 
004767 


012702 
012700 
03276/ 
001006 
022020 
032767 
001401 
022020 
012022 


000013   ooooo: 

001230' 
000632 


M0V8 

MOV 

CALL 


C.0UTT(R4),2(R2) 

#T1MMSG,R1 

PRIMT 


STORE  OUTGOING  TIMER 
POINT  Rl  AT  PRINT  STRING 
PRINT  IT 


001460' 

000010 

000006 

000434' 

000604 


001460' 

000002 

000016 
000001 
000004 


000001 
000017 


000002 

001303' 

000506 


001460' 

000002 

000014 

000015 

001352' 

000452 


001460' 
001442' 
000100 


MAXIMUM  LINK.S,  MAXIMUM  NODE  COUNTERS 


000002 


MOV 
MOV 
MOV 
MOV 
CALL 


#MSGBLK,R2 

C.LKS(R4),(R2) 

C.NDC(R4),2(R2) 

#H0SMSG,R1 

PRINT 


DELAY  FACTOR,  DtlAV  WEIGHT 


130S: 


140$: 


145$: 


MOV 
CLR 
CLR 

CLR 

BISB 

MOV 

ADD 

ASL 

DEC 

BGT 

MOVB 

MOV 

CLR 

B1S8 

BED 

ASL 

DEC 

BGT 

MOVB 

MOV 

CALL 


#MSGBLK,R2 

(R2) 

2(R2) 

Rl 

C.DELf (R4),R1 

*1,R0 

#4,R1 

RO 

Rl 

130$ 

R0,(R2) 

*1,R0 

Rl 

C.DELW(R4),R1 

145$ 

RO 

Rl 

140$ 

R0,2(R2) 

*DELMSG,R1 

PRINT 


POINT  R2  AT  ARGUMENT  BLOCK 
GET  THE  MAX  #  OF  LOG.  LINKS 
STORE  MAXIMUM  NODE  COUNTERS 
POINT  Rl  AT  THE  INPUT  STRING 
PRINT  IT 


POINi  R2  AT  ARGUMENT  BLOCK 
INITIALIZE  ARGUMENT  BLOCK 

GET  DELAY  FACTOR  VALUE 

DELAY  FACTOR  STORED  AS  (POWER  OF  2)/16. 

RAiSE  DELAY  FACTOR  TO  POWER  OF  2 


STORE  DELAY  FACTOR 

DELAY  WEIGHT  STORED  AS  POWER  OF  2 

GET  DELAY  WEIGHT  VALUE 

BR'iF  DELAY  WEIGHT  IS  0 

RAISE  DELAY  WEIGHT  TO  POWER  OF  2 


STORE  DELAY  WEIGHT 

POINT  Rl  hi    THE  PRINT  STRING 

PRINT  IT 


INACTIVITY  TIMER,  RETRANSMIT  FACTOR 


000002 


OOOOOOG 


MOV 

CLR 

CLR 

MOVB 

MOVB 

MOV 

CALL 


#MSGBLK,R2 

(R2) 

2{R2) 

C.!NAC(R4),(R2) 

C.RETF(R4),2(R2) 

#RETMSG,R1 

PRINT 


POINT  R2  AT  ARGUMENT  BLOCK 
INITIALIZE  ARGUMENT  BLOCK 

STORE  INACTIVITY  TIMER 

STORE  RETRANSMIT  FACTOR 

POINT  Rl  AT  THE  PRINT  STRING 

PRINT  IT 


TYPE,  VERIFICATION  STATE  AND  MAXIMUM  ADDRESS 


000200  OOOOOOG 


150$: 


MOV 
MOV 
BIT 
BNE 

CMP 
BIT 
BED 
CMP 
MOV 


#MSG8LK,R2 

#ATYP,RO 

*NF.LV2,$CNFI'3 

150$ 

(RO)+,(RO)t 

*NF.END,$CNFIG 

150$ 

(R0)t,(R0)* 

(R0)-,(R2)t 


POINT  AT  THE  MESSAGE  BLOCK 

POINT  TO  AREA  STRING  ADDRESS 

LEVEL  2  ROUTER  ? 

IF    NE,    YES 

Else    ASSUME   LEVEL    1    ROUTER 

BR    IF    iTS  LEVEL    1 

IF    EO,    NO 

ELSE    ITS   NONRf^UTING 

LOAD   UP   TYPE      ENGTH 


i<;t  FyfniTnB  nPTinNS 
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SHOLIM 


9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3^ 
35 
36 
37 
38 
39 
AO 
41 
A2 
A3 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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.TITLE   SHOLiN  -  LIST  LINE  CHARACTERISTICS 
.IDENT  /V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  RL  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  !  ICENSE  AND  WI TH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SO'  ^WARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  :iADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  TME  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  SHOW  LINE  CHARACTERISTKb 

DISTRIBUTED  SYSTEMS  SOFTW'.HE  ENGINEERING 

IDENT  HISTORY: 

1.00 


14-DEC-79 
DECNET-11M/S    ;3.0 
DECNET-11M-'  lUS   V1  .0 


3.00     16-APR-?: 

DECNET-VIM  V3.1 
DECNE"-11M-PLUS   VI. 1 

4.00     07-'jOV-83 

DrcNET-IIM   V4 . 0 
jECNET-IIM-PLUS   V2.0 

5.r-,:  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


0  16 
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■!lE"IC«'SE'OBj 


SS5SS5SS 

EEEEEEEEEE 

TTTTTTTTTT 

000000 

BBBBBBBB 

SS5S5S5S 

EEEEEEEEEE 

TTTTTTTTTT 

000000 

BBBBBB36 

ss 

EE 

nn 

00 

BB     BB 

ss 

EE 

00 

00 

BB     BB 

ss 

EE 

00 

00 

BB     BB 

ss 

EE 

00 

00 

BB     BB 

ssssss 

EEEEEEEE 

00 

00 

BBBBBBBB 

SS5SS5 

EEEEEEEE 

uo 

00 

BBBBBBBB 

SS 

EE 

00 

00 

BB     BB 

JJ     JJ 

ss 

EE 

00 

00 

BB     BB 

JJ     JJ 

ss 

EE 

00 

00 

BB     BB 

JJ     JJ 

ss 

EE 

00 

00 

BB     BB 

JJ     JJ 

ssssssss 

EEEEEEEEEE 

000000 

BBBBBBBB 

JJJJJJ 

SSSSS55S 

EEEEEEEEEE 

000000 

BBBBBBBB 

JJJJJJ 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

ssssssss 
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SSSSSSS5 

EEEEEEEEEE 

TTTTTTTTTT 

PPPPPPPP 

AAAAAA 

RRRRRRRR 

SSS55SSS 

EEEEEEEEEE 

TTTTTTTTTT 

ppppppop 

AAAAAA 

RRRRRRRR 

£S 

EE 

PP      PP 

AA 

AA 

RR      RR 

SG 

EE 

PP      PP 

AA 

AA 

RR      RR 

SS 

EE 

PP      PP 

AA 

AA 

RR      RR 

S5 

EE 

PP      PP 

AA 

AA 

RR      RR 

SSSSSS 

EEEEEEEE 

PPPPPPPP 

AA 

AA 

RRRRRRRR 

SSSSSS 

EEEEEEEE 

PPPPPPPP 

AA 

AA 

RRRRRRRR 

SS 

EE 

PP 

AAAAAAAAAA 

RR  RR 

SS 

EE 

PP 

AAAAAAAAAA 

RR  RR 

SS 

EE 

PP 

AA 

AA 

RR    RR 

SS 

EE 

FP 

AA 

AA 

RR    RR 

SSSS5SSS 

EEEEEEEEEE 

PP 

AA 

AA 

RR      RR 

SSSSSSSS 

EEEEEEEEEE 

PP 

AA 

AA 

RR      RR 

LL 

SSSSSSSS 

TTTTTTTTTT 

Ll 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

-L 

SS 

.L 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 
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CL  LEN= 

000020 

c.l:n  000011 

C.st:  = 

******  GX 

OP.STA= 

****** 

GX 

$NC  1"  = 

******  GX 

CS.MOD- 

«»«*»*  Gx 

C.NAH   000004 

ERRNSP 

OOOOOOR 

SW.LOA= 

****** 

GX 

$NLT  = 

******  GX 

C.CTM 

000016 

C.NCTD=  000013 

EXSERR^ 

000002 

ZF.HFL= 

****** 

GX 

$OPRND= 

******  GX 

C  DEV 

000012 

C.NIT   OOOOU 

fL.LLC= 

******  GX 

$CFERR= 

****** 

GX 

SSEPRO 

000076RG 

r.EXT 

000015 

C.NLi'D-  000012 

OP.NCT= 

******  GX 

$FLAGS= 

****** 

GX 

$SWICH= 

******  GX 

C.FLG 

000006 

C.PRI   000010 

OP.NLT= 

»«*«**  GX 

$FNPRO= 

****** 

GX 

$TMLST= 

******  GX 

.  ABS. 

000020 
000270 

000 
001 

(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 

Errors 

detected: 

0 

'•*  Assembler  statistics 


Work  file  reads:  0 

Work   fi le  writes:  0 

Si?e  of  work  file:  8920  Words  (  35  Pages) 

Size  of  core  pool:  HIAO  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:05.25 

S>.  SETPRO.  V2,  [132,1 34]  SETPR0/CR/-SP=Sy:[1,1]RSXMi. 


i.SML/f1L,[130,1lO]NETLIB/ML,[132,10]SETPRO 


^oc  AT  ni:  .o'z 
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L_ 


SETPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:23 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


CO.KNC 

~       ♦♦**** 

GX 

5-157 

CS.DTE 

-       ****** 

fix 

6-280 

CS.PVC 

=       ****** 

fix 

5-UO 

CSLENX 

=       ****** 

fix 

5-136 

C.STS 

=       ****** 

fix 

5-155 

)$TADR 

=       ****** 

GX 

6-28A 

;rrall 

=       ****** 

fix 

5-239 

:RRCHN 

0C0H5 

R 

#4-95 

ERRDTE 

0000A5 

R 

#4-93 

ERRPAR 

000106 

R 

#4-94 

ERRPRM 

000210 

R 

#4-96 

ERRPVC 

000000 

R 

#4-92 

EXSERR 

=  000002 

#4-91 

FL.CRE 

-  ****** 

GX 

5-123 

FL.DLM 

-  ****** 

GX 

5-161 

FOUND 

000324 

R 

#4-103 

OC.CFiN 

-      ****** 

GX 

5-128 

OC.CTM 

=      ****** 

GX 

5-201 

OC.DTE 

=      ****** 

GX 

5-125 

0C.M8L 

=      ****** 

GX 

5-181 

OC.MWI 

=      ****** 

fix 

5-191 

OC.STA 

=:     ****** 

GX 

5-207 

PRMERR 

001316 

R 

5-185 

PVSPSZ 

-   ****** 

fix 

5-189 

PVSUSZ 

-   ****** 

GX 

5-199 

PSVCT 

-   ****** 

GX 

•5-205 

PSVLCN 

=   ****** 

GX 

*5-179 

PSVLEN 

=   ****** 

fix 

5-132 

PSVNAM 

~  ****** 

GX 

5-159 

PSVOWN 

=   ****** 

GX 

5-203 

PSVPSZ 

=   ****** 

GX 

♦5-188 

PSVSTA 

-   ****** 

GX 

♦5-209 

PSVWSZ 

-   ****** 

GX 

♦5-198 

SCR 

000326 

R 

#4-104 

SETDTE 

001212 

R 

5-216 

SW.ENA 

~      ****** 

GX 

5-210 

TXDAT 

000272 

R 

#4-97 

TXDATL 

=  OOOOH 

#4-98 

rxwND 

000306 

R 

#4-99 

TXWNDL 

=  0000^6 

#4-100 

WC.CNT 

-      ****** 

GX 

5-167 

WC.TRI 

=      ****** 

GX 

5-171 

WC.UNT 

-      ****** 

fix 

5-222 

X$LENX 

=      *****•♦ 

GX 

5-136 

SBUFF 

-      ****** 

GX 

7-334 

SBYTMN 

~      ****** 

GX 

♦5-136 

SBYTXT 

=      ****** 

GX 

♦5-137 

SCfERR 

-      ****** 

GX 

5-253 

$CHN 

-      ****** 

GX 

5-179 

SCIRID 

-      ****** 

GX 

5-141 

SCNTNM 

=      ****** 

GX 

5-169 

tCOMP 

-      ****** 

GX 

5-157 

5-220 

5-155 

5-137 

♦5-189 


5-233 

5-251 

5-236 

7-335 

5-242 

4-92 

5-245 

♦5-122 
5-177 

5-214 


5-195 


5-248 
5-163 


♦5-212 

7-326 
#6-276 

4-98 

5-186 

4-100 

5-196 

5-222 

5-222 

5-137 
7-337 


5-142 
5-220 


♦5-199 

4-93 
♦5-176 

#7-324 
5-169 


5-186 
5-196 
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CREF   04.00 


6-280 


r 

SE 
SE 


4-94 
5-224 


4-95 


4-96 


5-173 


7-328 


7-330 


5-159 


5-163 


IT  r\c  .  "It 
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SETxxx  -  ASSORTED  ACTION  ROUTINES 


310 

311 

312 

313 

3U 

315 

316 

317 

318 

31^ 

320 

321 

322 

323  000640 

32A  000644 

325  000646 

326  000650 

327  000654 

328  000660 
329 

330 
331 
332 
333 
334 
335 
336 
337 

338  000662 

339  000666 

340  000670 

341  000672 

342  000674 

343  000676 

344  000700 
345 

346 
347 
348 
349 
350 
351 
352 
353 
354 
555 

356  000702 

357  000704 

358  000710 

359  000712 

360  000714 
361 

362  000720 

363  C90724 

364  000726 
365 

'66  000730 


066701      177176 

012021 

077202 

016701      177166 

050361      000004 

000207 


066701   177154 

040211 

01  ■'000 

005102 

040200 

050011 

000207 


066701   177134 

005711 

001402 

004767  000060 

004767  000150 

010511 

103020 

004767  0002^0 


.S8TTL  SETxxx  -  ASSORTED  ACTION  ROUTINES 

SETWOR  -  MOVE  A  WORD  QUANTITY 

INPUTS:      RO  =  SOURCE  ADDRESS 

Rl  =  DESTINATION  ADDRESS 

R2  =  SIZE  IN  WORDS 

R3  =  BIT  ENCODED  FLAGS 


REGISTERS: 


RO,  Rl  AND  R2  ARE  CLOBBERED. 


SETWOR: 
10$: 


ADD 
MOV 
SOB 
MOV 
BIS 
RETURN 


SERPT.RI 

(R0)+,(R1)+ 

R2,10i 

SERPT.RI 

R3,b$FLG(R1) 


POINT  TO  DESTINATION 
MOVE  A  WORD 

SET  FLAG  BIT 


SETBIT  -  SET  A  BIT  ENCODED  VALUE 
INPUTS: 


SETBIT: 


ADD 
BIC 
MOV 
COM 
BIC 
BIS 
RETURN 


RO      =  ADDRESS  OF  PARSED  BITS 

Rl      =  TARGET  OFFSET  IN  SERSDF  TEMPLATE 

R2      =  BIT  VALUE  OF  INTEREST 

SERPT.RI  ;  POINT  TO  TARGET 

R2,(R1)  ;  ASSUME  BIT  NOT  PARSED 

(r6),R0  ;  GET  ALL  PARSED  BITS 

R2  ;  CLEAR... 

R2,R0  ;  ...DON'T  CARE  BITS 

R0,(R1)  ;  SET  THAT  BIT  IF  PARSED 


SETFIL  -  UPDATE  OR  CREATE  A  FILE  ENTRY 
INPUTS: 


OUTPUT: 


RO  =  ADDRESS  OF  PROTO  FILE  BLOCK 
Rl  =  OFFSET  IN  FlL$DF 

IF  NECESSARY  A  FILE  BLOCK  IS  CREATED. 

THE  FILE  BLOCK  IS  LINKED  INTO  THE  FILSDF  TEMPLATE. 


SETFIL: 


10$: 


5AVRG 

ADD 

TST 

BEQ 

CALL 


R5 

FILPT.RI 

(Rl) 

10$ 

DEAFiL 


CALL    FNDFIL 
MOV     R5,(R1~ 
see     20$ 


CALL 


ALCFIL 


SAVE  TABLE  POINTER 

POINT  TO  DESTINATION 

WAS  THERE  A  PREVIOUS  FILE  ? 

IF  EQ,  NO 

ELSE  DEALLOCATE  FILE 

TRY  TO  FIND  PARSED  FILE 
POINT  HL$DF  TO  FILE  BLOCK 
IF  CC,  GOT  IT 

ELSE  ALLOCATE  AN  EMPTY  FILE  BLOCK 


E  5 
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:^3 


1 
2 
3 

i 
6 
7 
8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
10 
A1 
42 
43 
44 
4  5 
46 
47 
48 
49 
50 
51 
52 


.TITLE  SETROU  -  SET  EXECUTOR  ROUTING  OPTIONS 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  CO  1979,  1980,  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
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MODULE  DESCRIPTION; 

CFE  -  SET  ROUTING  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
0ECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


CCT     cvcrnTHD     DnilTIMr.     n    MfirDn     \/n^     H^h     "iatiirriaN; 


3-lun-RS    nS:?^ 


Panp    4 


r 


SETSLT  -  SET 
SSESLT  -  }E^ 


SLT  PARAMETERS 
SLT  PARAMETERS 


118 
119 
1:0 
1^1 
122 
1?3 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 

135  000U6 

136  000146 

137  000154 

138  000156 

139  000162 

140  000170 

141  000172 

142  000200 

143  000204 

144  000206 
145 

146 
U7 

148  000212 

149  000216 
150 

151  000220 
152 

153  000226 

154  000234 

155  000236 

156  000244 
157 

158  000252 

159  000260 

160  000262 
161 

162  000270 

163  C00276 

164  000300 
165 

166 
1o7 
168 
169 

170  000306 

171  000314 

172  000316 

173  000324 

174  000326 
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.SnTTL  SSESLT  -  SET  SLT  PARA.^ETERS 

***  -  SSESLT  -  SET  SLT  PARAMETERS 

INPUT: 

SOPRND  =  OPERANDS  PRESENT 

SSWICH  =  SWITCH  UORD                          ^   , 

SDVNAM  =  THE  DEVICE  NAME  (  IF  =  0,  THEN  ALL  PROCESSES  ) 

SCNTNM  =  THE  CONTROLLER  NUMBER 

SUNTNM  =  THE  UNIT  NUMBER 

SSIAN  =  STATION  NUMBER 

OUTPUT: 

SLT  TEMPLATE  MODIFIED 


032767 
001076 
012705 
022767 
001403 
052767 
004767 
103002 
000167 


004767 
103455 

052765 

032767 
001406 
016765 
052765 

032767 
001403 
016765 

032767 
001403 
016765 


032767 
001004 
032767 
001411 
022767 


OOOOOOG  OOOOOOG 

OOOOOOC 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
001130 

000140 


SSESLT:; 


5$: 


BIT 

BNE 

MOV 

CMP 

BEQ 

BIS 

CALL 

BCC 

JMP 


*FL.PVC,SFLAGS 

40S 

#$TMLST,R5 

#C0.LIN,SC0MP 

5$ 

#fl.tr;,sflags 

CHKSTA 

10s 

40$ 


IS  CIRCUIT  A  PVC  ? 

IF  NE,  YES  -  NOTHING  TO  DO  HERE 

GET  START  OF  TEMPLATES 

OPERATING  ON  A  LINE  ? 

IF  EQ,  YES 

ELSE  LOOK  FOR  TRIB  IN  .FNSLT/SFNSTA  CALLS 

CHECK  FOR  ENDNODE  ANOMOLIES 

IF    CC,    OK 

GET  OUT  WHILE    THE   GETTIN'S  GOOD 


OOOOOOG 


SEARCH  FOR  THE  RIGHT  SLT 


GET  NEXT  SLT 
IF  CS,  NO  MORE 


OOOOOOG 

OOOOOOC 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOu 

OOOOOOG 

OOOOOOG 


10$:    CALL  .FNSLT 

BCS  40$ 

20$:    BIS  *CS.M0D,C.STS(R5)  ;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

BIT  #OC.CTHIOL.CTM,$0PRND   ;  CHANGE  COUNTER  TIMER  ? 

BEQ  25$  ;  IF  EQ,  NO 

MOV  $CT,SSLCTT(R5>   ;  UPDATE  COUNTER  TIMER 

BIS  #SLSCTH,C.STS(R5)  ;  MARK  COUNTER  TIMER  PRESENT 

25$:    BIT  #OC.MXR, SOPRND  ;  MAXIMUM  ROUTERS  PRESENT  ? 

BEQ  26$  ;  IF  EQ,  NO 

MOV  $CIMXR,SSLBRA(R5)  ;  ELSE  UPDATE  TEMPLATE 

26$:    BIT  #0C. RPR, SOPRND  ;  ROUTER  PRIORITY  ? 

BEQ  28$  ;  NO 

MOV  SCIRPR,S$LRPR(R5)  ;  ELSE  UPDATE  TEMPLATE 


LOOK  FOR  OPTIONS  WHICH  APPLY  TO  SLTSDF  IF  PTP,  STASDF 
tSTATE,  HELLO  TIMER,  SERVICE) 


MTP 


OOOOOOC  OOOOOOG  J8$:    BIT  #SW.SENI SW.SDI , SSWICH  ;  SERVICE  [ENABLED/DISABLED  SPECIFIED 

BNE  29$  ;  YES 

OOOOOOC  OOOOOOG        BIT  *uC.STA10L . STAIOC.HTM, SOPRND  ;  CHANGE  THE  STATE/HELLO  TIMER  ? 

BEQ  35$  ;  IF  EQ,  NO  ..  LOOK  FOR  MORE 

OOOOOOG  OOOOOOG  29$:    CMP  #CO.LIN,$COMP   ;  CHANGE  OF  LINE  STATE  ? 


E  7 

_OC   AC . T/ 


SETSLT 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT 

05:24 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

StLHTM 

- 

****** 

GX 

♦7-318 

SSLRPR 

= 

****** 

GX 

*4-164 

SSLTYP 

:; 

****** 

GX 

5-215 

7-313 

SSTFLG 

= 

****** 

GX 

n-498 

WC.CIR 

r 

****** 

GX 

n-483 

SBUFF 

- 

****** 

GX 

10-428 

10-443 

SCFERR 

r 

****** 

GX 

10-443 

11-501 

tCIMXR 

= 

****** 

GX 

4-160 

SCIRPR 

:; 

****** 

GX 

4-164 

tCNFIG 

r 

****** 

GX 

11-464 

SCOMP 

r 

****** 

GX 

4-139 

4-174 

7-293 

$CT 

r 

****** 

GX 

4-155 

tEDMSG 

~ 

****** 

GX 

10-442 

SFLAGS 

~ 

****** 

GX 

4-136 

*4-141 

8-347 

SFNSTA 

~ 

****** 

GX 

8-352 

11-479 

11-495 

$HTM 

- 

****** 

GX 

7-318 

8-366 

SOPRND 

- 

****** 

GX 

4-153 

4-158 

4-162 

$SAVRG 

= 

****** 

GX 

8-346 

11-457 

SSAVVR 

= 

****** 

GX 

10-427 

$SE5LT 

000U6 

RG 

#4-135 

$STAN 

- 

****** 

GX 

11-459 

•11-508 

SSWICH 

= 

****** 

GX 

4-170 
7-326 

5-204 
8-359 

5-213 
8-369 

STMLST 

= 

*  +  *■*** 

GX 

4-13S 

11-471 

11-482 

SWILD 

r 

****** 

GX 

11-460 

11-468 

♦11-483 

.FNSLT 

****** 

GX 

4-148 

11-474 

11-485 

D  8 
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CREF   04.00 


9-396 

10-436 

11-458 

11-477 

11-487 

♦11-509 

4-172 

7-291 

7-307 

8-355 

8-363 

n-462 

5-226 
8-372 

6-260 
11-466 

7-297 

7-300 

7-303 

7-323 

•11-507 


E  8 


D  9 

SETUNT  -  SET  LIME  UNIT  OPTIONS  MACRO  V05.O3b  Monday  12-Aug-85  15:02 
Table  of  contents 


5-     U5 


$<;EUNT    -   SET   UNIT    PARAMETERS 


E     9 

:c:t,imt    -   ccT    r  I  K:c   i  n]  I T    nDTinMC      MAron   ufl";    D^h   Mnniiav    1?-Aun-8S    1S:0?      Paae   3 


0  10 

SETX2P  -  SET  X.25  LEVEL  2   PARAM  MACRO  V05.03b  Saturday  29-Jun-85  05:24 
Table  ot  contents 

5-   88    $SEX2P  -  SET  X.25  LEVEL  2  PARAMETERS 


SEl 
$SE 


E  10 

•zT^sa    _   ccT    V    ot;    I  ci/ci     5   D4D4M   Miroo   uns   fl'^h    "iatnrriav   ?9-.liin-SS    05:24      Pace   3 


C 


$SEX5P  ■ 

153 
154 
155 
156 
157 

15: 

159 
160 
1M 
162 
16? 
164 
165 
166 


SET   X.25  LEVEL    3  PARAM  MACRO  V05.05b  Saturdo; 


SET   X 

000264 

000272 
000300 
000302 


,25  LEVEL   3  PARAMETERS 
116760     OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  80$ 
OOOOOOG  OOOOOOG 

90$ 
ERRORS 


0  11 

29-Jun-85  U5:25 


Page  6-1 


032767 
001403 
116760 


000310     000207 


MOVB 

BIT 
BEQ 
MOVB 

RETURN 


$RET,X$3RT(R0)      ;   UPDATE   VALUE 


00031? 
000322 
000324 


on: 261 

000207 
O'JOOOI 


l01$: 


ERROR$ 
SEC 

RETURN 
.END 


#XP.RST,$0PRND 

90$ 

$RST,X$3ST(R0) 


#ERRX3P 


RESTART  TIMER? 
BR  IF  NO 
UPDATE  VALUE 


NO  X3P$DF  IN  SVSTEM 


SH 

MA 

MA 

EP 
ER 
OB 
PR 


E  11 
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SHOBJ      CREATED  BY  MACRO  ON  29-JUN-85  AT  05:25 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


5-2'!.7 


0  12 

PAGE  2 

CREF   OA.OO 


SHO 
GET 


EPRINT 

#A-85 

ERROR$ 

#A-7A 

5-260 

OBJDFt 

#A-59 

''-^], 

PRINT 

#4-67 

5-211 

E  12 
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SHOCIR   -  LIST   CIRCUIT   CHARACTER  MACRO  V05.03b   Thursday  29-Aug-85   1 
GETSLT    -  GET    THE    LOADING    INFORMATION   CO-ROUTINE 


0  13 

■1:51 


Page  8 


477 
A78 
A79 
480 
481 
482 
485 
4R4 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 

497  003112 

498  003112 

499  003114 

500  003120 

501  003124 

502  003130 
503 

504 
505 

506  003132 

507  003136 

508  003144 

509  003152 

510  003160 

511  003166 

512  003170 

513  003176 

514  003204 

515  003210 

516  003214 

517  003220 

518  003226 

519  003234 

520  003242 

521  003244 

522  003252 

523  003254 

524  003260 
525 

526 
527 

528  003262 

529  003270 

530  003276 

531  003304 

532  003312 

533  003320 


.SBTTL  GETSLT  -  GET  THE  LOADING  INFORMATION  CO-ROUTINE 

'•♦«  -  GETSLT  -  GET  THE  LOADING  INFORMATION  CO-ROUTINE 

THIS  CO-ROUTINE  IS  CALLED  UNTIL  A  C-BIT  IS  SET.  THIS  CO-ROUTINE  RETURNS 
TRieUTARy  STATUS  INFORMATION  FOR  EACH  TRIBUTRARY. 

NOTE  -  THIS  CO-ROUTINE  USES  R5  AS  TEMPORARV  STOrJAGE,  THEREFORE  THE  CALLING 
ROUTINE  MUST  NOT  DESTROY  R5. 

INPUTS: 

SDVNAM  =  LINE  DESCRIPTOR  BLOCK 

OUTPUT: 

C-8IT  =  SUCCESS/FAILURE 
STABLK  =  THE  LINE  STATE  ARGUMENT  BLOCK 
HELBLK+O  =  HELLO  TIMER  (MTP) 
HELBLKt2,+4  =  SERVICE  (MTP) 


GETSLT 


011646 

MOV 

(SP),-(SP> 

MOVE  RETURN  ADDRESS  UP  ON  STACK 

010566 

000002 

MOV 

R5,2(SP) 

SAVE  R5 

016705 

174654 

MOV 

CURSLT,R5 

POINT  AT  CURRENT  SLT 

004767 

OOOOOOG 

CALL 

$FNSLT 

FIND  THE  NEXT  SLT  TEMPLATE 

103573 

•  FOUND 

BCS 

IT  !; 

70$ 

IF  CS,  NOT  FOUND 

010567 

174642 

i0$: 

MOV 

RS.CUFiSLT 

SAVE  CURRENT  SLT  ADDRESS 

016567 

OOOOOOG 

176602 

MOV 

S$LHTM(R5),HEL8LK  ;  SET  UP  HELLO  TIMER 

012767 

000007 

176576 

MOV 

#ENA8L,hELBLKt2 

ASSUME  SERVICE  ENABLED 

012767 

001420" 

176572 

MOV 

*ENAB,HELBLK+4 

032765 

OOOOOOG 

OOOOOOG 

BIT 

#LF.SER,S$LFLG(R5)  ;  SERVICE  ENABLED  ? 

001406 

BEQ 

15J 

IF  EQ,  YES 

012767 

000010 

176552 

MOV 

#DSA8L,HELBLK+2 

ELSE  SERVICE  DISABLED 

012767 

001427' 

176546 

MOV 

#DSA8,HELBLK+4 

005067 

176626 

15$: 

CLR 

STA8LKt6 

ASSUME  POINT  TO  POINT  LINE 

005067 

176626 

CLR 

STAeLKti2 

005067 

176624 

CLR 

STABLK+14 

...  MUST  ZERO  THE  ADDRESS 

012767 

000003 

176604 

MOV 

*0FFL,STABLK+2 

ELSE,  ASSUME  IT'S  OFF 

012767 

001330' 

176600 

MOV 

#0FF,STABl.Kt4 

,  , 

032767 

OOOOOOG 

OOOOOOG 

20$: 

BIT 

*FL.MTP,$FLAGS 

S  THE  LINE  MULTI-POINT  ? 

001502 

BEQ 

40$ 

IF  EQ,  NO 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.TRI,$FLAGS 

DO  WE  NEED  TRIBUTARY  INFO  ? 

001510 

BEQ 

60$ 

IF  EQ,  NO 

004767 

OOOOOOG 

CALL 

$FNSTA 

FIND  THE  NEXT  STATION  TEMPLATE 

103517 

BCS 

70$ 

•  IF  CS,  NO  MORE  STATIONS 

;  STATION  COST 

HELLO  TIMER,  SERVICE 

116567 

OOOOOOG 

176540 

MOVB 

S$TCST(R5),STABL 

C  ;  ELSE,  GET  LINE  COST 

016567 

OOOOOOG 

176450 

MOV 

S$THTM(R5),HEL8L 

<.    :    SET  UP  HELLO  TIMER 

012767 

000007 

176444 

MOV 

*ENABL,HELBLK+2 

;  ASSUME  SERVICE  ENABLED 

012767 

001420' 

176440 

MOV 

#ENAB,HELBLK+4 
#SF.SER,S$TFLG(R 

132^65 

OOOOOOG 

OOOOOOG 

BITS 

5);  SERVICE  ENABLED  ? 

001406 

BEQ 

25$ 

;  IF  EQ,  YES 

E  13 
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bHOCIR     CREATES  BV  MACRO  ON  29-AUG-85  AT  11.-51 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


TMT2R5 

GETSLT 

GETSTA 

GETTCI 

HEADR 

HEADRl 

HELBLK 

HELMSG 

HUP 

INCM 

IMML 

Lf.BRO 

LF.ENA 

LF.SER 

LF.X2P 

LINID 

.I'JMSG 

LSiNT 

L$NAM 

l$tr: 

L$UNT 

NF.END 

NONE 

NONEL 

NSTLIN 

OFF 

OFFL 

ON 

ONL 

OPTMSG 

OUTCIR 

OUTG 

OUTGL 

PERM 

PERML 

PRINT 

PROTBL 

PVCBLK 

PVCBL2 

pvceL3 

PVCBL4 
PVCBL5 
PVCBL6 
PVCLIN 
PVCMSG 
PVCMS2 

pvcm:3 

rvCMSA 
PVCMS5 
PVCMS6 
PVC01 


OO0AO2 
003112 
00A322 
002724 
000002 
000050 
001 7A6 


000224  R 
001544  R 
001410  R 
=  000010 

r  ******  ( 

=  ******  I 

-  ******  ( 

=  ******  ( 

000137  R 

000124  R 

=   ******     ( 

=   ******     ( 

r  ******  ( 
=  ******  ( 
=     ******        ( 

001343  R 

=  000006 
001302  R 
001330  R 

=  000003 
001326  R 

=  000002 
000163  R 
002602  R 
001400  R 

=  000010 
001367  R 

=  000011 
005240  R 
OC1550  R 
001754  R 
001760  R 
002002  R 
002012  R 
002020  R 
002022  R 
000663  fi 
000420  R 
000437  R 
000504  R 
000564  R 
000625  R 
000707  R 
000537  R 


REFERENCES 

#4-154 

6-369 

10-688 

5-329 
#4-144 
#4-145 

4-217 
♦8-531 
#4-150 
#4-200 
#4-190 
#4-190 

6-405 

8-561 

8-510 

6-372 
#4-147 
#4-146 

9-596 

7-441 

9-610 

9-602 

6-407 
#4-185 
#4-185 
#4-178 
#4-183 
#4-183 
#4-182 
#4-182 
#4-148 

6-379 
#4-189 
#4-189 
#4-188 
#4-188 

6-403 
#4-203 

4-221 

4-222 

4-223 

4-224 

4-225 

4-226 
#4-162 
#4-156 
#4-157 
#4-158 
#4-160 
#4-161 
#4-163 
#4-159 


12-794 

#8-497 

#11-726 

#7-436 

5-265 

5-268 

#4-239 

.8-534 

4-217 

4-210 

4-190 

10-662 


9-591 
6-400 

9-593 


4-185 
12-806 

4-183 
8-517 
4-182 
8-563 

6-384 
4-189 
10-666 
4-188 
12-822 
10-709 
7-448 
#4-241 
#4-242 
#4-243 
#4-244 
#4-245 
#4-246 
12-848 
4-221 
4-222 
4-223 
4-224 
4-225 
4-226 
*12-777 


12-8'.5 


*8-507 

*8-535 

4-233 

7-440 

10-663 


12-800 


12-807 


8-518 
10-685 
8-564 
10-692 

#6-398 
10-667 

12-823 

12-878 

7-449 

12-774 


12-868 


12-784 
»12-783 
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U 

CREF   04. 

00 

*8-508 

»8-509 

•8-512 

»8-513 

•8-529 

•8-530 

12-802 

12-805 

10-686 
12-833 
10-693 
12-82C 

12-834 
12-830 

#13-895 

12-799 

12-803 

SH' 
$S 


12-867 


fREATFD  RY  MACRO  ON  29-AUG-85  AT  11:51 
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E  K 


L 


SHOEXE 
SSHEXE 


LIST  EXECUTOR  OPTIONS  MACRO  V05.05b  Saturday  29-Jun-85 
SHOW  EXECUTOR  CHARACTERISTICS 
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358  002330 

359  002332 

360  002536 

361  002340 

362  002342 

363  002350 

364  102352 
36'=  002360 

366  002362 

367  002364 

368  002366 

369  002370 

370  002376 

371  002402 

372  002406 

373  002410 

374  002414 

375  002420 

376  002424 
377 

378 
379 

380  002430 

381  002434 

382  002436 

383  002442 

384  002446 

385  002452 

386  002456 

387  002462 

388  002466 

389  002472 

390  002476 

391  002502 
392 

393 
394 

395  002506 

396  002514 

397  002516 

398  002522 

399  002526 

400  002532 

401  002536 

402  002542 

403  002546 

404  002552 
405 

406 
407 

408  002556 

409  002562 

410  002564 

411  002572 

412  002574 

413  002600 

414  002604 


012022 
012700 
005703 
001411 
032763 
001405 
032763 
001401 
022020 
012022 
012C22 
112767 
016705 
016522 
001002 
105067 
012701 
004767 
004767 


105767 
001450 
012702 
016705 
016522 
016522 
016522 
016522 
016522 
012702 
012701 
004767 


032767 
001420 
012702 
016705 
016522 
016522 
016522 
012702 
012701 
004767 


016700 
001436 
032760 
001432 
012702 
012701 
112711 


001432' 

000001  000002G 
100000  000006G 


000054  176166 

177054 

000004 

176150 
000516" 
000320 
000426 


176130 

001460' 

177010 

000006 

000010 

000012 

000016 

000024 

001460' 

000646' 

000236 


160$: 


170$: 


MOV 


BIT 
8EQ 
BIT 
BEQ 
CMP 
MOV 
MOV 

Mova 

MOV 
MOV 
BNE 

CLR8 
MOV 
CALL 
CALL 


(R0)*,(R2)* 

*OFF,RO 

R3 

160$ 

#Nf .ACC,C.PRM+2 

160$ 

#NF$ACC,C.PRM+6( 

160$ 

(RO)+,(RO)* 

(R0)+,(R2)t 

(R0)t,(R2)t 

#<',>, VFYCOM 

R0UTMP,R5 

C.ADD;R5),(R2) 

170$ 

VFVCOM 

#VFYMSG,R1 

PRINT 

SEGSIZ 


MAX  HOPS  AND  MAX  COST 


TSTB 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CALL 


VFVCOM 

190$ 

*MSG8LK;,R2 

R0UTMP,R5 

C.CST(R5), 

C.H0P(R5), 

C.RTM(R5), 

C.N8EA(R5) 

C.L2TM(R5) 

*MSG8LK,R2 

*R0UMSG,R1 

PRINT 


(R2)  + 
(R2)t 
(R2)  + 
(R2)  + 
(R2)  + 


LOAD  UP  TYPE  STRING  ADDRESS 

ASSUME  VERIFICATION  IS  "TURNED"  OFF 

DID  WE  FIND  THE  NSP  FEATURES  TEMPLATE 
,  IF  EQ,  NO 

(ft3)  ;  I§  ACCESS  VERIFICATION  PRESENT  ? 
;  IF  EQ,  NO 
(R3)  ;  IS  VERIFICATION  ON  ? 

IF  EQ,  NO  ..  OKAY 

ELSE,  CHANGE  MESSAGE 

VERIFICATION  STATE  LENGTH 

AND  STRING  ADDRESS 

ASSUME  ROUTING  NODE 

COPY  ROUTING  TEMPLATE  ADDRESS 

STORE  MAXIMUM  ADDRESS 

IF  NE,  NOT  AN  END  NODE 

ELSE  DON'T  PRINT  MAX  ADDRESS 

POINT  AT  INPUT  STRING 

GET  ECL  SEGMENT  SIZE 


SEE  IF  JUST  PRINTED  ROUTING  INFO 

IF  EQ,  NO  -  DON'T  WANT  HOPS  AND  COST 

POINT  TO  ARGUMENT  BLOCK 

COPY  ROUTING  TEMPLATE  ADDRESS 

STORE  MAXIMUM  COST 

STORE  MAXIMUM  HOPS 

ROUTING  TIMER 

;  BROADCAST  ENDNODE  ADJACENCIES 
;  BROADCAST  ROUTING  TIMER 

POINT  TO  ARGUMENT  BLOCK 

POINT  AT  INPUT  STRING 


LEVEL  2  ROUTERS  PARAMETERS 


000100  OOOOOOG  l8C$:   BIT 
BEQ 

001460'  MOV 

1767^0  MOV 

0000i4  MOV 

000020  MOV 

000022  MOV 

001460'  MOV 

0010^6'  MOV 

000166  CALL 


*NF.LV2,$CNFIG 

190$ 

#MSGBLK,R2 

R0UrMP,R5 

C.NA(R5),{R2)+ 

C.AHOP(R5),(R2)+ 

C.ACST(R5),(R2)+ 

#MSGBLK,R2 

*R02MSG,R1 

PRINT 


CONFIGURED  AS  LEVEL  2  ROUTER  ? 

IF  EQ,  NOPE 

POINT  TO  ARGUMENT  BLOCK 

COPY  ROUTING  TEMPLATE  ADDRESS 

NUMBER  OF  AREAS 
;  AREA  MAX  HOPS 
;  AREA  MAX  COST 

POINT  TO  ARGUMENT  BLOCK 

POINT  AT  INPUT  STRING 

PRINT  IT 


OOOOOOG 

OOOOOOC  OOOOOOG 

001460' 
001201' 
000040 


FOR  PSi  SYSTEMS,  EXECUTOR  SUeADDRESS(ES) 


190$: 


MOV 
BEQ 
BIT 
BEQ 
MOV 
MOV 
MOVB 


$PSIPT,RO 

220$ 

#CS.TL01CS.THI,C 

220$ 

#MSGBLK,R2 

#SU88A2,R1 

#<'  >,(R1) 


POINT  TO  PSI  STUFF 
IF  EQ,  NO  PSI  HERE  BOSS 
STS(RO!  ;  ANY  SUBBADDRESSES  ? 
IF  EQ,  YES  WE  HAVE  NO  SUBADDRESSES 
ELSE  POINT  TO  ARG  LIST 
ASSUME  NO  LOW  SUBBADDRESS 
WANT  LEADING  BLANK  IN  HI  MSG 


E  15 
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5S 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 

105  000000 
106 
107 
108 
109 
110 
111 


•  LOCAL  MACROS 

•  *♦** 


.MACRO  PRINT   TEXT 

.IF  DIF  <TEXT><R0> 

MOV  TEXT,R0 

.ENDC 

CALL  SPRINT 

.END.'I  PRINT 

.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BVTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  L'.N 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

DEFINE  A  PROTOCOL  STRING 

.MACRO  PRO     A 

.NCHR  SSS,<A> 

.PSECT  TEXT.D 


SSSl 


.ASCII   /A/ 

.PSECT 

.WORD   SSS,$SS1 

.ENDM 

LIBRARV  MACRO  CALLS 
**  ** 

.MCALL   CHADFS 

CHADFS 

■  **** 

':    LOCAL  DATA 

•  **** 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  rtSClZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


OEFINE  THE  CHARACTERISTICS  WORDS  OFFSETS 


E  16 


SHni  IN  -  LIST  LINE  CHARACTERIST  MACRO  V05.03b  Saturday  29-Jun-85  05:26  Page  4-1 


^5:2; 


SETOBj  -  SET  OBJECT  OPTIONS     MACRO  V05.03b  Saturday  29-Jun-85  05:22 

TabLe  ot  contents 

4-  SI         MACRO  DEFINITIONS 

5-  124    SSEOBJ  -  UPDATE  OBJECT  DEFINITION 

6-  232    FINOBJ  -  FIND  NEXT  OBJECT  IN  SORTED  LIST 

7-  256    CHKMUL  -  CHECK  FOR  MULTICOPY  TASKNAME 


F  1 

CUT    nn.crT    nnrinMC  MAron    \/n';    n?h    (:at-..rHa\/    PQ-liin-ftS    OSrPP       Pahp    ^ 


E     2 

SETPAR  -   SET   PARAMETER     MACRO  V05.03b   Saturday  25-Jun-85   17:50 
Table  ot   contents 

5-        55  SETPAR   -   SET   A  PARAMCTER   AND   DATA   TYPE 


\~  f     2 


SETPRO  CREATED  BY     MACRO     ON  29-JUN-85  AT   05:23 

SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

CL.LErj 

=  000020 

#A-57 

CS.MOO 

=   ♦♦♦**♦ 

GX 

5-117 

C.CTM 

000016 

#4-57 

C.DEV 

000012 

#A-57 

C.EXT 

000015 

#A-57 

C.FLG 

000006 

#4-57 

*5-147 

C.LIN 

000011 

#4-57 

C.NAM 

00000^ 

#4-57 

5-125 

C.NCTD 

=  000013 

#4-51^ 

♦5-141 

C.N'LT 

0000  K 

#4-57 

♦5-131 

C.NLTD 

=  000012 

#4-57 

♦5-138 

C.PRI 

000010 

#4-57 

C.5TS 

r  *♦*♦♦* 

GX 

»5-117 

ERRNSP 

000000 

R 

#4-91 

5-128 

EXSERR 

r  000002 

#4-90 

4-91 

FL.LLC 

r  *♦**♦* 

GX 

5-118 

OP.NCT 

=  ****** 

GX 

5-139 

OP.NLT 

=    ****** 

GX 

5-123 

5-136 

OP.STA 

=  ****** 

GX 

5-145 

SW.LOA 

-  ****** 

GX 

5-' 48 

ZF.MFL 

-  ****** 

GX 

5-- 47 

5-150 

SCFERR 

r  ****** 

GX 

5-128 

SFLAGS 

=    ****** 

GX 

5-118 

SFNPRO 

r  ****** 

GX 

5-112 

$NCT 

=  ****** 

GX 

5-141 

SNLT 

-    ****** 

GX 

5-131 

5-138 

SOPRND 

=  ****** 

GX 

5-123 

5-136 

SSEPRO 

000076 

RG 

#5-107 

SSWICH 

=     ****** 

GX 

5-1^8 

STMLST 

Z:   ****** 

CX 

5-108 

E     3 

PAGE   1 

CREF       04.00 


»5-150 


5-139 


5-145 


F     3 


L 


SETPVC  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:23 

SYMBOL    CROSS  REFERENCE 


E     4 

PAGE   2 

CREF       04.00 


SE 
SE 


SY^IBOL 

VALUE 

REFERENCES 

$CT 

- 

****** 

GX 

5-205 

SDTE 

~ 

GX 

6-282 

SEDMSG 

- 

****** 

GX 

7-336 

SFLAGS 

- 

****** 

GX 

5-123 

5-161 

5-245 

$MBL 

- 

****** 

GX 

5-183 

5-188 

5-193 

SMUI 

- 

****** 

GX 

5-198 

SOPRND 

- 

****** 

GX 

5-125 

5-128 

5-177 

SPRINT 

3 

****** 

GX 

7-337 

SPSIPT 

= 

****** 

GX 

5-151 

SPLBF 

= 

****** 

GX 

5-250 

SRQBF 

- 

****** 

GX 

5-133 

SSEPVC 

0003A6 

RG 

#5-118 

SSTAN 

- 

****** 

GX 

5-173 

SSwIICH 

- 

****** 

GX 

5-210 

STMLST 

- 

****** 

GX 

6-277 

.6-297 

*6-301 

SWILD 

r 

****** 

GX 

5-167 

5-171 

5-222 

SXXAVL 

= 

***♦♦♦ 

GX 

5-131 

5-249 

5-181 


5-191 


5-201 


5-207 


5-2U 


_QC     ftT     r\r^  .IX 


F     t, 


L 


SETREM  -  SET  REMOTE  NODE  OPTION  MACRO  V05.03b  Monday  01-Jul-85 
SETxxx  -  ASSORTED  ACTION  ROUTINES 


E  5 

16:37  Page  8-1 


367  00073A 

368  000736 

369  0007^0 

370  0007^2 

371  0007i<. 

372  000750 

373  000752 
37'i  000754 

375  000760 

376  00076A 
377 

578  000770 

379  000774 

380  000776 
381 


010511 

010501 

005721 

005021 

012702  000037 

112021 

077202 

004767  000236 

060067  OOOOOOG 

060067  OOOOOOG 

005265  000002 

000207 


15$: 


20$: 


MOV 

CLR 

MOV 

MOVB 

SOB 

CALL 

ADD 

ADD 

INC 

RESRG 

RETURN 


R5,(R1) 
R5,R1 

(r1)  + 

(R1)  + 

*F.LEN-<F.DEV-1>,R2 

{RO)t  (R1)t 

R2,15$ 

GET8YT 

RO.SeVT'lM 

R0,$BYTX1 

F.CNT(R5) 
R5 


POINT  HL$DF  TO  NEW  FILE  BLOCK 

COPY  FILE  BLOCK  POINTER 

SKIP  LINK 

CLEAR  USE  COUNT 

BYTE  COUNT 

MOVE  PROTO  TO  FILE  BLOCK 

GET  SIZE  OF  BYTE  ALLOCATION 
UPDATE  MINIMUM  BYTE  ALLOCATION 
AND  ACTUAL  BYTE  ALLOCATION 

UP  USE    COUNT 

RESTORE    TABLE   POINTER 


CETDCM   _   ccT   DCMnrr    MnnF    noTinM   MAfBn   wO^   O^h   MnnHav   01- 


F     5 
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3FTR0U  -  SET  EXECUTOR  ROUTING  0  MACRO  V05.03b  Saturday  29-Jun-85 


h:^ 


SA 

•  **** 

55 

;  LOCAL 

MACROS 

56 
57 
58 

;  **** 

.MACRO 

PRINT   TEXT 

59 

MOV 

TEXT.RO 

6C 

CALL 

SPRINT 

61 
62 
63 

.ENDM 

PRINT 

.MACRO 

ERROR!  TEXT 

6^1 
65 

;•  THE  ERROR  TEXT  MUST  HAVE  T^ 

^^ 

;  MESSAGE  STRING. 

67 
68 

.IF  DIF 

<TEXT><RO> 

69 

MOV 

TEXT.RO 

70 

.ENDC 

71 

CALL 

SCFERR 

72 
73 
7A 
75 
76 
77 
78 

.ENDM 

ERRORS 

.MACRO 

EPRINT  TEXT 

;  PRINT 

TEXT  ON 

ERROR  LUN 

.IF  DIF 

<TEXT><RO> 

79 

MOV 

TEXT.RO 

80 

.ENDC 

81 

CALL 

SCFERI 

82 

.ENDM 

EPRINT 

83 

84 

■  *♦** 

85 

;  LOCAL 

DATA 

86 
87 
88 

;  *  *  *  * 

.NLIST 

BEX 

89 

.ENABL 

LC 

90 

000002 

EXSERR 

-  2 

91  000000 

002 

103 

106  ERRROU: 

.ASCIZ 

<EX$ERR>/CFE 

92  000036 

002 

103 

106  ERRPNA: 

.ASCIZ 

<EX$ERR>/CFE 

93 
9A 
95 
96 

97  000000 

.EVEN 

■  DEFINE  ROUTING  TEMPLATE 

' 

.ASECT 

98 

000000 

.=0 

99  000000 

.8LKW 

1 

100  000002 

.BLKW 

1 

101  000004 

C.ADD: 

.BLKW 

1 

102  000006 

C.CST: 

.BLKW 

1 

-'03  000010 

C.HOPr 

.BLKW 

1 

104  000012 

C.RTM: 

.BLKW 

1 

105  000014 

C.NA: 

.BLKW 

106  000016 

C.N8EA: 

.8LKW 

107  000020 

C.AHOP: 

.BLKW 

1 

108  000022 

C.ACST: 

.BLKW 

1 

109  000024 

C.L2TM: 

.BLKW 

1 

110 

000026 

C.LEN=. 

3  Page  4 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


EnROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 

;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 


;  GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
;  PRINT  MESSAGE  ON  ERROR  LUN 


No  routing  definition/ 

Routing  parameters  not  applicabLe/ 


C.LNK 

C.STS 

MAXIMUM  NODE  ADDRESS 

MAXIMUM  COST  ALLOWED 

MAXIMUM  NUMBER  OF  HOPS  ALLOWED 

ROUTING  TIMER 

NUMBER  OF  AREAS 

NUMBER  BRO  ENDNODE  ADJACENCIES 

AREA  HOPS 

AREA  COST 

LEVEL  2  TIMER 


V/A^  n7k  C^l 


F 

n<; 


§, 


SETSLT  -  SET  SLT  PARAMETERS 
$SESL^  -  SET  SLT  PARAMETERS 

175  00033A  001003 

176  000336  004767  000012 

177  000342  000402 

178  000344  004767  000134 

179  000350  000720 
180 

181  000352  000207 
182 


MACRO  V05.03b  Saturday  29-Jun-85 


55:24 


30$: 
35$: 

40$: 


BNE 

CALL 

BR 

CALL 

BR 

RETURN 


30$ 

SETLIN 

35$ 

SETHS 

10$ 


Page  4-1 


IF  NE  NO 

SET  LINE  STATE 

CONTINUE 

ELSE  SET  CIRCUIT  STATE 

AND  LOOK  FOR  MORE  WORK 


1 


C;CT     CI    T     D4t)4MFTP3C; 


F     7 

MATRn  uns_n3h   t-.fturrisv   ?9-Jun-85   05:24 


Paae  5 


SETSLi  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:2A 

MACRO  CROSS   REFERENCE 

MACRO  NAME      REFERENCES 

5-198  6-253 

10-^45  11-501 


E     8 

PAGE   3 

CREF       OA.OO 


CALLR 

#3-56 

EPRINT 

#3-74 

ERRORS 

#3-63 

PRINT 

#3-58 

1 


F     8 


i  Ih.l'SPTQi/r 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


SETUNT  -  SET  LINE  UNIT  OPTIONS 
/V05.00/ 


COPyPIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTW;,RE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OP  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  SET  UNIT  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


L 


QCTIIWT     -     QPT     I    IMF     I IM I  T     nPTinM<; 
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SETX2P  -  SET  X.25  LEVEL  2  PARAM  MACRO  V05.05b  Saturday  29-Jun-85  05:24  Page  3 


5  10 

05:2 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  SETX2P  -  SET  X.25  LEVEL  2  PARAMETERS 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SET  X.25  LEVEL  2  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  26-0CT-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00     07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mi'cro/RSX  Vl.O 


SE 

Syi 

CS 
C. 
ERi 
EX 
XP 
XP 
XP 
XP 
XP 


Er 


Wo 
Wo 
Si 
Si 
Op 

El 
SY 


F  10 
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SETX3P  -  SET  H.25  LEVEL  3  PARAM  MACRO  V05.05b  Saturday  29-Jun-85  05:25 
Symbol  table 


Page  6-2 


CS.X3P=  »•♦•«•  GX 
C.STS  =  •»•♦••  GX 
ERRX3P  OOOOOOR 
EX$ERR=  000002 
XP.CLT=  .♦»♦«*  GX 
XP.CTM=  »••»•*  GX 
XP.DFB=  »•♦♦♦«  GX 
XP.DFW=  ««•*»•  GX 
XP.MRE=  ««**♦•  GX 


XP. 1*1X8= 
XP.MXC= 
XP.MXR-- 
XP.MXW= 
XP.RET= 
XP.RST= 
X$3CT  = 
X$3DFP= 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


X$3DW  = 
X$3KM  = 
X$3KT  = 
X$3MW  = 
X$3MXP= 
X$3RM  = 
X$3RT  -- 
X$3SM  = 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 

X$3ST  = 

GX 

$MWI  = 

•*♦*♦*  GX 

GX 

$BSZ  = 

CX 

SMXC  = 

♦♦*♦*♦  GX 

GX 

$CALT  = 

GX 

$MXR  = 

*♦»*♦♦  GX 

GX 

$CFERR= 

GX 

$OPRND= 

******  GX 

GX 

$CLT  = 

GX 

$PSIPT= 

***«♦♦  GX 

GX 

$DFD  = 

CX 

$RET  = 

******  GX 

GX 

$DFW  = 

GX 

$RST  = 

******  GX 

GX 

$MRE  = 

GX 

$SEX3P 

000036RG 

.  ABS.  000000 
000326 
Errors  cetected: 


000 
001 
0 


(RW,1,GBL,A8S,0VR) 
(RW,1,LCL,REL,CDN) 


*'♦  Assembler  statistics 

Work  tile  reads:  0 

Work  tile  writes:  0 

Size  of  work  file:  8425  Words  (  33  Pages) 

Size  of  rore  pool:  1AA40  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

Sy:SETX3p'v2!r°32?l'3OS°TX3P/CR/-SP=SY:C1,lJRSXMCM.SML/ML,[130,110]NETL]6/ML,[132,10]SETX3P 
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'FILE«MO««SHOC1R 


SHC 
GET 


ssssssss 

HH 

HH 

000000 

cccc 

ccc 

11 

II] 

RRRRRRRR 

ssssssss 

HH 

HH 

000000 

cccc  :ccc 

1] 

11 

RRRRRRRR 

ss 

HH 

HH 

00 

00   Ci 

RR      RR 

ss 

HH 

HH 

00 

00   C' 

RR      RR 

5S 

HH 

HH 

00 

00   C' 

RR      RR 

ss 

HH 

HH 

00 

00   c 

RR     RR 

ssssss 

HHHHHHHHHH 

00 

00   c 

RRRRRRRR 

ssssss 

HHHHHHHHHH 

00 

00   c 

, 

RRRRRRRR 

ss 

HH 

HH 

00 

00   c 

RR  RR 

ss 

HH 

HH 

00 

00   c 

RR  RR 

ss 

HH 

HH 

00 

00   c 

RR    RR 

ss 

HH 

HH 

00 

00   c 

RR    RR 

ssssssss 

HH 

HH 

000000 

cccccccc 

JJ 

in 

RR      RR 

ssssssss 

HH 

HH 

000000 

cccccccc 

JI 

nil 

RR      RR 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

Si 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

F  12 
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SH( 


SHOCIR 
GET5LT 


LIST  CIRCUIT  CHARACTER  MACRO  V05.03b  Thursday  29-Aug-85  11:51  Page  8-1 
GET  THE  LOADING  INFORMATION  CO-ROUTINE 


^llil 


53^  0O33?2 

535  005330 

536 

557 

558 

539  003356 

5^0  0055^.2 

541  0055A6 

542  005352 
545  005556 

544  005362 

545  005566 
546 

547 
548 

549  003372 

550  005400 

551  005402 

552  003406 

553  003412 

554  005416 

555  005422 

556  003426 

557  005432 
558 

559  003440 

560  003446 

561  005450 

562  003456 
565  003460 

564  005466 

565  003474 

566  005476 
567 

568  005500 

569  003506 

570  005510 

571  005516 

572  003520 

573  005524 

574  003526 

575  005550 

576  003532 

577  0O3'^T4 


012767 
012767 


116501 
042701 
012700 
012702 
004767 
162700 
010C67 


000010  176420 
001427'  176414 


000001G 

177400 

001457' 

014012 

OOOOOOG 

001437' 

176444 


MOV 
MOV 


#DSABL,HELBLK'2 
#.SA8,HELBLK*4 


TRIBUTARY  ADDRESS 


55$: 


032767 
001017 
116501 
012700 
012702 
004767 
162700 
010067 
012767 

132765 
000403 
052765 
001406 
012767 
012767 
000241 
004756 

032767 
001410 
032767 
001205 
016605 
012616 
000401 
012605 
000261 
000207 


OOOOOOG  OOOOOOG 


000004G 

001520' 

014012 

OOOOOOG 

001471' 

176410 

001471' 


176404 


MOVB 

BIC 

MOV 

MOV 

CALL 

SUB 

MOV 


ACTIVE  RATIO 

BIT 

BNE 

MOVB 

MOV 

MOV 

CALL 

SUB 

MOV 

MOV 


OOOOOOG  000002G  50$: 

OOOOOOG  000002G  40$: 
50$: 

000002  176544 

001526'  176340 

60$: 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002         70$; 


80$: 
90$: 


B1T8 

BR 

BIT 

BEQ 

MOV 

MOV 

CLC 

CALL 

BIT 

BEQ 

BIT 

BNE 

MOV 

MOV 

SR 

MOV 

SEC 

RETURN 


,R1 


C.PRM+1(R5) 

#'C<577>,R1 

#TRIVAL.RO 

#10.+<4000*5>,R2 

$CBTA 

#TfiJB,RO 

R0,STABLK+6 


#FL.DLC,$FLAGS 

30$ 

C.PftMt4(R5),R1 

#APRVAL,R0 

#IO.+<4000*3>,R2 

$CBTA 

#APR,R0 

R0,STABL<t-12 

#APR,STABLK+14 


ELSE  SERVICE  DISABLED 


GET  TRIBUTARY  ADDRESS 

DEFEAT  SIGN  EXTENSION 

POINT  TO  OUTPUT  BUFFER  FOR  TRIBUTARY 

BASE  10.  CONVERSION 

CONVERT  TO  ACII 

CALCULATE  LENGTH  OF  STRING 

STORE  LENGTH  IN  ARGUMENT  BLOCK 


IS  THIS  A  COMBINATION  DDM/DLC  ? 
IF  NE,  YES  ..  SKIP  ACTIVE  RATIO 
GET  ACTIVE  RATIO 

POINT  TO  OUTPUT  BUFFER  FOR  ACTIVE  RATIO 
;  BASE  10.  CONVERSION 
CONVERT  TO  ACII 
CALCULATE  LENGTH  OF  STRING 
STORE  LENGTH  IN  ARGUMENT  BLOCK 
AND  ADDRESS  OF  STRING 


#SF.ENA,C.PRM+2(R5)  ;  IS  THE  STATION  OFF 
50$  ;  CONTINUE 

#LF.ENA,C.PRH+2(R5)  ;  IS  THE  LINE  OFF 


60$ 

#0NL,STABLK+2 

#0N,STABLKt4 

a(SP)t 

#FL.MTP,$FLAGS 

80$ 

*FL.TRI,$FLAGS 

10$ 

2(SP),R5 

(SP)+,(SP) 

90$ 

(SPJ+,R5 


IF  EQ,  YES  ..  OKAY 
ELSE,  IT'S  ON 

SUCCESS  II 

CALL  THE  CALLER  BACK 

IS  THE  LINE  MULTI-POINT 

IF  EQ,  NO  LEAVE 

UANT  ANY  MORE  TRIBUTARY 

IF  NE,  YES 

ELSE,  RESTORE  R5 

MOVE  RETURN  ADDRESS  DOWN  ON  STACK 

AND  RETURN 

ELSE,  RESTORE  R5 

ALL  DONE 


INFO 
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5H0CIR  CREATED  BV     MACRO     ON  29-AUG-85   AT   11:51 

SYMBOL    CRIjSS   REFERENCE 


E   U 

PAGE   3 

CREF       OA.OO 


5H 

ts 


SYMBOL 

VALUE 

REFERENCES 

PVCSW 

001666  R 

#4-226 

'12-778 

•12-784 

•12-861 

•12-867 

PVCTBL 

0016A2  R 

#4-221 

12-877 

PV$PSZ 

~     ••<«•*   QX 

12-836 

PVSWSZ 

=  »•*•*♦  GX 

12-841 

P$VCT 

=  ••••»«  GX 

12-825 

P$VLCN 
PSVNAM 

=  ••»••«  GX 
=  «♦»♦*•  GX 

12-824 
12-756 
12-795 

12-760 
12-796 

12-765 

12-769 

n-m 

12-775 

n-in 

12-788 

PSVOWN 

=  *♦»»**  GX 

12-775 

12-808 

12-862 

PSVPSZ 

=  •«*»*«  GX 

12-838 

PSVSTA 

:  ♦♦..».  GX 

12-831 

PtVUSZ 

=  »«•»»♦  GX 

12-843 

RPRMSG 

000325  R 

#4-153 

6-410 

SCRACH 

001532  R 

#4-199 

SERMSG 

000246  R 

#4-151 

•6-401 

•10-643 

♦12-786 

♦12-797 

SERV 

001355  R 

#4-187 

4-187 

SERVL 

=  000012 

#4-187 

SFSINC 

=  000002 

10-664 

SF.ENA 

=  »»»«♦.  GX 

8-559 

10-690 

SF.SER 

-  ♦»«*♦»  GX 

8-532 

SHOPVC 

004360  R 

5-352 

#12-753 

SHOSVC 

003672  R 

5-354 

#10-630 

STABLK 

002030  R 

4-218 

#4-248 

6-411 

♦7-471 

•8-514 

•8-515 

•8-516 

•8-517 

♦8-528 

•8-545 

•8-556 

•8-557 

♦8-563 

•8-564 

STAMSG 

000266  R 

#4-152 

4-218 

SVCBLK 

001726  R 

4-229 

4-230 

4-231 

4-232 

4-233 

4-234 

#4-237 

10-640 

SVCM1 

000745  R 

#4-165 

^-?^? 

SVCM2 

000773  R 

#4-167 

4-230 

SVCM3 

001050  R 

#4-168 

4-231 

SVCM/h 

001121  R 

#4-169 

4-232 

SVCM5 

001173  R 

#4-170 

4-234 

SVCOl 

001223  R 

#4-171 

♦10-697 

♦10-700 

SVCTBL 

001674  R 

#4-229 

10-708 

SVSDTE 

=  •**•**  GX 

10-698 

SVSPSZ 

=  *»»«♦«  GX 

10-669 

SVSWSZ 

=  .♦.♦.*  GX 

10-674 

SSLBRA 

=  ».»♦».  GX 

6-413 

SSLFLG 

=  •♦•♦♦•  GX 

6-372 

6-405 

8-510 

SSLHTM 

=  •*»*♦♦  GX 

8-507 

SSLRPR 

=  *»»♦»»  GX 

6-412 

SSTCST 

=  ».*»..  GX 

8-528 

10-694 

12-869 

SSTFLG 

=  -■»..*♦  GX 

8-532 

10-690 

SSTHTM 

-  ».»*«»  GX 

8-529 

10-695 

12-871 

SSVFLG 

-    »««»«•  GX 

10-664 

SSVNAM 

=  *....*  GX 

10-641 

10-642 

10-650 

10-654 

10-660 

10-661 

SSVPSZ 

=  *•«•♦♦  GX 

10-671 

S$\/RCl 

-    «**»♦»  GX 

10-678 

SSVWSZ 

=  .».♦♦»  GX 

10-676 

TRIB 

001457  R 

#4-195 

4-249 

8-544 

TRIVAL 

001457  R 

#4-196 

8-541 

TRNTBL 

001624  R 

#4-216 

6-402 

TYPBLK 

001736  R 

4-216 

#4-238 

♦7-448 

•7-449 

♦7-463 

*7-t,M 

•7-466 

*l-i,h7 

12-790 


♦8-518 


SHOf IR 
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tSHEXE  -  SHOW  EXECUTOR  CHARACTERISTICS 


415  002610 

032760 

OOOOOOG 

416  002616 

001414 

417  002620 

016022 

OOOOOOG 

418  002624 

105011 

419  002626 

012701 

001154' 

420  002632 

032760 

OOOOOOG 

421  002640 

001405 

422  002642 

112767 

000054 

423  002650 

016012 

OOOOOOG 

424  002654 

004767 

000064 

425 

426  002660 

000207 

427 

428 

429 

430  002662 

431  002672 

000423 

432  002674 

433  002704 

000416 

434  002706 

435  002716 

000411 

436  002720 

437  002730 

000404 

438  002732 

439  002/42 

000207 

OOOOOOG        BIT  #CS.TLO,C.STS(R0) 

BEQ  200$ 

MOV  P$STL0(R0),(R2)+ 

CLRB  (R1) 

MOV  #SU88A,R1      ; 

OOOOOOG        BIT  *CS.THI,C.STS(R0) 

BEQ  210$ 

176331         M0V8  #<',>, SUBBA2 

200$:   MOV  P$STHI(R0),(R2) 

210$:   CALL  PRINT 


220$:   RETURN 
ERROR  CONDITIONS 


530$ 

240$ 

250$ 

260$ 

270$ 
280$ 


ERROR$  #ERRNOD 

BR  280$ 

fRROR$  #ERRXPT 

aR  280$ 

fRROR$  #ERRROU 

BR  280$ 

ERR0R$  *ERRECL 

BH  280$ 

ERROR$  #ERRDEC 
RET'JRN 


;  DO  I  HEAR  A  LOW  SUBADDRESS  ? 
IF  EQ,  NO  -  GO  GET  HIGH  AND  PRINT 
:  ELSE  SAVE  VALUE, 
ASSUME  NO  HIGH  SUBADDRESS  MISSING 
USE  CORRECT  FORMATTING  STRING 
;  IS  THERE  A  HIGH  SUBADDRESS  ? 
IF  EO,  NOPE 
USE  CORRECT  SEPARATOR 
ELSE  SAVE  IT  IN  LIST 
PRINT  IT 


FAILED  TO  FIND  NODE  TEMPLATE 

AND  RETURN 

FAILED  TO  FIND  NSP  TEMPLATE 


NO  ROUTING  TEMPLATE 
NO  ECL  TEMPLATE 
NO  DEC$DF  TEMPLATE 


(iwnPKF  -  I  i<;t  FxFniTnR  nprioNS 
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^51^6 


112 

113 

IK 

000001 
000002 

115 

116 

00C004 

117 

000010 

118 

000020 

119 

120 

121 

122 

123  000000 

12^  000000 

000062 

125  000002 

000113 

126  OOOOOA 

000156 

127  000006 

000206 

128  000010 

000226 

129  000012 

000454 

130  OOOOU 

001130 

131  000016 

002260 

132  000020 

003410 

133  000022 

003720 

13^  00002A 

004540 

135  000026 

007020 

136  000030 

011300 

137  000032 

016040 

138  00003A 

022600 

139 

140 

000034 

U2 

U3 

144 

145  000036 

146  000036 

000761 ' 

147  000040 

000764' 

148  000042 

000767' 

149  000044 

000772' 

150  000046 

000775' 

151  000050 

001000' 

152  000052 

001003' 

153  000054 

001006' 

154  000056 

001011' 

155  000060 

001014' 

156  000062 

001017' 

157  000064 

001022' 

158  000066 

001025' 

159  000070 

001030' 

160  000072 

001033' 

161  000074 

001036' 

162 

163  000076 

164  000100 

165 

166 

167 

168  GOOOOO 

LOCAL  EQUATES 

OP.CNT 
OP.UNT 
OP. OPT 
OP.STA 
0P.X2P 


DISPLAV  CONTROLLER  INfO. 

DISPLAY  UNIT  INFO. 

DISPLAY  OPTIONAL  INfO 

DISPLAY  LINE  STATE  INFO 

DISPLAY  X.25  LEVEL  2  INFO 


DEFINE  THE  ASYNCHRONOUS  BAUD  RATE  TABLE 


RATETB: 


END: 


.WORD 

50. 

.WORD 

75. 

.WORD 

110. 

.WORD 

134. 

.WORD 

150. 

.WORD 

300. 

.WORD 

600. 

.WORD 

1200. 

.WORD 

1800. 

.WORD 

2000. 

.WORD 

2400. 

.WORD 

3600. 

.WORD 

4800. 

.WORD 

7200. 

.WORD 

9600. 

TBLEN=<END-RATETB> 


UNIBUS  RUN  MASK    TABLE 
URMT8L ; 


.WORD 

CPA 

.WORD 

cp; 

.WORD 

CPC 

.WORD 

CPD 

.WORD 

U8b 

.WORD 

UBF 

.WORD 

UBH 

.WORD 

DHJ 

.WORD 

UBK 

.WORD 

U8L 

.WORD 

U8M 

.WORD 

i;8N 

.WORD 

U8P 

.WORD 

l)8H 

.WORD 

UBS 

.WORD 

U8I 

CURSLT: 

.BLKW 

1 

DSPOPT: 

.8LKW 

1 

I  DEFINE 

UNIT 

TEMPL 

.ASECT 


BIT  SETTINGS 


5 

6 
7 

10 

11 

12 

13 

14 

15 

16 

17  -  >  9600  BAUD 

CALCULATE  LENGTH  OF  TABLE 


BIT 


5 
6 
7 

10 
11 
12 
13 
14 
15 
16 
17 

CURRENT  SLT  TEMPLATE  ADDRESS 
DISPLAY  OPTIONS 
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1  .TITLE  SETOBJ  -  SET  OBJECT  OPTIONS 

2  .IDENT  /V05.00/ 


8 
9 

10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2k 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 

P 
39 

40 

41 

42 

43 

44 

45 

xs 

48 
49 
50 
51 


COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  MODULE  TO  REPLACE  MODIFIED  FREDS  IN  THE  OBJECT  TEMPLATE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-lIM  V3.1 
DECNET-11M-PLUS  Vl.l 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-HM/S  V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 


ITS 


G     1 


<;FTnn  I   -   ';ft  nRipri  nPTrnw<; 
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F  2 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
?9 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE   SETPAR  -  SET  PARAMETER 
.JDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTW/.RE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NETWORK  MANAGEMENT 


SET  PARAMETER 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  08-JUL-81 

DECNET-llM/S  V3.1 
DECNET-11M-PLUS  VI. 1 

2.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-M-;cro/RSX  VI. 0 


ccTDjD   -   ccT   DioiMPTFD     MirRn   uflS   fl^h   ^jtiirrisv   ?9-.lun-85    17:50 


Paae   5 


SETORO     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:23 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFEREMCES 


F  3 

PAGE  2 

CREF   OA.OO 


EPRINJT 

#4-78 

ERRORS 

#4-67 

5-128 

lLCTPT 

#4-55 

4-57 

PRINT 

#4-62 

G  3 


t*F  II  F*tin.»<;FTP\/r 


L 


SETPVC  CREATED  BV     MACRO     ON  29-JUN-85  AT   05:23 

MACRO   CROSS  REFERENCE 


F     4 

PAGE   3 

CREF       OA.OO 


SE 
Of 


MACRO  NAKE 

REFERENCES 

CALLR 

#^-85 

SPRINT 

#^-73 

ERRORS 

M-62               5-253 

^RINT 

#4-57               7-337 

5ESRG 

#4-83              7-338 

SAVRG 

#4-83              7-325 

7-333 


G     4 


»»F  II  Ft.ir)«»^FTDFM 


^ 
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SETREM  -  SET  REMOTE  NODE  OPTION  MACRO  V05.03b  Monday  01-Jul-85  16:37  Page  9 
DEAFIL-DEALLOCATE  A  FILE  NAME  BLOCK 


383 
38A 
385 
386 
387 
388 
389 
390 
391 
392 
393 
39A 
395 

396  001000 

397  001 OOA 

398  001006 

399  001012 
AOO  001 01 A 
AOl  001020 
402  001022 
A03  00102A 
AOA  001026 
A05  001030 
A06  C01032 
A07  001 03A 
A08  001 040 

409  001044 

410  001046 

411  001052 

412  001056 

413  001062 

414  001066 
415 

416  001070 
417 


004767 
011105 
005365 
101025 
012704 
010403 
011404 
CC1421 
020405 
001373 
011413 
012700 
012701 
010502 
004767 
004767 
160067 
160067 
000207 


000167  OOOOOOG 


OOOOOOG 

000002 

OOOOOOG 


OOOOOOG 
000043 

OOOOOOG 
000140 
OOOOOOG 
OOOOOOG 


.SBTTL  DEAFIL-DEALLOCATE  A  FILE  NAME  BLOCK 

DEAFIL-DEALLOCATE  A  FILE  NAME  BLOCK 

INPUTS:       (R1)  =  ADDRESS  OF  FILE  NAME  BLOCK 

OUTPUT: 


TARGET  NAME  BLOCK  USE  COUNT  IS  DECREMENTED. 

IF  NECESSARY  IT  IS  DEALLOCATED  AND  $BYTMN,$BYTXT 

ARE  ADJUSTED. 


ALL  REGISTERS  ARE  PRESERVED. 


ISAVAL 

(R1),R5 

F.CNT(R5) 

30$ 

#$FILHD,R4 

R4,R3 

(R4),R4 

101$ 

R4,fi5 

loi 

fR4),(R3) 

#$XXAVL,R0 

#F.LEN,R1 

R5,R2 

$RL8F 

GETBYT 

RO,$BYTMN 

RO,$BYTXT 


.CONER 


DEAFIL 

CALL 

MOV 

DEC 

BHI 

MOV 

10$: 

MOV 

MOV 

BEQ 

CMP 

BNE 

MOV 

MOV 

MOV 

MOV 

Call 

CALL 

SUB 

SUB 

30$: 

re: URN 

1011 


JMP 


SAVE  EM 

GET  NAME  BLOCK  ADDRESS 

REDUCE  USE  COUNT 

IF  HI,  CAN'T  DEALLOCATE 

ELSE  POINT  TO  LISTHEAD 

SAVE  PREDECESSOR 

POINT  TO  NEXT  NAME  BLOCK 

IF  EQ,  SOMETHING'S  WRONG 

IS  THIS  THE  TARGET  BLOCK  ? 

IF  NE,  KEEP  LOOKING 

REMOVE  IT  FROM  THE  LIST 

POINT  TO  FREE  LIST 

SIZE  OF  BLOCK 

POINT  TO  BLOCK 

RELEASE  CORE  BLOCK 

GET  SIZE  OF  ALLOCATION  IN  BYTES 

REDUCE  BYTE  POOL  MINIMUM 

..AND  PRESENT  VALUE 


;  BIG  TROUBLE 


G  5 
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f    :^3 


111  oocrio 

112 


.PSECT 
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L. 


SETSLT  - 
SETLIN  - 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 


SET  SLT  PARAMETERS 
SET  LINE  STATE 


000354 
000354 
000362 
000364 


000370 
000376 
000400 
000406 
000410 
000416 


000420 
000426 
000430 
000434 
000436 
000442 
000446 
000450 
000454 


000456 
000464 
0004  ;'2 
000474 


032765 
001002 


032765 
001010 
032767 
001435 
052765 
000431 


032767 
001025 
105765 
001002 
004767 
004767 
103003 
004767 
000412 


042765 
032767 
001403 
052765 


000502  000207 
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.SBTTL  SETLIN  -  SET  LINE  STATE 
**  SETLIN  -  SET  LINE  STATE 
INPUTS       R5  =  ADDRESS  OF  SLT  TEMPLATE 
OUTPUT       SLT  TEMPLATE  MODIFIED 
REGISTERS     NO  REGISTERS  ARE  MODIFIED 


OOOOOOG  OOOOOOG 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


SETLIN: 


BIT     *LF.MTP,S$LFLG(R5)  ;  MULTIPOINT  LINE  ? 

BNE     10$  ;  BR  IF  YES 

CALLR   SETPTP         ;  ELSE  SET  POINT  TO  POINT  STATE 


MULTIPOINT  LINE 

10$ 


TREAT  REQUEST  FOR  ON  AS  REQUEST  FOR  OFF 


BIT  #LF.MFL,S$LFLG(R5)  ;  IS  THIS  LINE  LOADED  ? 

BNE  20$  ;  IF  NE,  YES 

BIT  #SW.LOA,$SWICH  ;  NEU  STATE  ON  OR  OFF  ? 

BEQ  40$  ;  IF  EQ,  NO  -  ALREADY  CLEARED 

BIS  #LF.MFL,S$LFLG(R5)  ;  ELSE  NEW  STATE  =  OFF 

BR  40$ 

M-P  CONTROLLER:  DON'T  ALLOW  CHANGE  FROM  ON  TO  [OFF .CLEARED] 

IF  ANY  CIRCUITS  ARE  STILL  ACTIVE 
M-P  TRIBUTARY:   TURN  CORRESPONDING  CIRCUIT  OFF 


OOOOOOG  OOOOOOG 

OOOOOOG 

000340 
000512 

000552 


50$: 

22$: 
25$: 


BIT 

#SW.ENA,$SWICH 

BNE 

40$ 

TST8 

S$LTYP(R5) 

BNE 

22$ 

CALL 

SETSTA 

CALL 

FNDACT 

BCC 

30$ 

CALL 

ACTERR 

BR 

40$ 

NEW  STATE  =  ON  ? 

IF  NE,  YES  -  LEAVE  CURRENT  STATE  (ON  OP 

CHECK  FOR  MULTIPOINT  CONTROLLER 

IF  NE,  YES  -  DON'T  CHANGE  CIRCUITS 

ELSE  TURN  CORRESPONDING  CIRCUIT  OFF 

ELSE  CHECK  FOR  TRIBUTARY  ACTIVITY 

IF  CC,  NO  CIRCUITS  ACTIVE 

ELSE  CAN'T  CHANGE  STATE  WITH  CIRCUITS  AC 

CONTINUE 


'IVE 


MULTIPOINT  LINE:  NO  T^IBS  ARE  ACTIVE,  SET  NEW  STATE  OF  OFF  OR  CLEARED. 


OOOOOOC  OOOOOOG 
OOOOOOG  0000  % 

OOOOOOG  OOOOOOG 


50$: 


40$: 


BIC 
BIT 
BEQ 
BIS 

RETURN 


#LF.ENA:LF.MFL,S$LFLG(R5)  ;  ASSUME  NEW  STATE  =  CLEARED 
*SW.LOA,$SWICH  ;  MARK  FOR  LOAD  ? 
40$  ;  IF  EQ,  NO 

#LF.MFL,S$LFLG(R5)  ;  ELSE  MARK  IT  FOR  LOAD 


t;FT  <;i  T  PAR&MFTFRS 
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•♦F!LE*MD»«SETSVC 
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ssssssss 

EEEEEELEEE 

TTTTTTTTTT 

ssssssss 

vv 

vv 

cccccccc 

ssssssss 

EEEEEfEEEE 

TTTTTTTTTT 

ssssssss 

vv 

vv 

cccccccc 

ss 

EE 

SS 

vv 

vv 

ss 

EE 

ss 

vv 

vv 

ss 

EE 

SS 

vv 

vv 

ss 

EE 

53 

vv 

vv 

ssssss 

EEEEEEEE 

SSSSSS 

vv 

vv 

ssssss 

EEtEEEEE 

SSSSSS 

vv 

vv 

ss 

EE 

SS 

vv 

vv 

ss 

EE 

SS 

vv 

vv 

ss 

EE 

SS 

vv 

vv 

ss 

EE 

SS 

vv 

vv 

ssssssss 

EEEEEEEEEE 

SSSSSSSS 

vv 

cccccccc 

ssssssss 

EEEEEEEEEE 

SSSSSSSS 

vv 

cccccccc 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

'  LLLLLLLLL 

SSSSSSS5 

LLLLLLLLLL 

ssssssss 

DADAMP  TCDC 


MirBn  un',  nXh  ^at-nrri^iv  ?9- 
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55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 

97  000000 

98 

99 

100 

101 

102  000002 

103  000034 
104 

105 
106 
107 
10S  000076 

109  000076 

110  000100 

111  000102 


•  *♦«« 

;  LOCAL  MACROS 

•  **** 


.MACRO  PRINT   TEXT 


MOV 

CALL 

.ENDM 


TEXT.RO 

SPRINT 

PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


000000 


.IF  DIF  <TEXT><R0> 

MOV     TEXT.RO 

.ENDC 

CALL    SCFERR 

.ENDM   ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

•  **** 

•  LIBRARY  MACRO  CALLS 

;  **** 

.MCALL  CHADFS 

CHADFS 

**** 
LOCAL  DATA 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


000002 

000000 

002 

000 


000062 
000113 
000156 


103 
103 


DDM: 


106  ERRBAU: 
106  ERRSEC; 


.BLKW 

.NLIST 

.ENA8L 

EXSERR 

EXSWAR 

.ASCIZ 

.ASCIZ 

.EVEN 


DEFINE  CHARACTERISTICS  WORDS  OFFSETS 


DDM  PROCESS  NAME 


1 

BEX 

LC 
=  2 
=  0 

<EX$ERR>/CFE  —  Illegal  baud  rate/ 

<EXSUAR>/CFE  ~  No  unit  CSR  on  this  line/ 


DEFI^■^  THE  ASYNCHRONOUS  BAUD  RATE  TABLE 
RATET8 


.WORD 
.WORD 
.WORD 


50. 
75. 

110. 


BIT  SETTINGS 

0 

1 

2 
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56 
57 
58 
59 
60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 


■  **  *  * 

■  LOCAL  MACROS 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  Of  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERl 

.ENDM  EPRINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRES;:  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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CREF       OA.OO 


SI 
T, 


SYMBOL 

VALUE 

REFERENCES 

CS.X5P 

- 

****** 

GX 

6-113 

C.STS 

- 

****** 

GX 

6-113 

ERRX3P 

000000 

? 

#5-92 

6-163 

EX$ERR 

r 

000002 

#5-90 

5-92 

XP.CLT 

- 

******* 

r,x 

6-119 

XP.CTM 

= 

GX 

6-115 

XP.DFB 

= 

*«** t * 

GX 

6-123 

XP.DFW 

= 

****** 

GX 

6-127 

XP.MRE 

- 

♦***♦* 

GX 

6-U3 

Xr.MXB 

= 

♦♦*♦** 

GX 

6-1|5 

XP-MX" 

= 

GX 

6-139 

XP.MXR 

= 

****** 

GX 

6-U7 

XP.MXW 

i 

**♦♦■** 

GX 

6-131 

XP.RET 

= 

****** 

GX 

6-151 

XP.RST 

r 

.-***♦* 

GX 

6-155 

X$3CT 

= 

****** 

GX 

»6-117 

XI3DFP 

= 

****** 

GX 

•6-125 

X$3DW 

- 

*  ***** 

GX 

•6-129 

X$3KM 

r 

****** 

GX 

•6-U1 

X$3KT 

~ 

****** 

GX 

•6-121 

X$3MW 

- 

****** 

GX 

•6-133 

X$3MXP 

3 

****** 

GX 

♦6-137 

X$3RM 

r 

GX 

•6-U5 

X$3RT 

- 

****** 

GX 

•6-153 

X$5SM 

= 

****** 

GX 

♦6-K9 

X$3ST 

= 

****** 

GX 

•6-157 

$BS7 

- 

****** 

GX 

6-137 

SCALT 

- 

****** 

GX 

6-117 

SCFERR 

- 

****** 

GX 

6-163 

$CLT 

~ 

****** 

GX 

6-121 

$DFD 

= 

****** 

GX 

6-125 

$DFW 

= 

****** 

GX 

6-129 

$MRE 

:.- 

GX 

6-U5 

$MWI 

r 

****** 

GX 

6-133 

$MXC 

- 

****** 

GX 

6-1A1 

$MXR 

- 

****** 

GX 

6-149 

SQPRND 

- 

GX 

6-115 
6-151 

6-119 
6-155 

SPSIPT 

- 

****** 

GX 

6-110 

$RET 

~ 

****** 

GX 

6-153 

$RST 

r 

****** 

GX 

6-157 

$S£X3P 

000036 

RG 

#6-109 

6-123 


6-127 


6-131 


6-135 


6-139 


6-K3 


6-U7 
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SHOCIR  -  LIST  CIRCUIT  CHARACTER  MACRO  V05.03b  Thjrsday  29-Aug-85  11:5 
Table  ot  contents 

-  SHOW  CIRCUIT  CHARACTERISTICS 

-  DISPLAY  TRANSPORT  CIRCUIT  INFO 

-  GET  TRANSPORT  CIRCUIT  INFORMATION 

-  GET  THE  LOADING  INFORMATION  CO-ROUTINE 

-  FORMAT  A  LINE  ID 

-  SHOW  SWITCHED  VIRTUAL  CIRCUITS 

-  GET  STATION  TEMPLATE 

-  SHOW  PERMANENT  VIRTUAL  CIRCUIT 
PRINT  FORMATTED  DATA 


SMC 
FMl 


s- 

252 

SSHCIR 

6- 

557 

DISPLY 

i- 

A19 

GETTCI 

H- 

A77 

GETSLT 

9- 

579 

FMTLIN 

10- 

616 

SHOSVC 

11- 

716 

6ETSTA 

V- 

737 

SHOPVC 

15- 

88A 

PRINT 
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FMTLIN  -  fORMAT  A  LINE  ID 
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579 

.SBTTL 

FMTLIN  -  FORMAT  A  LIN 

IC 

580 
581 

+ 

FMTLIN 

-  FORMAT  A  LINE  ID 

582 
583 

INPUTS: 

584 

$FLAGS 

=  FLAGS  WORD 

585 
586 

OUTPUTS; 

587 
588 

LINE  ID 

FORMATTED  INTO  OUTPUT 

BUFFER 

589 
590 
591  003536 

012700 

000137' 

WTLIN: 

MOV 

#L1N]D,R0 

;  GET  ADDRESS  gfOUTPUTBUFFER 

592  003542 

012703 

OOOOOOG 

MTLNl: 

MOV 

#$DVNAM,R5 
L$NAM(r5),R1 

POINT  AT  LINE  DESCRIPTOH 

593  003546 

016301 

OOOOOOG 

■MTLN2: 

MOV 

GET  DEVICE  NAME 

594  003552 

004767 

OOOOOOG 

CALL 

$C5TA 

CONVERT  NAME  TO  ASCII 

595  005556 

112720 

000055 

M0V8 

*'-,(R0)+ 

INSERT  DELIMETER 

596  003562 

116501 

0000006 

M0V8 

L$CNT(R3),R1 

GET  CONTROLLER  NUMBER 

597  003566 

012702 

014012 

MOV 

#<10.1<3*4000»,R2 

BASE=10.,  WIDTH  =  3 

598  003572 

004767 

OOOOOOG 

CALL 

SCBTA 

CONVERT  TO  ASCII 

599  003576 

032767 

OOOOOOG  OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

S  THIS  A  MUX  DEVICE  ? 

600  003604 

001410 

BEQ 

10$ 

IF  EO,  NO 

601  003606 

112720 

000055 

M0V8 

#'-,(RO)t 

INSERT  DELIMETER 

602  003612 

116301 

OOOOOOG 

M0V8 

L$UNT(R3),R1 

ELSE,  GET  UNIT  NUMBER 

603  003616 

012702 

014012 

MOV 

#<10.I<5*4000»,R2 

BASE=10.,  WIDTH  =  3 

604  003622 

004767 

OOOOOOG 

CALL 

$CBTA 

CONVERT  TO  ASCII 

605  003626 

032767 

OOOOOOG  OOOOOOG 

10$: 

BIT 

#FL.MTP,$FLAGS 

IS  THE  LINE  MULTI-POINT  ? 

606  003634 

001414 

BEQ 

20$ 

IF  EQ,  NO 

607  003636 

032767 

OOOOOOG  OOOOOOG 

BIT 

#rL.SLV,$FLAGS 

MULTIPOINT  SLAVE  CIRCUIT  ? 

608  003644 

001010 

BNE 

20$ 

IF  NE,  YES  -  NO  TRIB  NUMBER  WANTED 

609  003646 

112720 

000056 

M0V8 

#'.,(RO)t 

INSERT  DELIMETER 

610  003652 

016501 

OOOOOOG 

MOV 

L$TRI(R5),R1 

ELSE,  GET  TRIBUTARY  NUMBER 

611  003656 

012702 

014012 

MOV 

#<10.!<5*4000»,R2 

■  BASE=10.,  WIDTH  =  5 

612  003662 

004767 

OOOOOOG 

CALL 

$C8TA 

•  CONVERT  TO  ASCII 

613  003666 

105010 

20$: 

CLR8 

(RO) 

•  MAKE  STRING  ASCI2 

614  003670 

000207 

RETURN 
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SHOCIR     CREATED  BY  MACRO  ON  29-AUG-85  AT  11:51 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


TYPMSG 

WC.CNT 

WC.NAM 

WC.TRl 

WC.UNT 

X$3DFP 

X$3DW 

X25 

X25L 

SBUFF 

tCBTA 

SCFERR 

SCIRID 

SCNFIG 

SCNTNM 

SCOMP 

$C5TA 

SDVNAM 

SEDMSG 

tFLAGS 


SFNPRO 

SFNSLT 

SFNSTA 

SGTBUF 

SPRINT 

SPSIPT 

SSHCIR 

SSTAN 

STMLST 

SUNTNM 

SWILD 


000172  R 

**♦**♦ 
* t**** 

****** 

****** 
****** 
****** 

001351 
000004 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
6X 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


-   ****** 


GX 
GX 
GX 
GX 
GX 
GX 

002046  RG 
=  ******  GX 
=  ******  GX 
-    ******  GX 
=  ******  GX 


$$$     =  000017 
$$$1    =  000065  R 


REFERENCES 

#4-U9 

5-301 

5-266 

10-652 

5-324 

10-668 

10-672 
#4-186 
#4-186 

5-269 

8-543 

6-393 

12-756 

6-407 

5-306 

5-332 

7-442 
•5-292 

5-271 

5-273 

8-519 

12-758 

5-279 

8-501 

8-523 

5-270 

5-272 

5-337 
#5-264 
•5-285 

5-278 

5-326 

5-266 
•11-733 
#4-203 

4-208 
#4-203 

4-208 


4-216 
5-304 

11-728 

11-728 

12-835 

12-839 

4-186 

12-812 

5-272 

8-554 

12-760 

•5-308 
10-644 
9-594 
7-441 
6-414 
5-283 
8-521 
12-779 

11-730 
11-732 

6-400 


•7-460 
5-293 

•5-328 
5-301 
12-763 
4-203 

#4-209 
4-205 

#4-209 


5-317 
12-767 

12-815 

6-409 
9-598 


10-650 
12-754 

9-592 
12-801 
•5-286 
8-549 
12-851 


6-415 


10-654 
10-654 

5-504 

12-767 
#4-205 

4-209 
#4-205 

4-209 
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CREf       04.00 


SF 
PF 


10-648 
12-781 


6-415 
9-604 


•10-660 


•10-659 
13-900 
5-322 
8-568 

•12-852 


15-901 


•10-661 
11-729 

5-317 

12-781 

4-205 

#4-212 
4-205 

#4-212 


12-765 


15-896 
9-612 


12-781 


15-901 


12-765  ^12-772 

•12-771 

6-574  ^6-585    ^6-587 

8-570  9-599     9-605 

•12-855  ^12-857 


•7-452 
9-607 


•7-459 
10-646 


12-769 


5-52 

#4-206 
4-212 

#4-206 
4-212 


•12-773 


10-648 

4-206 
#4-213 

4-206 
#4-215 


10-652 

#4-207 
4-213 

#4-207 
4-213 


11-727 

4-207 
#4-214 

4-207 
#4-214 


•11-728 

#4-208 
4-214 

#4-208 
4-214 
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.SBTTL  PRINT  -  P,;.'NT  A  LINE 
•♦-PRINT-PRINT  A  LINE 
INPUTS: 


SHOEXE  -  LIST  EXECUTOR 

OPTIONS 

PRINT  -  PRINT  A 

LINE 

i,t,^ 

1,1,2 

1,1,1 

1,1,1, 

445 

446 

447 

448 

449 

450 

451 

452 

453  002744 

454  002744 

012700 

OOOOOOG 

455  002750 

012702 

001460' 

455  002754 

004767 

OOOOOOG 

457  002760 

458  002770 

000207 

OUTPUT: 
REGISTERS: 


Rl  =  TEXT  fORMATTING  STRING 
MSG8LK  =  ARGUMENT  BLOCK 

THE  TEXT  IS  FORMATTED  AND  PRINTED. 

RO,  Rl,  R2  ARE  CLOBBERED. 


PRINT: 


MOV 

MOV 

CALL 

PRINT 

RETURN 


#$8UfF,R0 
#MSGBLK,R2 
SEDMSG 
#$BUFF 


POINT  AT  OUTPUT  BUFFER 
POINT  AT  THE  MESSAGE  BLOCK 
FORMAT  THE  LINE 
PRINT  MESSAGE 
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169 

170  OOCOOO 

171  000002 

172  000004 
175  000006 
17A  000010 

175  000012 

176  OOOOU 

177  000016 
178 

179  000102 

180 

181 

182 

183 

18^. 

185 

186 

187 

188 

189  000102 

190  0OOU5 

191  000216 

192  000226 

193  000252 

194  000337 

195  000413 

196  000422 

197  000474 

198  000545 

199  000631 
200 

201  000647 

202  000710 
203 

204 

205 

206  C00730 

207 

208  000734 

209 

210  000740 

211 

212  C00742 

213 

214  000745 

215 

216  000754 

217 

218 

219 

220  000761 

221  000764 

222  000767 

223  000772 

224  000^75 

225  001000 


000000 


000020 


000002 


012 
012 
012 

040 
040 
045 
040 
040 
040 
040 

002 


106 
000004 

110 
000004 

117 
000002 

117 
000003 

103 
000007 

076 
000005 


103 
103 
103 
103 
125 
125 


114 
113 
114 

040 
040 
126 
040 
040 
040 
040 

012 


165 
141 
156 
146 
154 
071 


120 
120 

120 
120 
102 
102 


,UNT 

,CWO 

CWl 


C.CSR 
C.CST 
C.DPR 
C.LEN=. 


C.LNK 

C.STS 

UNIT  NUMBER 

CHARACTERISTICS  WORD  0 

CHARACTERISTICS  WORD  1 

SECONDARY  CSR  ADDRESS 

LINE  COST 

DEAD  POLLING  RATIO 


151 
156 
151 

103 
104 
101 
110 
115 
115 
123 

103 


154 
154 

146 
145 
066 


.=0 

.BLKW 
.BLKW 
.8LKW 
.8LKW 
.BLKW 
.8LKW 
.BLKW 
.BLKW 

.PSECT 

.NLIST  BEX 
.ENABL   LC 
EXSERR  =  2 

FORMAT  STRINGS  -  •*  NOTE  *•  EDIT  MESSAGE  ALWAY  MOVES  AT  LEAST  ONE  CHARACTER 
FROM  THE  INPUT  STRING  INTO  THE  OUTPUT  BUFFER  (EVEN  IF  YOU 
SAY  THE  INPUT  LENGTH  IS  ZERO  FOR  A  SIVA)  II 

.ASCIZ  <12>/Line  characteristics  as  of  !!Y  %ll/ 

ASCII  <12>/Known  line  characteristics  as  of  XY  Xll/ 

.ASCII  <12>/Line  =  / 

Rl  KR  20 

!aSCIZ  /  'controller  CSR  =  !!P,  Vector  =  J!0,  Priority  =  XOXVA/ 

.ASCIZ  /  Duplex  -  5!VA,  Speed  =  XVA,  Protocol  =  XVA/ 

.ASCIZ  /XVAZtA/ 

.ASCIZ  /  Holdback  timer  =  5!M,  Counter  timer  =  XM/ 

.ASCIZ  /  Maximum  data  =  Xfl,   Maximum  window  =  XM/ 

.ASCIZ  /  Maximum  retransmits  =  XM,  Retransmit  timer  =  XMOO/ 

.ASCIZ  /  State  =  5!VA/ 


HEADR: 

HEADR1 : 

LINMSG: 

LINID: 

CNTMSG 

UNTMSG 

OPTMSG 

X2PMSG 

X2PM'^2 

X2PMS3 

STAMSG 

ERRX2P: 
X2PLIN: 


.ASCII   <EX$ERR><12>/CFE  -  Missing  X2P$DF  for  line  / 
.8LKB   20 


REPLACEMENT  STRINGS 


FULL: 

HALF: 

ON: 

OFF: 

CLEAR: 

HISPD: 


.ASCII   /Full/ 
FULLN=.-FULL 
.ASCII   /Half/ 
HALFLN=.-HALF 
.ASCII   /On/ 
ONL=.-ON 
.ASCII   /Off/ 
OFFL=.-OFF 
.ASCII  /Cleared/ 
CLEARL=. -CLEAR 
.ASCII   />9600/ 
HISPDL=. -HISPD 


101  CPA 

102  CPB 

103  CPC 

104  CPD 

105  UBE 

106  U8f 


.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 


/CPA/ 
/CPB/ 
/CPC/ 
/CPD/ 
/USE/ 
/U8F/ 
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SETOBJ  -  SET  OBJECT  OPTIONS 
MACRO  DEFINITIONS 


u 
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.SBTTL  MACRO  DEFINITIONS 


**** 
LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


POINT  r-  u  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 

THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 

.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRJNT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT,RO 

.ENDC 

CALL  SCFERI 

.ENDM  EPRINT 

**** 

MACRO  CALLS 
**** 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


92  000000 
93 


101  000000 

102  O000A2 

103  000115 

104  000201 
105 

106 
107 
108 
109  000000 


.MCALL   I  STATS, STATES, TRANS, OBJDFS 
OBJDFS 


000002 
002 
002 
002 
002 


103 
103 
103 
103 


106 
106 
106 
106 


LOCAL  DATA 


.NLIST 
.ENABL 
EXSERR 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 


ERRBUF 
ERRNAM 
ERRONA 
ERRMUL 


DEFINE  OBJECT  BLOCK  SYMBOLS 


BEX 
LC 
=  2 

<EXSERR>/CFE  ~  Buffer  allocation  failure/ 
<EX$ERR>/CFE  —  Object  task  name  must  be  specified/ 
<EX$ERR>/CFE  ~  TflsL  name  not  allowed  with  object  type  zero/ 
<EX$ERR>/CFE  —  Invalid  multicopy  taskname/ 


DEFINE  OBJECT  TEMPLATE 
.ASECT 


L/nc:  n7k  c^*-. 
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SETPAR  - 
SETPAR  - 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
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SET  A  PARAMETER  AND  DATA  TYPE 


.SBTTL  SETPAR  -  SET  A  PARAMETER  AND  DATA  TYPE 

**-SETPAR-SET  A  PARAMETER  NUMBER  AND  DATA  TYPE 

THIS  ROUTINE  IS  CALLED  TO  SET  A  PARAMETER  NUMBER  AND  NICE  DATA 
TYPE  INTO  THE  OUTPUT  BUFFER. 

INPUTS: 

R3  =  ADDRESS  OF  NEXT  BYTE  IN  OUTPUT  BUFFER 

R5  =  ADDRESS  OF  PARAMETER  FOLLOWED  BY  DATA  TYPE  BYTE 

OUTPUTS: 

R3  =  ADDRESS  OF  NEXT  BYTE  IN  OUTPUT  BUFFER 

REGISTERS: 

R4  IS  PRESERVED 


000000 

000000  112523 

000002  112523 

000004  112523 

000006  105725 

000010  000205 

000001 


SETPAR:: 


Move 

M0V8 
MOVB 
TSTB 
RTS 

.END 


.•R5)  +  ,(R3)t 
(R5)  +  ,(R3)<- 
(R5)+,(R3)+ 
(R5)  + 
R5 


SET  PARAMETER  LOW  BYTE 

AND  HIGH  BYTE 

SET   DATA   TYPE  BYTE 

SKIP   HIGH  BYTE 

RETURN 


CPT     DSD4MCTFP        MArOn     UOS     flXh     i^atlirHav     29- 


-85   17:50 
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•♦FILE**ID««SETPVC 


ssssssss 

EEEEEEEEEE 

TTTTTTTTTT 

PPPPPPPP 

VV 

VV 

cccccccc 

ssssssss 

EEEEEEEEEE 

TTTTTTTTTT 

PPPPPPPP 

VV 

VV 

cccccccc 

ss 

EE 

PP      PP 

VV 

VV 

ss 

EE 

PP      PP 

VV 

VV 

ss 

EE 

PP      PP 

VV 

VV 

ss 

EE 

PP      PP 

VV 

VV 

ssssss 

EEEEEEEE 

PPPPPPPP 

VV 

VV 

ssssss 

EEEEEEEE 

PPPPPPPP 

VV 

VV 

ss 

EE 

PP 

VV 

VV 

ss 

EE 

PP 

VV 

VV 

ss 

EE 

PP 

VV 

VV 

ss 

EE 

PP 

VV 

VV 

ssssssss 

EEEEEEEEEE 

PP 

VV 

cccccccc 

ssssssss 

EEEEEEEEEE 

PP 

VV 

cccccccc 

SSSSSSSS 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

SS 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

MAT  Dn     \/Ac;     ClX^ 


rW:.w      DQ-   liin-flR 


HsJ. 


G     A 


*«F1LE'MD««SETREM 


SI 

Fl 


ssssssss 

EEEEEEEEEE 

TTTTTTTTTT 

RRRRRRRR 

EEEEEEEEEE 

MM      MM 

SSSSSS55 

EEEEEEEEEE 

TTTTTTTTTT 

RRRRRRRR 

EEEEEEEEEE 

MM      MM 

SS 

EE 

RR      RR 

EE 

MMMM     MMMM 

SS 

EE 

RR      RR 

EE 

MM MM     MMMM 

SS 

EE 

RR      RR 

EE 

MM  MM  MM 

SS 

EE 

RR      RR 

EE 

MM  MM  MM 

SSSSSS 

EEEEEEEE 

RRRRRRRR 

EEEEEEEE 

MM             MM 

SSSSSS 

EEEEEEEE 

RRRRRRRR 

EEEEEEEE 

MM      MM 

SS 

EE 

RR  RR 

EE 

MM      MM 

SS 

EE 

RR  RR 

EE 

MM      MM 

SS 

EE 

RR    RR 

EE 

MM      MM 

SS 

EE 

RR    RR 

EE 

MM      MM 

SSSSSSSS 

EEEEEEEEEE 

RR      RR 

EEEEEEEEEE 

MM      MM 

SSSSSSSS 

EEEEEEEEEE 

RR      RR 

EEEEEEEEEE 

MM      MM 

LL 

SSSSSSSS 

TTTTTTTTrr 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

.L 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

5S 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

rr     mniMT     nnrinM     MATDn     \iri^     H'^K     Mn 
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FNDFIL  -  FIND  A  MATCHING  FILE  BLOCK 


^19 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 

434  001074 

435  oonoo 

436  001104 

437  001106 

438  001110 

439  001112 

440  001116 

441  001120 

442  001124 

443  001126 

444  001130 

445  001132 

446  001136 

447  001140 
4'.8  001142 


004767  OOOOOOG 

012705  OOOOOOG 

011505 

001414 

010504 

062704  000004 

010003 

012702  000037 

122324 

001366 

077203 

010566  000014 

005727 

000261 

000207 


.SBTTL   FNDFIL  -  FIND  A  MATCHING  FILE  BLOCK 

h 

FNDFIL  -  FIND  A  MATCHING  FILE  BLOCK 

INPUTS:       RO      =  ADDRESS  OF  PROTOTYPE  FILE  BLOCK 

OUTPUTS:      IF  CS,  NO  MATCHING  FILE  BLOCK 
OTHERWISE 

R5      =  ADDRESS  OF  FILE  BLOCK  IN  LIST 

ALL  REGISTERS  ARE  PRESERVED. 


FNDFIL: 
10$: 


20$: 


30$: 


CALL 

$SAVAL 

SAVE  EM 

MOV 

#$FILHD,R5 

POINT  TO  FILE  HEADER 

MOV 

(R5),R5 

NEXT 

BEQ 

30$ 

IF  EQ,  NO  MORE 

MOV 

R5,R4 

COPY  ADDRESS 

ADD 

#F.DEV-1,R4 

POINT  TO  TEXT  PORTION 

MOV 

R0,fi3 

POINT  TO  PROTO 

MOV 

*F.LEN-<F.DEV-1> 

R2  ;  BYTE  COUNT 

CMPB 

(R3)+,(R4)+ 

DO  THEY  MATCH  ? 

BNE 

10$ 

IF  NE,  NO  -  KEEP  LOOKING 

SOB 

R2,20$ 

CONTINUE 

MOV 

R5,14(SP) 

UPDATE  SAVED  R5 

TST 

(PC)  + 

SUCCESS 

SEC 

FAILURE 

RETURN 
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114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 

127  000110 

128  000110 
129 

130 
131 

132  OOOIK 

133  000116 

134  000120 

135  000126 

136  000130 

137  000134 

138  000136 
139 

140  000144 

141  000152 

142  000154 
143 

144  000162 

145  000170 

146  000172 
147 

148  000200 

149  000206 

150  000210 

151  000216 

152  000220 

153  000226 
154 

155  000234 

156  000242 

157  000244 
158 

159  000252 

160  000260 

161  000262 
162 

163  000270 

164  000276 

165  000300 
166 

167  000306 

168  000314 

169  000316 
170 


.SBTTL  SSEROU  -  SET  ROUTING  PARAMETERS 
'»*•  -  SSEROU  -  SET  ROUTING  PARAMETERS 
INPUT: 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT 


CARRY  CLEAR:  THE  ROUTING  TEMPLATE  IS  MODIFIED. 
CARRV  SET:  THE  CETAS  IS  FOR  A  NON-ROUTING  NODE,  AND  AN  ERROR 
MESSAGE  HAS  BEEN  PRINTED. 


012700  OOOOOOG 


011000 
001522 
122760 
001372 
005760 
001521 
052760 

032767 
001403 
016760 

032767 
001403 
016760 

032767 
001412 
026060 
001003 
016760 
016760 

032767 
001403 
016760 

032767 
001403 
016760 

032767 
001403 
016760 

032767 
001403 
016760 


SSEROU:: 


MOV     #$TMLST,RO 
SEARCH  FOR  THE  ROUTING  TEMPLATE 


10S: 


OOOOOOG 

OOOOOOG 

000004 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000010 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000006 

OOOOOOG 

OOOOOOG 

000004 

000016 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


000016 
000004 

OOOOOOG 

000012 

OOOOOOG 

000022 

OOOOOOG 

000020 

OOOOOOG 

000014 


20S: 
30$: 

35$: 
40S: 

50S: 

60$: 

70$: 


MOV 

BEQ 

CMP8 

BNE 

TST 

BEQ 

BIS 

BIT 
BEQ 
MOV 

BIT 
BEQ 
MOV 

BIT 
BEQ 
CMP 
BNE 
MOV 
MOV 

BIT 
BEQ 

MOV 

BIT 
BEQ 
MOV 

BIT 
BEQ 
MOV 

BIT 
BEQ 
MOV 


{RO),RO 

101$  ; 

#CS.ROU,C.STS{R0) 

10$ 

C.ADD(RO) 

102$  , 

#CS.MOD,C.STS(R0) 

#OE.MXH, SOPRND  ; 
20$ 
$MAXH,C.HOP(R0)  ; 

#0E. MX C, SOPRND  ; 
30$ 
SMAXCC.CSTCRO)  ; 

#OE.NN, SOPRND   ; 
40$ 


GET  START  OF  TEMPLATES 


GET  NEXT  TEMPLATE 

IF  EQ,  NO  ROUTING  TEMPLATE 

;  IS  THIS  THE  ROUTING  TEMPLATE  ? 

IF  NE,  NO  -  KEEP  LOOKING 

IS  THIS  A  ROUTING  NODE  ? 

IF  EQ,  NO  -  ILLEGAL  PARAMETERS 

;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

WAS  THE  MAXIMUM  HOPS  SPECIFIED  ? 

IF  EQ,  NO 

ELSE,  STORE  THE  NEW  HOP  MAXIMUM 

WAS  THE  MAXIMUM  COST  SPECIFIED  ? 

IF  EQ,  NO 

ELSE,  STORE  THE  NEW  COST  MAXIMUM 


IS  THERE  A  MAXIMUM  NODE  ADDRESS 
IF  EQ,  NO 


C.ADD(RO),C.NBEA(R0)  ;  MAX  ADDR  =  BROAD.  ENDNODE  ADJ. 


35$ 

$NN,C.NBEA(RO) 

$NN,C.ADD(RO) 

#OE.RTM, SOPRND 

50$ 

$RTM,C.RTM(RO) 

#OE.ACOS,$OPRND  ; 
60S  ; 

$EACOS,C.ACST(R0) 

#OE.AHOP,$OPRND  ; 
70S  ; 

$EAHOP,C.AHOP(R0) 

*0£.AMAX, SOPRND 

80$ 

$EAMAX,C.NA(RO) 


IF  NE,  NO 

ELSE  TRACK  CHANGES 

STORE  THE  NEW  MAXIMUM  NODE  ADDRESS 

WAS  THE  ROUTING  TIMER  SPECIFIED  ? 

IF  EQ,  NOPE 

ELSE  STORE  THE  NEW  ROUTING  TIMER 

AREA  MAX  COST  ? 

NO 

;  ELSE  UPDATE  IT 

AREA  MAX  HOPS  ? 

NOPE 

;  SAVE  IT 

MAX  AREAS 
NO 
SAVE  IT 


H 
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SET5LT  - 
SETCIR 

235 

23^ 

235 

236 

237 

238 

239 

240 

2A1 

2^2 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 


SET  SLT  PARAMETERS 
-  SET  CIRCUIT  STATE 


000504 


000504 
000512 
000514 


000520 
000524 
000532 
000534 
000542 
000544 
000552 
000556 
000560 


032765 
001002 


004767 
032765 
001004 
032767 
001411 
042765 
004767 
103003 
052765 


G  7 

MACRO  V05.03b  Saturday  29-Jun-85  05:24  Page  6 

.SBTTL  SETCIR  -  SET  CIRCUIT  STATE 
•»  SETCIR  -  SET  CIRCUIT  STATE 
INPUTS: 


OUTPUT: 
REGISTERS 


R5  =  ADDRESS  OF  SLT  TEMPLATE 

SOPRND  =  PARSED  OPTIONS 

SSWICH  =  ADDITIONAL  PARSED  OPTIONS  (SW.SLT  BITS) 

SLT  AND  STATION  TEMPLATES  ARE  MODIFIED 

NO  REGISTERS  ARE  MODIFIED 


SETCIR: 

POINT  TO  POINT  CIRCUIT 


OOOOOOG  OOOOOOG 


TREAT  SAME  AS  LINE  STATE 


000256 
OOOOOOG 


BIT     #LF.MTP,S$LFLG(R5)  ;  MULTIPOINT  CIRCUIT  ? 

BNE     10$  ;  IF  NE,  YES 

CALLR   SETPTP         ;  ELSE  SEl  REQUESTED  STATE  IN  SLT 

MULTIPOINT  -  TREAT  REQUEST  FOR  CLEARED  SAME  AS  OFF 


10$: 


000566  000207 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  15$: 
000402 

OOOOOOC  0000006 

20$: 


CALL 

BIT 

BNE 

BIT 

BEQ 

BIC 

CALL 

BCC 

BIS 

RETURN 


SETSTA         ;  SET  STATION  PARAMETERS 

#LF.MFL,S$LFLG(r5)  ;  IS  LINE  CURRENTLY  CLEARED  ? 

15$  ;  IF  NE,  NO 

#SW.ENA,$SWICH  ;  ELSE,  TURNING  CIRCUITS  ON  ? 

20$  ;  IF  EQ,  NO  -  LEAVE  LINE  CLEARED 

#LF.ENA,S$LFLG(R5)  ;  ASSUME  ALL  CIRCUITS  ARE  OFF 

FNDACT         ;  ANY  ACTIVE  CIRCUITS  ? 

20$  ;  IF  CC,  NO  -  SLT  NOT  ENABLED 

#LF.ENAILF.MFL,S$LFLG(R5)  ;  ELSE  MARK  SLT  FOR  ENABLE 


<;p:T  t:i  T  PARAMFTFRS 
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StTUNT  -  SET  LINE  UNIT  OPTIONS 
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112  OOOIW 
115  000106 
lU  000110 
115  000112 
115  000114 

117  000116 

118  000120 

119  000122 

120  0001 2A 

121  000126 

122  000130 
125  000152 
124 

125 

126 

127 

128 

129 

130  000000 

151 

152  000000 

155  000002 

134  000004 

155  000006 

156  000010 

157  000012 

158  000014 

139  000016 

140  000020 
K1  000022 
142 

145  000154 


000206 
000226 
000454 
001150 
002260 
003410 
005720 
004540 
007020 
011500 
016040 
022600 

000054 


000000 


END: 


.WORD 

154. 

.UORD 

■50. 

.WORD 

300. 

.WORD 

600. 

.WORD 

1200. 

.WORD 

1800. 

10 

.WORD 

2000. 

.WORD 

2400. 

.WORD 

3600. 

.WORD 

4800. 

.WORD 

7200. 

.WORD 

9600. 

17  >9600  BAUD 

TBLEN= 

CEND-RATETB> 

CALCULATE  LENGTH  OF  TABLE 

DEFINE  UNIT  TEMPLATE 


000024 


.ASECT 

.=0 

.8LKW   1 

.8LKW   1 

UNI 

.BLKW   1 

CWO 

.8LKW   1 

rwi 

.BLKW   1 

CSR 

.BLKW   1 

CSI 

.BLKW   1 

DPR 

.BLKW   1 
.BLKW   1 
.BLKW   1 

C.LEN=. 


.PSECT 


C.LNK 

C.STS 

UNIT  NUMBER 

CHARACTERISTICS  WORD  0 

CHARACTERISTICS  WORD  1 

SECONDARY  CSR  ADDRESS 

LINE  COST 

DEAD  POLLING  RATIO 

UNUSED 

UNUSED 
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SETX2P 
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89 

90 

91 

92 

93 

9*; 

95 

96 

97 

98 

99 
TOO 

TOT  000000 
102  000000 
103 
104 
105 

106  000004 

107  000006 

108  000010 

109  000016 

no  000020 

111  000026 

112  000030 

113  000036 
1U  000040 

115  000046 

116  000050 

117  000056 

118  OOC060 

119  000066 

120  000070 

121  000076 

122  000100 

123  000106 

124  000110 

125  000116 

126  000124 

127  000126 

128  000134 

129  000142 

130  000144 


131 
132 


000152 
000160 


133  000162 


134 
135 


000170 
000176 

136  000200 

137  000206 
138 

139  000210 

140 

141 


.S8TTL  $SEX2P  -  SET  X.25  LEVEL  2  PARAMETERS 
•••  -  $SEX2P  -  SET  X.25  LEVEL  2  PARAMETERS 
INPUT: 


SOPRND  =  OPERANDS  PRESENT 


SE 
MA 

EP 
ER 
PR 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

THE  X2P$DF  TEMPLATE  IS  UPDATED 


012700  OOOOOOG 


$SEX2P: 


MOV 


*$TMLST,RO 


SEARCH  FOR  THE  LINE 


011000 
001500 
122760 
001372 
022767 
001424 
026760 
001362 
032767 
001004 
026760 
001352 
032767 
001004 
026760 
001342 
032767 
001403 
016760 
032767 
001403 
016760 
032767 
001403 
016760 
032767 
001403 
016760 
032767 
001403 
016760 
000676 

000207 

000001 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002G 

OOOOOOG 

000004G 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 


10$: 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002G 

OOOOOOG  12$: 

000004G 

OOOOOOG  20$: 

OOOOOOG 
OOOOOOG  30$: 

OOOOOOG 
OOOOOOG  40$: 

OOOOOOG 
OOOOOOG  50$: 

OOOOOOG 
OOOOOOG  60$: 


OOOOOOG  OOOOOOG 


70$: 
80$: 


MOV 

BEQ 

CMPS 

BNE 

CMP 

BEQ 

CMP 

BNE 

BIT 

BNE 

CMP 

BNE 

BIT 

BNE 

CMP 

BNE 

BIT 

BEQ 

MOV 

BIT 

BEQ 

MOV 

BIT 

BEQ 

MOV 

BIT 

BEQ 

MOV 

BIT 

BEQ 

MOV 

BR 

RETURN 

.END 


(RO),RO 

80$  ; 

#CS.X2P,C.STS(R0) 

10$ 

#UC.LIN,$WILD 

20$  , 

$DVNAM,X$2LIN(R0) 

10$ 

#WC.CNT,$WILD 

12$ 

$DVNAM+2,X$2LIN+2 

10$ 

#WC.UNT,$UILD 

20$ 

$DVNAM+4,X$2LIN+ 

10$ 

#0L.HBT,$0PRND 

30$ 

$H8T,X$2HBT(R0) 

#OL.RTC,$OPRND 

40$ 

$RTC,X$2RTC(R0) 

#0L.WSZ,$0PRND 

50$ 

$WSZ,X$2WSZ(R0) 

#0L.BSZ,$OPRND 

60$ 

$BSZ,X$2BSZ(R0) 

#OL.RTT,$OPRND 

70$ 

$RTM,X$2RTT(R0) 

10$ 


GET  START  OF  TEMPLATE  LIST 


NEXT  TEMPLATE 

IF  EQ,  NO  MORE 

;  IS  THIS  A  X2P$DF  TEMPLATE  ? 

IF  NE,  NO  -  KEEP  LOOKING 

WILDCARD  LINES  ? 

BR  IF  YES 

;  COMPARE  WITH  PARSED  LINE  ID 

IF  NE,  WRONG  LINE 

WILDCARD  CONTROLLERS  ? 

BR  IF  YES 
(RO)  ;  COMPARE  WITH  PARSED  LINE  ID 

IF  NE,  WRONG  LINE 

WILDCARD  UNITS? 

BR  IF  YES 
(RO)  ;  COMPARE  WITH  PARSED  LINE  ID 

IF  NE,  WRONG  LINE 

HOLDBACK  TIMER  ? 

IF  EQ,  NO 

ELSE  UPDATE 

MAXIMUM  RETRANSMITS  SPECIFIED  ? 

IF  EQ,  NO 

UPDATE 

MAXIMUM  WINDOW  SPECIFIED? 

IF  EQ,  NO 

UPDATE 

MAXIMUM  BLOCK  SPECIFIED? 

IF  EQ,  NO 

UPDATE 

UPDATE  RETRANSMIT  TIMER  ? 

IF  EQ,  NOPE 

ELSE  UPDATE  IT 

NEXT  LINE 


ot;    I  c\/Fi     0   DSB4M   MArBH   un";    O^h    "lafiirflav    29- 
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PAGE  2 

CREF   OA.OO 


EPRINT 
ERRORt 
PRINT 


Iti,-b5 
#4-60 


6-163 
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?ll?1 


SHI 

SHI 


1 
2 
3 

5 
6 

7 

8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  SHOCIR  -  LIST  CIRCUIT  CHARACTERISTICS 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  ;:0I  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SHOW  CIRCUIT  CHARACTERISTICS 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  15-OCT-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DBCnet-IIM/S  V4.2 
DECnet-IIM-PIus  V3.0 
DECnet-Micro/RSX  VI. 0 
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SHOSVC  -  SHOW  SWITCHED  VIRTUAL  CIRCUITS 


616 

617 

618 

619 

620 

621 

622 

623 

62A 

625 

626 

627 

628 

629 

630  003672 

631 

632 

633 

63'!.  003672 

635  003676 

636  003700 

637  003702 

638  003706 

639  0037H 

640  003716 
6A1  003722 
6'!.2  003726 
6'!,3  003732 
6A4  003736 
6<<5  003744 

646  003746 

647  003754 

648  003756 

649  003764 

650  003766 

651  003774 

652  003776 

653  004004 

654  004006 

655  004014 
656 

657 
658 

659  004016 

660  004024 

661  004032 

662  004040 

663  004044 

664  004050 

665  004056 

666  004060 

667  004066 

668  004074 

669  004100 

670  004106 

671  004110 

672  004116 


.SBTTL  SHOSVC  -  SHOW  SWITCHED  VIRTUAL  CIRCUITS 
•»  SHOSVC  -  SHOW  SWITCHED  VIRTUAL  CIRCUIT 
INPUTS 


R3  =  ADDRESS  OF  X3P$Df  TEMPLATE 


OUTPUT 

SWITCHED  VIRTUAL  CIRCUIT  CHARACTERISTICS  DISPLAYED. 

REGISTERS 

RO,   R1,   R2  AND  R4  ARE   CORRUPTED. 


SHOSVC: 

LOCATE  THE  TEMPLATE  OR  TEMPLATES  OF  INTEREST 


012705 
011505 
001002 
000167 
122765 
031370 
012704 
016524 
016524 
105067 
022767 
001424 
032767 
001561 
032767 
001004 
026567 
001340 
032767 
001004 
026567 
001330 


012767 
016567 
016567 
012724 
012724 
032765 
001006 
012764 
012764 
016324 
032765 
001403 
016564 
116324 


OOOOOOG 


10$: 


000412 

OOOOOOG  OOOOOOG  11$: 

001726' 

OOOOOOG 

000002G 

174310 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  15$: 

0000026  OOOOOOG 


015355  OOOOOOG  J0$: 

OOOOOOG  OOOOOOG 

000002G  OOOOOOG 

000010 

001410' 

000002  OOOOOOG 

000010  177774 
001400'  177776 
OOOOOOG        30$: 
OOOOOOG  OOOOOOG 

OOOOOOG  177776 
OOOOOOG        40$: 


MOV 

MOV 

BNE 

JMP 

CMPB 

BNE 

MOV 

MOV 

MOV 

CLR6 

CMP 

BEQ 

BIT 

BEQ 

BIT 

BNE 

CMP 

BNE 

BIT 

BNE 

CMP 

BNE 


#$TMLST 

(R5),R5 

11$ 

90$ 

#CS.SVC 

10$ 

#SVC8LK 

S$VNAM( 

S$VNAM+ 

SERMSG 

#C0.KNC 

20$ 

#FL.DLM 

90$ 

(fWC.CNT 

15$ 

S$VNAM( 

10$ 

#UC.TRI 

20$ 

S$VNAMt 

10$ 


R5 


C.STS(R55 


POINT  TO  TEMPLATE  LISTHEAD 
POINT  TO  NEXT  TEMPLATE 
IF  NE,  NOT  END  OF  LIST 
BR  IF  END  OF  LIST 
;  SVC  TEMPLATE? 
BR  IF  NO 

POINT  TO  ARG  BLOCK 
STUFF  NAME  INTO  ARG  BLOCK 


.R4 

R5),(R4)t  , 
2(R5),(R4)t  .  ... 

;  SUPPRESS  SERVICE  PARAMETER 
$COMP   ;  KNOWN  CIRCUITS? 

.  Q^    If    YES 
$FLAGS  ;  WAS  THIS  A  VALID  DLM  FORMAT 

;  NO  -  MAYBE  HE  WANTS  "DLM"  PVC 
$WILD   ;  WILDCARD  CONTROLLER 

'  BR  IF  YES 
R5),$CNTNM  ;  COMPARE  CONTROLLERS 

;  BR  IF  WRONG  CONTROLLER 
,$WILD   ;  WILDCARD  TRIBUTARIES? 

'  BR  ]F  YES 
2(R5),$STAN  ;  COMPARE  WITH  PARSED  VALUE 

;  BR  IF  NO  MATCH 


GET  SVC  PARAMETERS 


MOV  **RDLM,$DVNAM 

MOV  S$VNAM(R5),$CNTNM 

MOV  S$VNAM+2(R5),$STAN 

MOV  #INCML,(R4)+ 

MOV  #INCM,(R4)t     ■ 

BIT  #SF$INC,S$VFLG(R5) 

BNE  30$ 

MOV  #OUTGL,-4(R4) 

MOV  #0UTG,-2(R4) 

MOV  X$3DFP(R3),(R4)+ 

BIT  #SV$PSZ,C.STS(R5) 

BEQ  40$  ; 

MOV  S$VPSZ(R5),-2(R4) 

MOVB  X$3DW(R3),(R4)+  ; 


SET  UP  FOR  STATION  SEARCH 
DITTO 
LIKEWISE 
ASSUME  INCOMING  SVC 

"■"check  SVC  TYPE 
BR  IF  INCOMING 
ELSE  TYPE=OUTGOING 

"assume  max  DATA  OMITTED 

;  IS  IT  THERE  ? 

IF  EQ,  NO 

;  ELSE  USE  TEMPLATE  VALUE 

ASSUME  DEFAULT  VALUE 
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CREF   04.00 


MACRO  NAME 

REFERENCES 

CALLR 

*4-108 

6-379 

CHADFS 

#4-108 

4-110 

:PRINT 

#4-75 

ERRORS 

#4-64 

6-393 

PRINT 
PRO 

#4-57 
#4-94 

5-272 
4-203 

6-400 
4-205 

6-415 
4-206 

13-901 
4-207 

4-208 

4-209 

4-212 

4-213 

4-214 

STRING 

#4-8^ 
4-192 

4-182 
4-193 

4-183 

4-184 

4-185 

4-186 

4-187 

4-188 

4-189 

4-190 

SVCDF$ 

#4-108 

4-111 

H  U 
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SHOEXE   -  LIST   EXECUTOR  OPTIONS 
PJTADR   -  PUT    /\  PHASE    '.    ADDRESS 


'.60 
461 
462 
46? 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 

475  002772 

476  002772 

477  002774 

478  003000 

479  003004 

480  003010 

481  003012 
■'.82  003014 

483  003016 

484  003020 

485  0Oj022 
486 

487  003024 

488  003026 

489  003030 

490  003032 

491  003036 

492  003040 

493  003044 

494  003046 
495 

496  003050 

497  003054 
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.SBTTL  PUTADR  -  PUT  A  PHASE  4  ADDRESS 
••  PUTADR  -  PUT  A  PHASE  4  NODE  ADDRESS 


CALLING  SEQUENCE 
INPUTS: 


JSR 
.WORD 


R5,PUTADDR 
ADDR1,ADDR2 


OUTPUT: 


010146 

012702     001460' 

042701      001777 

042716     176000 

005701 

001004 

012612 

012501 

005725 

000412 

006201 

006201 

000301 

042701      177700 

010112 

012662  000002 

005725 

012501 

004767  OOOOOOG 
000205 


PUTADR: 


10$: 


20$: 


MOV 
MOV 
BIC 
BIC 
TST 
BNE 
MOV 
MOV 
TST 
BR 

ASR 

ASfi 

SWA8 

BIC 

MOV 

MOV 

TST 

MOV 

CALL 
RTS 


Rl  =  NODE  ADDRESS 
(R5)  =  PHASE  3  FORMAT  STRING 
2(R5)  =  AREA  FORMAT  STRING 


RO 
Rl, 


:  NEW  BUFFER  POINTER 
R2  ARE  CORRUPTED. 


R1,-(SP) 

#MSG8LK,R2 

#1777,r1 

#*C1777,(SP) 

Rl 

10$ 

(SP)t,(R2) 

(R5)*,R1 

(R5)  + 

20$ 

Rl 
Rl 
Rl 
**C77,R1 

ri,(rJ) 

(SP)+,2(R2) 
(R5)  + 
(R5)+,R1 

$EDMSG 
R5 


SAVE  ADDRESS 

POINT  TO  ARG  LIST 

ISOLATE  AREA 

ISOLATE  NODE  ADDRESS 

IS  IT  IN  AREA  0  ? 

IF  NE,  DISPLAY  A  LA  PHASE  4 

ELSE  STUFF  IT  INTO  ARG  LIST 

PICK  UP  PHASE  3  FORMAT  STRING 

SKIP  SECOND  ARG 

ALL  DONE 

SHIFT  AREA 

INTO  HI  BYTE 
MAKE  THAT  LO  BYTE 
CLEAR  JUNK  BITS 
STUFF  AREA  INTO  ARG  LIST 
STUFF  IT  INTO  LIST 
SKIP  PHASE  3  FORMAT 
USE  NEW  IMPROVED  PHASE  4  FLAVOR 

FORMAT  IT 
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226  001003 

125 

102 

110 

UBH: 

.ASCII 

/U8H/ 

227  001006 

125 

102 

1 1 2 

UBJ: 

.ASCII 

/UBJ/ 

228  001011 

125 

102 

113 

U8K: 

.ASCII 

/UBK/ 

229  001014 

125 

102 

114 

UBL: 

.ASCII 

/UBL/ 

230  001017 

125 

102 

115 

UBM: 

.ASC  I 

/UBM/ 

231  001022 

125 

102 

lU 

UBN: 

.ASCII 

/UBN/ 

232  001025 

125 

102 

120 

UBP: 

.ASC  I 

/UBP/ 

233  001030 

125 

102 

122 

UBR: 

.ASC  I 

/UBR/ 

23'.  001055 

125 

102 

123 

UBS; 

.ASCII 

/UBS/ 

235  001036 

125 

102 

124 

UBT: 

.ASCII 

^y§T/_ 

236  001041 

015 

012 

040 

URH: 

.ASCII 

<15><12>/  Unibus  run 

mas 

237  001070 

URMVAL : 

.BLKB 

60. 

238  001164 

040 

040 

115 

DPR: 

.ASCII 

/  Multi-point  Dead  = 

/ 

239  001211 

DPRVAL: 

.BLKB 

10. 

240  001223 

040 

040 

125 

CSR: 

.ASCII 

/  Unit  CSR  =  / 

241  001240 

CSRVAL: 

.BLKB 

18- 

242  001252 

SCRACH: 

.BLKB 

10. 

,' 

243  001264 

HWP: 

.BLKB 

3 

; 

244 
245 
246  001270 

.EVEN 

PROIBL: 

PRO 

<None> 

247  001274 

000000 

000000 

.WORD 

0,0 

248  001300 

PRO 

<Bisync> 

249  001304 

PRO 

P8§ 

<SDLC> 

250  001310 

<LAPB> 

25i  001314 

PRO 

<Ethernet> 

252  001320 

PRO 

<????> 

253  001324 

254 

255  001330 

000003 

001264' 

.WORD 

3,  HWP 

DDCTBL: 

PRO 

<DDCMP  Point> 

256  001334 

PRO 

<DDCMP  Tributary> 

257  001340 

PRO 

<DDCMP  ControL> 

258 
259 

260  001344 

000252' 

TBLl: 

.WORD 

CNTMSG 

261  001346 

000337' 

.WORD 

UNTMSG 

262  001350 

000413' 

.WORD 

OPTMSG 

263  001352 

000422' 

.WORD 

X2PMSG 

264  001354 

000474' 

.WORD 

X2PMS2 

265  001356 

000545' 

.WORD 

X2PMS3 

266  001360 

000631' 

.WORD 

STAMSG 

267  001362 

268 

269  001364 

000000 

.WORD 

0 

001420' 

000001 

T8L2: 

.WORD 

CNTBLK, OP. CNT 

270  001370 

001432' 

000002 

.WORD 

UNTBLK, OP. UNT 

271  001374 

001446' 

000004 

.WORD 

OPTBLK.OP.OPT 

272  001400 

001466' 

000020 

.WORD 

X2P8LK,0P.X2P 

273  001404 

001  ■'^0' 

000020 

.WORD 

X2PBL2,0P.X2P 

274  001410 

001  A.'4' 

000020 

.WORD 

X2PBL3,OP.X2P 

275  001414 

276 

277  001420 

001456' 

000010 

.WORD 

STABLK, OP. STA 

CNTBLK 

.8LKW 

5 

278  001432 

UNTBLK 

.BLKW 

6 

279  001446 

OPTBLK 

.BLKW 

4 

280  001456 

STABLK 

.BLKW 

4 

281  001466 

X2PBLK 

.BLKW 

5 

282  001500 

X2PBL2 

.BLKW 

2 

SCRATCH  BUFFER 

DDM  NAME  IF  HARDWARE  PROTOCOL 


0  NONE 

1  DDCMP 

2  BYSYNCH 

3  SDLC 

4  X.25 

5  ETHERNET 

6  Unassigned 

7  HARDWARE  PROTOCOL 


PRINT  THE  CONTROLLER  INFO 

PRINT  THE  UNIT  INFO. 

PRINT  THE  OPTIONAL  INFO. 

PRINT  THE  X.25  LEVEL  2  INFO 


PRINT  THE  STATE  INFO. 


THE  ARGUMENT  BLOCK  FOR  CONTROLLER  INFO. 

THE  ARGUMENT  BLOCK  FOR  UNIT  INFO. 

THE  OPTIONAL  ARGUMENT  BLOCK 

THE  X.25  LEVEL  2  ARG  BLOCK 


THE  ARGUMENT  BLOCK  FOR  STA^E  INFO. 

CONTROLLER  ARGUMENT  BLOCK 

UNIT  ARGUMENT  BLOCK 

OPTIONAL  BLOCK 

LOADING  ARGUMENT  BLOCK 

X.25  LEVEL  2  BLOCK  (LAPB  LINES  ONLY) 
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SETOBJ  -  SET  OBJECT  OPTIONS 
MACRO  DEFINITIONS 
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110 

111  000000 

112  000002 

113  000004 
1U  000005 

115  000006 

116  00001? 
117 

118 

119  000244 

120 

121  000244 

122 


000000 


000013 


C.TVP 
C.FLG 
C.NAM 
C.CPY 

C.LEN= 


.=0 

.BLKW 

.BLKU 

.8LKB 

.BUB 

.BLKU 

.BLKB 


C.LNK 

C.STS 

OBJECT  TYPE 

OBJECT  fLAG 

OBJECT  TASK  NAME  (RAD50) 

MAXIMUM  NUMBER  OF  COPIES  OF  A  TASK  TO  SPAWN 

LIMIT  IS  63. 


.PSECT 
OBJNAM;    .BLKB        6 
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SETPAR  -  SET  PARAMETER 
Symbol  table 
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A$$CHK= 
AS$CPS= 
A$$PRI= 
A$$TRP= 
C$tCKP= 
C$$ORE= 
C$$RSH= 
D$$BUG= 
D$$ISK=: 
D$$L11= 
D$$yNC= 
D$$YNM= 

.  ABS. 


000000 
000000 
000000 
000000 
000000 
000400 
177564 
1775K 
000000 
000001 
000000 
000000 


000000 
000012 
Errors  detected: 


000 
001 
0 


E$$XPR=  000000 
F$$LVL=  000001 
G$$TPP=  00000 
G$$TSS=  OOOOOU 
6$$TTK=  000000 
G$$WRD=  000000 
I$$RAR=  000000 
I$$RDN=  000000 
K$$CNT=  177546 
K$$CSR=  177546 
KS$LDC=  000000 
K$$TPS=  000074 

(RW,I,GBL,ABS,0VR) 
(RU,1,LCL,REL,C0N) 


LD$LP 

L$$ASG 

LSSDRV 

L$$P11 

L$$11R 

M$$CRB 

M$$CRX 

H$$FCS 

M$$MGE 

M$$NET 

M$$0VR 
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=  000000 

N$$ACC= 

000001 

R$$DER= 

000000 

=  000000 

N$$BUF= 

000001 

R$$K11= 

000001 

=  000000 

N$$LDV= 

000001 

R$$SND= 

OS985S 

=  000001 

N$$MCP= 

000001 

R$$11M= 

000000 

=  000000 

N$$MLL= 

000001 

SETPAR 

0OOOOOR6 

=  000124 

N$$MOV= 

000010 

S$$WRG= 

000000 

=  000000 

N$$NCT= 

000001 

S$$YSZ= 

007600 

=  000000 

N$$PEM= 

000001 

T$$KMG= 

000000 

=  000000 

P$$P45= 

000000 

T$$MIN= 

000000 

=  000000 

P$$URD= 

000000 

V$$CTR= 

001000 

=  000000 

Q$$0PT= 

000010 

X$$DBT= 

000000 

♦»*  Assembler  statistics 


Work  file  reads: 
Jork  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


0 

0 

8904  Words   (  35  Pages) 

14440  Words   (  55  Pages) 

RSX-11M/PLUS 


SYtsETPAR!v2;t?35?l'34]SEtpAR/CR/-SP=SV:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10:RSXMCM/PA:1,[135,10]SETPAR 
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Table  of   contents 

5-  106         SSEPVC   -   SET   PVC   PARAMETERS 

6-  259  SETDTE    -   SET   NEW  DTE   ADDRESS 

7-  310  PRMERR   -  PRINT    PARAMETER   ERROR   TEXT 
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SETREM  -  SET  REMOTE  MODE  OPTION  MACRO  V05.03b  Monday  01-Jul-85  16:37 
Table  ot  contents 

MACRO  DEFINITIONS 
SSEREM  -  UPDATE  REMOTE  DEHNITION 
FINREM  -  FIND  NEXT  REMOTE  IN  SORTED  LIST 
UPDDLL  -  UPDATE  DLL  PARAMETERS 
SETxxx  -  ASSORTED  ACTION  ROUTINES 
DEAFIL-DEALLOCATE  A  FILE  NAME  BLOCK 
FNDFIL  -  FIND  A  MATCHING  FILE  BLOCK 
ALCFIL  -  ALLOCATE  FILE  BLOCK 
GETBYT  -  GET  SIZE  OF  ALLOCATION 
GETDLL  -  GET  DLL  TEMPLATE  POINTERS 


4- 

s^ 

S- 

\n 

6- 

^AO 

1- 

fht. 

R- 

^10 

9- 

SHi 

10- 

A1V 

11- 

ASO 

1?- 

A^H 

12- 

A9b 
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ALCFIL  -   ALLOCATE    FILE   BLOCK 


A50 

A51 

A52 

453 

A5A 

A55 

456 

A57 

A58 

A59 

A60 

A61 

A62 

A63 

46A  001  UA 

A65  001150 

A66  001 15A 

467  001160 

468  001164 

469  001166 

470  001170 

471  001174 

472  001200 
473 

474  001202 

475  001212 
476 


004267 
012700 
012701 
004767 
103406 
010005 
016715 
010567 
000207 


OOOOOOG 
OOOOOOG 
000043 
OOOOOOG 


OOOOOOG 
OOOOOOG 


.SBTTL  ALCFIL  -  ALLOCATE  FILE  SLOCK 

ALCFIL  -  ALLOCATE  FILE  BLOCK 

INPUTS:       NONE. 

OUTPUT:       A  FILE  BLOCK  IS  ALLOCATED  AND  LINKED  INTO  THE  LIST. 

R5  =  FILE  BLOCK  ADDRESS. 
ALL  OTHER  REGISTERS  ARE  PRESERVED. 


SAVE    EM 

POINT   TO  FREE   LIST 
LENGTH  OF   ALLOCATION   IN  BYTES 
REQUEST   CORE   BLOCK 
IF   CS,   ERROR 
COPY  BLOCK  ADDRESS 
GO   TO   THE 
HEAD   OF    THE    LIST 


000167     OOOOOOG 


ALCFIL. 

JSR 

R2,$SAVVR 

MOV 

#$XXAVL,RO 

MOV 

#F.LEN,R1 

CALL 

SRQBF 

BCS 

101$ 

MOV 

R0,R5 

MOV 

$FILHD,(R5) 

MOV 

R5,$FILHD 

RETURN 

101$: 

ERRORS 

#ERRALL 

JMP 

.EXIT 

ALLOCATION  FAILURE 
THAT'S   ALL,    FOLKS 
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SETROU 
SSEROU 


SET  EXECUTOR  ROUTING  0  MACRO  V05.03b  Saturday  29-Jun-85  05:23 
SET  ROUTING  PARAMETERS 


5:^3 


Page  5-1 


171  000324 

172  000352 

173  00033A 
17A 

175  000342 

176  000350 

177  000352 
178 

179  000360 

180  000362 
181 

182 
183 

184  000364 

185  000374 

186  000376 

187  000400 

188  000410 
1d9  000412 
190 

191 


032767 
001403 
016760 

032767 
001403 
016760 

000241 
000207 


000241 
000207 

000261 
000207 

000001 


OOOOOOG  OOOOOOG  80$: 
OOOOOOG  000024 
OOOOOOG  OOOOOOG  90$: 
OOOOOOG  000016 

95$: 


BIT 
BEQ 
MOV 

BIT 
BEQ 
MOV 

CLC 
RETURN 


#E2.BRT,$OPRN2  , 

90$ 

$EBRT,C.L2TH(R0) 

#E2.BEA,$OPRN2  , 

95$ 

$E8EA,C.NBEA(R0) 


ERROR  CONDITIONS 

#ERRROU 


101$: 
102$: 


ERROR$ 

CLC 

RETURN 

ERROR$ 

SEC 

RETURN 

.END 


#ERRPNA 


BROADCAST  ROUTING  TIMER  ? 
IF  EQ,  NO 
;  ELSE  STORE  IT 

BROADCAST  ENDNODES  ADJACENCIES 
IF  EQ,  NO 
;  ELSE  SAVE  IT 


NO  ROUTING  TEMPLATE 

DON'T  CANCEL  REMAINDER  OF  COMMAND 

ROUTING  PARAMETERS  DON'T  APPLY 
CANCEL  WHOLE  COMMAND 


SFTROU  -  SET  EXECUTOR  ROUTING 
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270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285  000570 

286 

287 

288 

289 

290 

291  000570 

292  000576 

293  000600 

294  000606 

295  000610 

296  000616 

297  000620 

298  000626 

299  000630 

300  000636 

301  000644 

302  000646 

303  000654 

304  000662 

305  000664 
306 

307  000672 

308  000700 

309  000702 

310  000710 

311  000712 

312  000720 

313  000722 

314  000726 
315 

316 
317 

318  000730 

319  000736 
320 

321 
322 

323  000744 

324  000752 

325  000754 

326  000762 


032767 
001435 
022767 
001410 
032765 
001004 
032767 
001421 
042765 
032767 
001412 
052765 
032767 
001403 
052765 

032767 
001421 
032765 
001407 
032765 
001403 
105765 
001006 


.S8TTL   SETPTP  -  SET  POINT  TO  POINT  LINE/CIRCUIT  STATE 

'♦*  SETPTP  -  SET  POINT  TO  POINT  LINE/CIRCUIT  STATE 

INPUTS:       R5  =  ADDRESS  OF  SLT  TEMPLATE 
SOPRND  =  PARSED  OPTIONS 

SSUICH  =  PARSED  STATE  FLAGS  8  SW.SLT  OPTIONS  BITS 
$HTM    =  HELLO  TIMER 


SLT  TEMPLATE  UPDATED. 

NO  REGISTERS  ARE  MODIFIED 


OUTPUTS: 
REGISTERS: 

SETPTP: 

LINE  -  ALLOW  ON/OFF/CLEARED 

CIRCUIT  -  TREAT  CLEARED  AS  OFF.  IF  REQUEST  IS  FOR  OFF, 
AND  LINE  IS  CLEARED  DON'T  MARK  IT  FOR  LOAD. 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG  5$: 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG  10$: 

000006 

OOOOOOG 


BIT 
BEQ 
CMP 
BEQ 
BIT 
BNE 
BIT 
BEQ 
BIC 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 

BIT 

BEQ 

BIT 

BEQ 

BIT 

BEQ 

TSTB 

BNE 


tfOC.STA, SOPRND 

10$ 

#CO.LIN,$COMP 

#LF.MFL,S$LFLG{R5) 
5$ 

#SW.ENA,$SWICH 
10$ 


CHANGE  STATE  ? 

IF  EQ,  DON'T  DO  IT 

IS  THIS  A  LINE  ? 

IF  EQ,  YEb 
;  LINE  CLEARED  ? 

IF  NE,  NO 

REQUESTED  STATE  =  OFF  ? 
,  IF  EQ,  YES  -  DON'T  MARK  IT  FOR  LOAD 
#LF.ENA!LF.MFL,S$LFLG(R5)  ;  ASSUME  CLEARED 
#SU.LOA,$SWICH  ;  NEW  STATE  =  CLEARED  ? 
10$  ;  IF  EQ,  YES 

#LF.MFL,S$LFLG(R5)  ;  ELSE  ASSUME  OFF 
#SW.ENA,$SWICH  ;  MARK  FOR  ENABLE  ? 
10$  ;  IF  EQ,  NO  -  STATE  =  OFF 

#LF.ENA,S$LFLG(R5)  ;  ELSE  SET  LINE  STATE  =  ON 


#0C. HTM, SOPRND  ; 

27$  ; 

#LF.MTP,C.FLG(R5) 

26$  ; 

#SL$TYP,C.STS(R5) 

26$ 

S$LTYP(R5) 

27$ 


HELLO  TIMER  SPECIFIED  ? 

IF  EQ,  NO 

;  MULTIPOINT  CIRCUIT  ? 

IF  EQ,  NO 

;  TYPE  PRESENT  ? 

IF  EQ,  NO  -  MULTIPOINT  TRIB 

CHECK  FOR  MULTIPOINT  CONTROLLER 

IF  NE,  MULTPOINT  CONTROLLER  -  HTM  ON  TRIBS 


HELLO  TIMER 


016765  OOOOOOG  OOOOOOG  h$: 
052765  OOOOOOG  OOOOOOG 


MOV 
BIS 


$HTM,S$LHTM(R5)  ;  ELSE  SET  HELLO  TIMER 
#SL$HTM,C.STS(R5)  ;  REMEMBER  IT  FOR  UPDATE 


SERVICE  [ENABLED/DISABLED] 


032767  OOOOOOC  OOOOOOG  57$:    BIT 

001412  BEQ 

042765  OOOOOOG  OOOOOOG  BIC 

052767  OOOOOOG  OOOOOOG  BIT 


#SW.SEN1SW.SDI,$SWICH 
30$ 

#LF.SER,SSLFLG(R5) 
#SW.SDI,SSWICH 


SERVICE  PARSED  ? 

IF  EQ,  NOPE 

ELSE  ASSUME  SERVICE  ENABLED 

DISABLE  SERVICE  FOR  CIRCUIT 


SFT  '^1  T  PARAMFTFRS 
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.TITLE  SETSVC  -  SET  SVC  PARAMETERS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1981,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  !S  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
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OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  iHE  SOFTWARE  IS  HEREBY 
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tSEUNT 


SET  LINE  UNIT  OPTIONS 
SET  UNIT  PARAMETERS 
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159  000134 
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190  000254 
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197  000306 
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.SBTTL  SSEUNT  -  SET  UNIT  PARAMETERS 
*♦*  -  SSEUNT  -  SET  UNIT  PARAMETERS 
INPUT: 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT: 


C-BIT  =  SUCCESS/FAILURE 

THE  UNIT  TEMPLATE  IS  UPDATED 


004767  000424 
012700  OOOOOOG 


SSEUNT:: 


CALL 
MOV 


SETSTA 
#STMLST,RO 


;    SET   ANY   STATION  PARAMETERS 
;    GET    START  OF    TEMPLATE   LIST 


SEARCH  FOR   THE   DDM 


004767 
103002 
000167 
122760 
001567 
016067 
105067 
116067 


011000 
001002 
000167 
122760 
001370 
032767 
001004 
026760 
001360 


010001 
011000 
001543 
122760 
001412 
032767 
001533 
122760 
001761 
010100 
000716 
032767 
001410 
032767 
C01004 


OOOOOOG 

000404 
OOOOOOG 


10$:    CALL  SFNPRO 

BCC  15$ 

JMP  60$  , 

OOOOOOG  15$:    CMP8  #CS.DDM,C.STS(R05 

BNE  10$ 

OOOOOOG  177604         MOV  C.PRM(RO) ,DDM 

OOOOOOG  CLRB  $FLAGS 

000002G  OOOOOOG        MOVB  C.PRM+2(R0) ,$FlAGS 

SEARCH  FOR  THE  RIGHT  CONTROLLER 


FIND  NEXT  PROCESS 
IF  CC,  CONTINUE 
ELSE  NO  MORE 

;  IS  THIS  A  DDM  TEMPLATE  ? 
IF  NE,  NO  -  KEEP  LOOKING 
SAVE  THE  DDM  PROCESS  NAME 
CLEAR  THE  FLAGS  BYTE 
SAVE  FLAGS  BYTE 


000344 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 


50S:    MOV  (RO),RO        ;  GET  NEXT  TEMPLATE 

BNE  25$           ;  IF  NE,  MORE 

JMP  60$           ;  ELSE  END  OF  TEMPLATES 

25$:    CMPB  #CS.CNT,C.STS(RC)  ;  IS  THIS  A  CONTROLLER  TEMPLATE  ? 

BNE  20$            ;  IF  NE,  NO  ..  KEEP  LOOKING 

BIT  *WC.CNT,SUILD   ;  ALL  CONTROLLERS  ? 

BNE  30$           ;  IF  NE,  YES 

CMP  $CNTNM,C.PRM(RO)  ;  ELSE,  IS  THIS  THE  RIGHT  CONTROLLER 

BNE  20$           ;  IF  NE,  NO  -  KEEP  LOOKING 


SEARCH  FOR  THE  RIGHT  UNIT 


^0$: 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  0000006  33$: 
OOOOOOG  OOOOOOG 


MOV  RO.RI 

MOV  (RO),RO 

BEQ  60$  , 

CMPB  #CS.UNT,C.STS(R0) 

BEQ  33$ 

BIT  #UC.CNT,$WILD 

BEQ  60$  , 

CMPB  *CS.CNT,C.STS(R0) 

BEQ  30$ 

MOV  RI.RO 

BR  10$ 

BIT  #FL.MUX,tFLAGS 

BEQ  35$ 

SIT  #WC.UNT,$W!LD 

BNE  35$ 


SAVE  PREVIOUS  TEMPLATE  ADDRESS 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  A  UNIT  TEMPLATE  ? 

IF  EQ,  YES 

POSSIBLY  MORE  CONTROLLERS  ? 

IF  EQ,  NO 

;  IS  IT  A  CONTROLLER  TEMPLATE  ? 

IF  EQ,  YES  ..  GET  NEXT  UNIT 

ELSE  BACK  UP  A  TEMPLATE  ... 

...  MAYBE  A  DDM 

IS  THIS  A  MUX  DEVICE  ? 

IF  EQ,  NO  ..  ASSUME  RIGHT  UNIT 

ALL  UNITS  ? 

IF  NE,  YES 
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SETX2P  -  SET  X 
Symbol  table 


CS.X2P= 
C.STS  = 
OL.BSZ= 
OL.HBT= 
OL.RTC= 
OL.RTT= 
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% 


»♦♦*** 
*  * t **  ♦ 

****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 


OL.WSZ= 
WC.CNT= 
WC.LIN= 
WC.UNT= 
X$2BSZ= 


****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 


X$2HBT= 
X$2LIN= 
X$2RTC= 
X$2RTT=  *•*•♦♦ 
X$2USZ=  **»♦♦* 


****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 


$BSZ  = 

****** 

GX 

$DVNAM= 

****** 

(;X 

$HBT  = 

****** 

(iX 

SOPRND: 

****** 

GX 

$RTC  = 

****** 

GX 

$RTM  =  «»•**♦  GX 
$SEX2P  OOOOOORG 
$TMLST=  *•**♦♦  GX 
$WILD  =  ******  GX 
$WSZ  =  ******  GX 


.  ABS.  000000 
000212 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 


*♦*   Assembler    statistics 

Work      tile      reads:  0 

Work      f i le  writes :  0 

Size  of   work   file:  8289  Words      (   33  Pages) 

Size  of   core  pool:  K4A0  Words      (    55  Pages) 

Operating     system:  RSX-11M/PLUS 
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SH 

SH 


55 
5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
9A 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 


•  *  *** 

•  LOCAL  MACROS 
■  **  ** 


.MACRO  PRINT    TEXT 

.IF  DIE  <TEXT><R0> 

MOV  TEXT.RO 

.ENDC 

CALL  SPRINT 

.ENDM  PRINT 

.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  Of  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRJNT   TEXT 

PRINT  TEXT  ON  ERROR  L  U 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

GENERATE  A  STRING 
NAME 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


.MACRO  STRING 
.ASCII   /TEXT/ 
NAME'L  =  .  -  NAME 
.ENDM 


NAME, TEXT 


DEFINE  A  PROTOCOL  STRING 


SS$1 


.MACRO 

.NCHR 

.PSECT 

".ASCII 
.PSECT 
.WORD 
.ENDM 


PRO     A 

SSS,<A> 

TEXT.D 

/A/ 

SSS.SSSI 


LIBRARY  MACRO  CALLS 


.MCALL      CHADFS,SVCDFS,CALLR 
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675  O0A122 

674  004124 

675  004152 

676  004134 

677  004142 

678  004144 
679 

680 
681 

682  004154 

683  004156 

684  004160 

685  004162 

686  004166 

687  004172 

688  004174 

689  004200 

690  004202 

691  004210 

692  004212 

693  004220 

694  004226 

695  004234 

696  004242 

697  004244 

698  004250 

699  004256 

700  004260 
701 

702 
703 
704 
705 
706 

707  004300 

708  004302 

709  004306 

710  004312 

711  004314 
712 

713  004320 
714 


105024 
032765 
001403 
016564 
010502 
062702 
000002 


005024 
005024 
005024 
012724 
012724 
010546 
004767 
103420 
132765 
001406 
012764 
012764 
156564 
016564 
012605 
105067 
032765 
001410 
112767 
000005 


010346 
012703 
004767 
012603 
000167 

000207 


OOOOOOG  OOOOOOG 
OOOOOOG   177776 
OOOOOOG 


50$: 


000003 
001330' 

000122 

OOOOOOG  OOOOOOG 

000002  177774 
001326'  177776 
OOOOOOG  177772 
OOOOOOG  177766 

174753 

OOOOOOG  OOOOOOG 

000054  174735 


53$: 
55$: 


CLRB 

BIT 

BEQ 

MOV 

MOV 

ADD 

.REPT 

MOV 

.ENDR 

CLR 

CLR 
MOV 
MOV 
MOV 

CALL 

BCS 

BUB 

BEQ 

MOV 

MOV 

BISB 

MOV 

MOV 

CLRB 

BIT 

BEQ 

MOVB 

.REPT 

MOV 

.ENDR 


(R4)+         ;  CLEAR  VALUE 

#SV$USZ,C.STS(R5i  ;  WINDOW  SIZE  SPECIFIED? 

50$  ;  Jf  EQ,  NO 

S$VWSZ(R5),-2(R4)  ;  USE  TEMPLATE  VALUE 


R5,R2 
#S$VRCL,R2 
2 
(R2)>,(R4)t 

(R4)t 

(R4)  + 

(R4)<- 

#0FFL,(R4)t 

#0FF,(R4)t 

R5,-(SP) 

GETSTA 

55$ 


IF  EQ,  NOPE 
FIX  UP  DISPLAV, 


#SF.ENA,S$TFLG(R5)  ;  ENABLED 

53$  ^" 

*ONL,-4(R4) 

#ON,-2(R4)      , 

S$TCST(R5),-6(R4) 

S$THTM(R5),-12(R4) 

(SP)+,R5 

SVCOl  ; 

*SV$DTE,C.STS(R5) 

60$ 

#<',>, SVCOl 

5 

(R2)t,(R4)t 


COPV  POINTER 

POINT  TO  REMAINDER  OF  DATA 

MAX  RECALLS,  RECALL  TIMER 

NO  HELLO, 

(SPARE  -  USED  TO  BE  LISTEN  TIMER) 

COST,  YET 
ASSUME  STATE  =  OFF 

PUSH  R5 

GET  STATION  INFO 

NO  STATION  TEMPLATE  ? 


OTHERWISE 


;  SET  REAL  COST, 
;  HELLO  TIMER, 
RESTORE  R5 

ASSUME  NO  DTE  NUMBER 
;  DTE  PRESENT  ? 
IF  EQ,  NOPE 
FIX  FORMAT  STRING 

NUMBER 


FORMAT  AND  PRINT  SVC  PARAMETERS 


001674' 
000726 

177356 


60$: 


90$: 


MOV 

MOV 

CALL 

MOV 

JMP 

RETURN 


R3,-(SP) 

*SVCTBL,R3 

PRINT 

(SP)+,R3 

10$ 


SAVE  R3 

POINT  TO  FORMATTING  CONTROL  TABLE 

PRINT  IT 

RESTORE  R3 

CONTINUE 
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♦  •FILE'MD-'SHOEXE 


ssssssss 

HH 

HH 

000000 

EEEEEEEEEE 

XX      XX 

EEEEEEEEEE 

SSSSSS5S 

HH 

HH 

000000 

EEEEEEEEEE 

XX      XX 

EEEEEEEEEE 

ss 

HH 

HH 

00 

00 

EE 

XX      XX 

EE 

ss 

HH 

HH 

00 

00 

EE 

XX      XX 

EE 

ss 

HH 

HH 

00 

on 

EE 

XX  XX 

EE 

ss 

HH 

HH 

00 

no 

EE 

XX  XX 

EE 

SSSSS5 

HHHHHHHHHH 

00 

00 

EEEEEEEE 

XX 

EEEEEEEE 

SSSSSS 

HHHHHHHHHH 

00 

00 

EEEEEEEE 

XX 

EEEEEEEE 

SS 

HH 

HH 

00 

uo 

EE 

XX  XX 

EE 

SS 

HH 

HH 

00 

(10 

EE 

XX  XX 

EE 

ss 

HH 

HH 

00 

00 

EE 

XX      XX 

EE 

ss 

HH 

HH 

00 

nn 

EE 

XX      XX 

EE 

SSSSSSSb 

HH 

HH 

000000 

EEEEEEEEEE 

XX      XX 

EEEEEEEEEE 

ssssssss 

HH 

HH 

OOOOQO 

EEEEEEEEEE 

XX      XX 

EEEEEEEEEE 

SSSSSSSS 

ssssssss 

SS 

ss 

ss 

ss 

ssssss 

SSSSSS 

ss 

SS 

ss 

SS 

LLLLLLLLLL 

SSSSSSSS 

TTTTT 
TTTTT 


■TTTT 
■TTTT 


LLLLLLLLLL         SSSSSSSS 
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A99 

500 
501 
502 
503 
50A 
505 
506 
50? 
508 

509  003056 

510  003056 

511  003062 

512  003066 

513  003072 
5U  003074 
515  003100 
516 

517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 

532  003104 

533  003110 

534  003114 

535  003120 

536  003126 

537  003130 

538  003132 

539  003134 
540 

541 
542 

543  003140 

544  003142 

545  003144 

546  003152 

547  003154 
543  003162 
549 

550 
551 
552 

553  003164 

554  003170 

555  003174 


012701 
012702 
016412 
001002 
016712 
000167 


.SBTTL  SEGSIZ  -  PRINT  ECL  SEGMENT  SIZE 

*•  SEGSIZ  -  PRINT  ECL  SEGMENT  SIZE 

INPUT;       R4  -  ADDRESS  Of  DFCJDF  TEMPLATE 
$RD8SZ  =  SIZE  Of  RD8 

OUTPUT:       THE  ECL  SEGMENT  SIZE  IS  PRINTED. 


000613" 
001460' 
000004 

OOOOOOG 
177640 


SEGSIZ: 

MOV 
MOV 
MOV 
BNE 
MOV 

10$:    CALLR 


#ECLSEG,R1 

*MSG8LK,R2 

C.SEG(R4),(R2) 

10$ 

$RD8SZ,(R2) 

PRINT 


POINT  TO  TEXT  STRING 

POINT 

PICK  UP  ECL  SEGMENT  SIZE 

If  NE,  GOT  IT 

PICK  UP  RD8  SIZE 

PRINT  IT 


.S8TTL  PUTHST  FIND  AND  fORMAT  HOST  ADDRESS  ANO  NAME 


016501 

004567 

000351' 

026565 

001002 

010501 

000414 

012701 


011101 
001423 
122761 
001372 
026561 
001366 


1100054 

7:'656 

000406' 

000052 


PUTHST: 


000054 


OOOOOOG 


5$: 


PUTHST 
INPUT: 

OUTPUT: 


MOV 

JSR 

.WORD 

CMP 

BNE 

MOV 

BR 

MOV 


fIND  AND  FORMAT  HOST  ADDRESS  AND  NAME  REMOTE  NODE  STYLE 

RO  =  NEXT  LOCATION  IN  PRINTING  BUFFER 
R2  =  DATA  BLOCK  FOR  $EDMSG 
R5  =  NODE  TEMPLATE 

HOST  ADDRESS  AND  NAME  ADDED  TO  PRINTING  BUFFER 
R1,R2  CORRUPUTED 


FORMAT  HOST  ADDRESS 

PUT  TWO  WORD  PHASE  4  ADDRESS 


C.H0S(R5),R1 

R5,PUTADR 

HSTMSG,HSTMS2  .  ... 

C.NUM(R5),C.HOS(R5);  HOST  AND  EXEC  THE  SAME? 

5$  ;  NOPE,  GET  REMOTE 

R5,R1  ;  COPY  NODE  TEMPLATE  ADDRESS 

15$  ;  AND  SKIP  ALL  THE  WORK 

#$TMLST,R1  ;  GET  START  OF  TEMPLATE  LIST 


SEARCH  FOR  THE  REMOTE  TEMPLATE 


10$: 


OOOOOOG  OOOOOOG 
000054  000010 


MOV  (RD.Rl        ;  GET  NEXT  TEMPLATE 

BEQ  20$  ;  IF  EQ,  END  OF  TEMPLATES  JUST  RETURN 

CMPe  *CS.REM,C.STS(R1)  ;  IS  THIS  A  REMOTE  TEMPLATE  ? 

BNE  10$  ;  If  NE,  NO  ..  KEEP  LOOKING 

CMP  C.HOS(R5),10(R1)  .-CHECK  TEMPLATE  ADDRESS  AGAINST  HOST 

BNE  10$  ;  If  NE,  NOT  THIS  ONE,  KEEP  LOOKING 

DISPLAY  THE  REMOTE  CHARACTERISICS 


012702     001460' 

016112  000004 

016162  000006  000002 


15$:    MOV     *MSG8LK,R2      ;  POINT  AT  ARGUMENT  BLOCK 
MOV     C.NAM(rI)  fR2)   ;  STORE  THE  REMOTE  NAME 
MOV     C.NAMt2(Rl),2(R2); 
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124 
125 
126 
127 
128 
129 
130 
131 
132 
13^ 
134 
135 

136  000252 

137  000252 
138 

139 

HO 

lA-i  000256 

H2  000260 

U3  000262 

144  000270 

145  000272 

146  000300 
147 

148 
149 

150  000302 

151  000306 

152  000310 

153  000316 

154  000320 

155  000324 

156  000326 

157  000336 

158  000340 

159  000346 

160  000354 

161  000362 

162  000364 

163  000372 

164  000400 

165  000402 

166  000410 

167  000416 

168  000420 

169  000426 

170  000434 

171  000442 

172  000444 

173  000452 

174  000460 

175  000466 

176  000470 

177  000476 

178  000504 
179 

180 


.SBTTL  SSEOBJ  -  UPDATE  OBJECT  DEFINITION 
»♦♦  -  SSEOBJ  -  UPDATE  OBJECT  DEFINITION 
INPUT: 


$OPRND  =  BIT  MASK  OF  THE  OPERANDS  PRESENT 


OUTPUT; 


THE  OBJECT  TEMPLATE  IS  MODIFIED 


012700  OOOOOOG 


SSEOBJ: 


;  SEARCH  FOR  THE  OBJECT  TEMPLATE 

011000 

10$: 

MOV 

(RO),RO 

001512 

BEQ 

50$           ; 
#CS.OBJ,C.STS(R0) 

122760 

OOOOOOG 

OOOOOOG 

CMPB 

001372 

BNE 

10$         „  , 

126760 

OOOOOOG 

000004 

CMPB 

$TNUM,C.TYP(RO)  , 

001366 

BNE 

10$ 

;  FOUND 

THE  OBJECT  DEFINITION 

004767 

000550 

CALL 

CHKMUL 

103522 

BCS 

57$ 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#OO.NAM,$OPRND  ; 

001416 

BEQ 

20$          ; 

005767 

OOOOOOG 

TST 

$TNUM 

001005 

BNE 
ERROR$ 

15$ 
#ERRONA 

000406 

BR 

20$ 

016760 

OOOOOOG 

000006 

15$: 

MOV 

$TNAM,C.nAM(RO)  ; 

016760 

000002G 

000010 

MOV 

$TNAM+2,C.NAM+2(R0 

032767 

OOOOOOG 

OOOOOOG 

20$: 

BIT 

#OO.USR,$OPRND  ; 

001412 

BEQ 

30$           ; 
#OF.RLU,C.FLG(RO) 

142760 

000100 

000005 

BICB 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#SW.RLU,$Sh;iCH  ; 

001403 

BEQ 

30$           ; 
#OF.RLU,C.FLG(RO) 

152760 

000100 

000005 

BISB 

032767 

OOOOOOG 

OOOOOOG 

30$: 

BIT 

#OO.COP,SOPRND  ; 

001420 

BEQ 

40$           ; 
#OF.SMC,C.FL6(R0) 

142760 

000200 

000005 

BICB 

112760 

000001 

000012 

MOVB 

#1,C.CPY(R0) 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#SU.SMC,$SWICH 

001406 

BEQ 

40$          ; 
#OF.SMC,C.FLG(R0) 

152760 

000200 

000005 

BISB 

116760 

OOOOOOG 

000012 

MOVB 

$COPES,C.CPY(RO)  ; 

032767 

OOOOOOG 

0000006 

40$: 

BIT 

*OO.VFY,$OPRND 

001535 

BEQ 

80$ 

142760 

000007 

000005 

BICB 

#7,C.FLG(R0) 

156760 

OOOOOOG 

000005 

BISB 

$VLVL,C.FLG(RO) 

000526 

BR 

80$ 

GET  NEXT  TEMPLATE 

IF  EQ,  NOT  IN  LIST  ..  MAKE  NEW  ENTRY 

;  IS  THIS  AN  OBJECT  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

IS  THIS  THE  RIGHT  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 


CHECK  FOR  MULTIPLE  COPY  TASKNAME 

IF  CS,  ERROR 

IS  THE  NAME  FIELD  PRESENT  ? 

IF  EQ,  NO 

IS  THIS  OBJECT  TYPE  ZERO  ? 

IF  NE,  NO  ..  OKAY 

OBJECT  TYPE  ZERO  CANNOT  HAVE  A  TASK  NAME 

AND  CONTINUE 

ELSE,  STORE  NEW  TASK  NAME 

)  ;  2ND  HALF  OF  TASK  NAME 

IS  THE  USER  FIELD  SPECIFIED  ? 

IF  EQ,  NO 

;  ASSUME  "DEFAULT" 

IS  IT  "DEFAULT"  ? 

IF  EQ,  YES 

;  IT  MUST  BE  "LOGIN" 

WAS  THE  NUMBER  OF  COPIES  SPECIFIED  ? 

IF  EQ,  NO 

;  ASSUME  "SINGLE"  COPIES 

IS  IT  "sInGLE"  COPIES  ? 
IF  EQ,  YES  ..  OKAY 
:  ELSE,  SET  TO  SPAWN  MULTIPLE  COPIES 
STORE  THE  NUMBER  OF  COPIES  TO  SPAWN 
WAS  THE  VERIFICATION  LEVEL  SPECIFIED  ? 
IF  EQ,  NO  ..  LEAVE 
ELSE,  CLEAR  OUT  THE  OLD  BITS 
SET  THE  VERIFICATION  LEVEL 
AND  LEAVE 


CREATE  A  NEW  OBJECT  TEMPLATE 
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1 

2 

3 

A 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  SETPVC  -  SET  PVC  PARAMETERS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SET  PVC  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  22-OCT-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5. CO  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
31 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
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.TITLE  SETREM  -  SET  REMOTE  NODE  OPTIONS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  MODULE  TO  REPLACE  MODIFIED  FIELDS  IN  THE  REMOTE  TEMPLATE 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-IIM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

0ECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00     22-JUL-85 

DECnet-HM/S  V4.2 
OECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 
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GETBYT  -  GET  SIZE  OF  ALLOCATION 


478 
479 
480 
481 
482 
485 
484 
485 
486 
487 

488  001216 

489  001220 

490  001224 

491  001226 

492  001232 

493  001236 
494 

495 
496 
497 
498 
499 
500 
501 
502 
503 
504 

505  001240 

506  001242 

507  001246 

508  001250 

509  001252 

510  001260 

511  001262 

512  001270 

513  001272 

514  001276 

515  001300 

516  001304 

517  001312 

518  001314 
519 

520 
521 

522  001316 

523  001322 

524  001326 

525  001332 

526  001334 

527  001336 

528  001344 

529  001352 

530  001360 

531  001364 

532  001370 

533  001376 
534 


005046 
116500 
010026 
062700 
042700 
000207 


.SBTTL  GETBYT  -  GET  SIZE  OF  ALLOCATION 

GETBYT  -  GET  SIZE  OF  ALLOCATION 

INPUTS:  R5      =  ADDRESS  OF  FILE  BLOCK 

OUTPUT:  RO      =  SIZE  OF  ALLOCATION 


000004 

000011 
000003 


GETBYT:  CLR  -(SP) 

MOVB  F.DEV-1(R5),R0 

MOV  R0,(SP)+ 

ADD  #6+3.R0 

8IC  #3,R0 
RETURN 

.S8TTL  GETDLL  -  GET  DLL  TEMPLATE  POINTERS 


CLEAR  ACCUMULATED  BYTES 

FILENAME  STRING  LENGTH 

SET  ACCUMULATED  BYTES,  RESTORE  STACK 

ROUND  IT  UP  TO  A 

..4  BYTE  BOUNDARY 


012701 
011101 
001422 
126127 
001372 
026160 
001366 
010167 
011101 
010167 
P6127 
001063 
000460 


C12700 
012701 
004767 
103455 
011601 
016160 
012760 
012760 
010067 
004767 
062767 
062767 


OOOOOOG 


GETDLL 
INPUT: 
OUTPUT: 

GETDLL 


GET  DLL  TEMPLATE  POINTERS 

RO      =  ADDRESS  OF  REMOTE  BLOCK 


SERPT 
FILPT 


=  ADDRESS  OF  SERSDF  TEMPLATE 
=  ADDRESS  OF  FILSDF  TEMPLATE 


10$: 


OOOOOOG  OOOOOOG 

000006  000010 

176544 

176540 

OOOOOOG  OOOOOOG 


SAVRG 

MOV 

MOV 

BEQ 

CMPB 

BNE 

CMP 

BNE 

MOV 

MOV 

MOV 

CMPB 

BNE 

BR 


RO 

#$TMLST,R1 

(R1),R1 

20$ 

C.STS(R1),*CS.SER 

10$ 

$$ADD(R1),C 

10$ 

R1, SERPT 

(R1),R1 

R1, FILPT 

C.STS(R1),*CS.FIL 

101$ 

30$ 


SAVE  REMOTE  BLOCK  ADDRESS 
POINT  TO  LISTHEAD 
NEXT  TEMPLATE 
IF  EQ,  NOT  FOUND 
;  IS  IT  A  SER$DF  ? 
.  IF  NE,  NO 
ADD(RO)  ;  FOR  CURRENT  REMOTE  ? 
IF  NE,  NO 
SAVE  ADDRESS 
POINT  TO  NEXT 
SAVE  IT 

;  IS  IT  A  FIL$DF  ? 
IF  NE,  TROUBLE 


NO  DLL  DATABASE:  ALLOCATE  ONE 


OOOOOOG 

000056 

OOOOOOG 


50$: 


000010  000006 
000001  000004 
OOOOOOG  OOOOOOG 
176456 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


MOV 
MOV 
CALL 
BCS 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

ADD 

ADD 


#$XXAVL 

#S$LEN,R 

$RQBF 

102$ 

(SP),R1 

C.ADDtRI 

#SF.ADD, 

#CS.SER, 

RO, SERPT 

$QINSN 

#S.LENX 

ffS.LENX, 


RO      ;  POINT  TO  FREE  LIST 

1       ;  LENGTH  OF  ALLOCATION  IN  BYTES 

REQUEST  CORE  BLOCK 

IF  CS  ERROR 

RECOVER  REMOTE  BLOCK  ADDRESS 
),S$ADD(RO)  ;  FILL  IN  NODE  ADDRESS 
;  ONLY  ADDRESS,  SO  FAR 

;  MARK  IT  AS  A  SER$DF 

SAVE  ADDRESS 

LINK  SER$DF  AFTER  REM$DF 

UPDATE  RUNTIME  BYTE  MINIMUM 

AND  ACTUAL  POOL  BYTE  EXTENSION 


SiFLG(RO) 
C.STS(RO) 


SBYTMN 
$BYTXT 
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SETROU  -  SET  EXECUTOR  ROUTING 
Symbol  table 


I  6 

0  MACRO  V05.05b  Saturday  29-Jun-85  05:23 


Page  5-2 


CS.MOD= 

»*<•*•  GX 

C.L2TM  00002A 

CS.ROU= 

••«**»  GX 

C.NA    OOOOUi 

C.ACST 

000022 

C.NBEA  000016 

C.ADD 

000004 

C.RTM   000012 

C.AHOP 

000020 

C.STS  =  ♦•*♦**  GX 

COST 

000006 

ERRPNA  000036R 

CHOP 

000010 

ERRROU  OOOOOOR 

C.LEN  = 

000026 

EX$ERR=  000002 

.  ABS. 

000026 

000 

(RW,I,GBL,ABS,OVR) 

00041A 

OOl 

(RW,I,LCL,REL,CON) 

Errors 

detected: 

0 

F? 

RFA= 

****** 

GX 

F2 

RRT  = 

****** 

GX 

OF 

ACO= 

****** 

GX 

OF 

AHO= 

****** 

GX 

OF 

AMA= 

****** 

GX 

OF 

MXC= 

****** 

GX 

OF 

MXH= 

****** 

GX 

OE 

NN  = 

****** 

GX 

OE.RTM= 

****** 

GX 

$CFERR= 

****** 

GX 

$EACOS= 

****** 

GX 

$EAHOP= 

****** 

GX 

$EAMAX= 

****** 

GX 

SEBEA  = 

****** 

GX 

SEBRT  = 

****** 

GX 

SMAXC  = 

****** 

GX 

SMAXH  =  ******  GX 


$NN 


=  ******  GX 


$OPRND=  ******  GX 
$0PRN2=  ******  GX 
$RTM  =  ******  GX 
SSEROU  000110RG 
$THLST=  ******  GX 


*««  Assembler  statistics 


Work  file  reads:  0 

Work   f i le  writes:  0 

Size  of  work  file:  8A89  Words  (  3A  Pages) 

Size  of  core  pool:  U440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


SY-SEfROu!v2;[l'32?i3°]SEtROU/CR/-SP-SV:[1,nRSXMCM.SML/ML,[130,110]NETLlB/ML,[132,10]SETROU 


SETROU     CREATED  Bv  MACRO  ON  29-JUN-85  AT  05:23     PAGE  1 
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SETSLT  -  SET  SLT  PARAMETERS     MACRO  V05.03b  Saturday  29-Jun-85  05:24  Page  7-1 
SETPTP  -  SET  POINT  TO  POINT  LINE/CIRCUIT  STATE 

328  000772  052765  OOOOOOG  OOOOOOG        BIS     #LF.SER,S$LFLG(R5)      ':    DISABLE  SERVICE  FOR  CIRCUIT 

329  001000  000207  30$:    RETURN 
330 
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55 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85  000000 

86 

87 

88 

89 

90 

91 

92 

93  000002 

94  000000    002 

95  000045    002 
96 

97 

98  000^10  000000 

99 


•  *♦** 

I  LOCAL  MACROS 

;  *  *  *  * 

.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


;  POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
;  PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 


MOV 
.ENDC 
CALL 
.ENDM 

TEXr.R 

SCFERI 
EPRINT 

.MCALL 

SVCDFS 

SVCDFS 

LOCAL  DATA 

GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


DEFINE  SVC  SYMBOLS 


.NLIST 
.ENA8L 


BEX 
LC 


103 
103 


106 
106 


ERRSVC: 
ERRUSG 


SCR: 


EXSERR  =  2 

.ASCIZ  <EXSERR>/CFE  ~  Circuit  not  in  configuration/ 

.ASCIZ  <EXSERR>/CFE  —  Usage  cannot  be  permanent/ 

.EVEN 

.WORD  0 
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SETSVC  -  SET  SVC  PARAMETERS 


MACRO  V05.03b  Saturday  29-Jun-85  05:24  Page  5 


SETUNT 
SSEUNT 


SET  LINE  UNIT  OPTIONS 
SET  UNIT  PARAMETERS 


I  9 

MACRO  V05.03b  Monday  12-Aug-85  15:02  Page  5-1 


202  000330 

026760 

OOOOOOG 

000004 

CMP 

203  000336 

20^ 

205 

001343 

BNE 

;•  UPDATE  THE  U^ 

206 

207  000340 

052760 

OOOOOOG 

OOOOOOG 

^5$: 

BIS 

208  000346 

032767 

OOOOOOG 

OOOOOOG 

BIT 

209  000354 

001406 

BEQ 

210  000356 

016760 

OOOOOOG 

000014 

MOV 

211  000364 

052760 

OOOOOOG 

OOOOOOG 

BIS 

212  000372 

032767 

OOOOOOG 

OOOOOOG 

37$: 

BIT 

213  000400 

001412 

BEQ 

214  000402 

042760 

000001 

000006 

BIC 

215  000410 

032767 

OOOOOOG 

OOOOOOG 

BIT 

216  000416 

001003 

BNE 

217  000420 

052760 

000001 

000006 

BIS 

218  000426 

032767 

OOOOOOG 

OOOOOOG 

40$: 

BIT 

219  000434 

001431 

BEQ 

220  000436 

032767 

OOOOOOG 

OOOOOOG 

BIT 

221  000444 

001410 

BEQ 

222  000446 

032767 

OOOOOOG 

OOOOOOG 

BIT 

223  000454 

001413 

BEQ 

224  000456 

032760 

000007 

000004 

BIT 

225  000464 

001407 

BEQ 

226  000466 

010046 

43$: 

MOV 

227  000470 

ERROfi$ 

228  000500 

012600 

MOV 

229  000502 

000406 

BR 

230  000504 

016760 

OOOOOOG 

000012 

45$: 

MOV 

231  000512 

052760 

OOOOOOG 

OOOOOOG 

BIS 

232  000520 

032767 

OOOOOOG 

OOOOOOG 

50$: 

BIT 

233  000526 

001406 

BEQ 

234  000530 

016760 

OOOOOOG 

000016 

MOV 

235  000536 

052760 

OOOOOOG 

OOOOOOG 

BIS 

236  000544 

032767 

OOOOOOG 

OOOOOOG 

55$: 

BIT 

237  000552 

001635 

BEQ 

238  000554 

004767 

000134 

CALL 

239  000560 

000632 

BR 

240  000562 

000207 

60$: 

RETURN 

$UNTNM,C.UNT(RO)  ;  IS  THIS  THE  RIGHT  UNIT  ? 
30$  ;  IF  NE,  NO  ..  KEEP  LOOKING 


#CS.MOD,C.STS(R0) 

#0C.CST,$0PRND 

37$ 

$COST,C.rST(RO)  , 

#UN$CST,C.STS(RO) 

#OL.PLX,$OPRND 

40$ 

#1,C.CW0(R0) 

#SW.FUL,$SWICH 

40$ 

#1,C.CWO(R0) 

#0L.SEC,$0PRND 

50$ 

#FL.LMC,$FLAGS 

43$ 

#FL.KMX,$FLAGS 

45$ 

#7,C.UNT(R0) 

45§ 

RO,-(SP) 

#ERRSEC 

(SP)+,RO 

50$ 

$SCSR,C.CSR(RO)  , 

#UN$SCS,C.STS{RO) 

#OL.DPR,$OPRND 

55$ 

$DPR,C.DPR(RO)   , 

*UN$DPR,C.STS(RO) 

*0L.8AU,$OPRND 

30$ 

SPEED 

30$ 


;  INDICATE  THAT  THIS  TEMPLATE  WAS  MODIFIED 

HAS  THE  COST  CHANGED  ? 

IF  EQ,  NO 

ELSE,  STORE  THE  NEW  COST 

;  REMEMBER  OPTION 

HAS  THE  DUPLEX  CHANGED  ? 

IF  EQ,  NO 

ASSUME  FULL  DUPLEX 

FULL  DUPLEX  ? 

IF  NE,  YES 

SET  LINE  TO  HALF  DUPLEX 

SECONDARY  CSR  ADDRESS  CHANGED  ? 


IF  EQ,  NO 

IS  THIS  A 

IF  EQ,  NO 

IS  THIS  A 

IF  EQ,  NO 


COMIOP  DEVICE  ? 

ERROR 
KMC  MULTIPLEXER  ? 

OKAY 
IS  THIS  THE  ZERO,  NINTH,  ...  UNIT  ? 
IF  EQ,  YES  ..  OKAY 
SAVE  TEMPLATE  ADDRESS 
NO  SECONDARY  CSR  11 
RESTORE  TEMPLATE  ADDRESS 
AND  SKIP  CSR 

STORE  THE  SECONDARY  CSR  ADDRESS 
;  REMEMBER  OPTION 
HAS  THE  DPR  CHANGED  ? 
IF  EQ,  NO 

ELSE,  STORE  THE  DPR 
;  REMEMBER  OPTION 
HAS  THE  BAUD  RATE  CHANGED  ? 
IF  EQ,  NO  ..  LOOK  FOR  MORE  WORK 
SET  UP  THE  NEW  SPEED 
AND  LOOK  FOR  MORE  WORK  ! 
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SETX2P  CREATED  BY     MACRO     ON  29-JUN-85   AT   05:2^. 

SYMBOL    CROSS   REFERENCE 
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PAGE   1 

CREF       0^.00 


SYMBOL 

VALUE 

REFERENCES 

CS.X2P 

= 

****** 

GX 

5-108 

C.STS 

= 

****** 

fix 

5-108 

OL.BSZ 

= 

****** 

fix 

5-131 

OL.HBT 

= 

****** 

fix 

5-122 

OL.RTC 

= 

****** 

GX 

5-125 

OL.RTT 

- 

****** 

fix 

5-13^ 

OL.WSZ 

= 

****** 

fix 

5-128 

WC.CNT 

= 

****** 

GX 

5-1U 

WC.LIN 

= 

****** 

GX 

5-110 

WC.UNT 

= 

fix 

5-118 

XS2BSZ 

- 

****** 

fix 

.5-133 

X$2HBT 

- 

****** 

GX 

*5-124 

X$2LIN 

= 

****** 

GX 

5-112 

5-115 

5-120 

X$2RTC 

- 

****** 

fix 

»5-127 

X$2RTT 

= 

****** 

GX 

*5-136 

X$2WSZ 

~ 

****** 

fix 

*5-130 

SBSZ 

- 

****** 

GX 

5-133 

SDVNAM 

= 

****** 

GX 

5-112 

5-116 

5-120 

$HBT 

~ 

****** 

fix 

5-124 

$OPRND 

- 

****** 

fix 

5-122 

5-125 

5-128 

$RTC 

~ 

****** 

GX 

5-127 

$RTM 

:; 

****** 

GX 

5-136 

$SEX2P 

000000 

RG 

#5-101 

STMLST 

- 

**tr*** 

fix 

5-102 

SWILD 

= 

****** 

GX 

5-110 

5-114 

5-118 

swsz 

= 

****** 

GX 

5-130 

5-131 


5-134 


SFTX2P 


CREATED  BY     MACRO     ON  29-JUN-85   AT   05:24 
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SHOBJ  -  LIST  OBJECT  fHARACTERIS  MACRO  V05.03b  Saturday  29-Jun-85  05;25 
Table  ot  contents 

5-  169    tSHOBJ  -  SHOW  OBJECT  CHARACTERISTICS 
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CHADFS 
SVCDFS 

■  *»»♦ 
;  LOCAL 

;  »  »  *  t 

DATA 

CURSLT: 

.BLKW 

1 

•  DEFINE  UNIT 

TEMPLATE 

cwo 

C.CU1 
C.CSR 
C.CST 
C.DPR 
C.HTM 
C.LTM 
C.LEN= 


.ASECT 

.=0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.PSECT 


SHOCIR  -  LIST  CIRCUIT  CHARACTER  MACRO  V05.O3b  Thursday  29-Aug-85  11 

110  000000 

111  000000 
112 
113 
114 
115 
116 

117  000000 
118 
119 
120 

121  000000 

122  000000 

123  000000 
12A  000002 

125  000004  CUNT 

126  000006 

127  000010 

128  000012 

129  000014 

130  000016 

131  000020 

132  000022 

133  000024 

134  000002 
135 
136 
137 

138  O00002 
139 
140 
141 
142 
143 

144  000002  012  103  151  HEAD.T:  .ASCIZ 

145  000050  012  113  156  HEADR1 :  .ASCIZ 

146  000124  012  103  151  LINMSG:  .ASCII 

147  000137  LINID:  .BLKB 

148  000163  045  126  101  OPTMSG:  .ASCIZ 

149  000172  040  040  117  TYPMS6:  .ASCIZ 

150  000224  040  040  110  HELMSG:  .ASCII 

151  000246  054  040  123  SERMSG:  .ASCIZ 

152  000266  040  040  103  STAMSG:  .ASCIZ 

153  000325  040  040  122  RPRMSG:  .ASCIZ 

154  000402  045  062  122  FMT2R5:  .ASCIZ 

155  000406  045  061  122  FMTDLM:  .ASCIZ 

156  000420  012  103  151  PVCMSG:  .ASCIZ 

157  000437  040  040  117  PVCMS2:  .ASCIZ 

158  000504  040  040  125  PVCMS3:  .ASCII 

159  000537  054  040  103  PVCOl :  .ASCIZ 

160  000564  040  040  123  PVCMS4:  .ASCIZ 

161  000625  040  040  115  PVCMS5:  .ASCII 

162  000663  PVCLIN:  .BLKB   20. 

163  000707  040  040  103  PVCMS6:  .ASCIZ 
164 

165  000745     045     116         SVCM1 : 

166  000747     103     151     162 


1^1 
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DEFINE  Ti  ,  CHARACTERISTICS  WORDS  OFFSETS 
DEFINE  THE  SVC  FLAGS 


CURRENT  SLT  TEMPLATE  ADDRESS 


C.LNK 

C.STS 

UNIT  NUMBER 

CHARACTERISTICS  WORD  0 

CHARACTERISTICS  WORD  1 

SECONDARY  CSR  ADDRESS 

LINE  COST 

DEAD  POLLING  RATIO 

HELLO  TIMER 

LISTEN  TIMER 


Sh 
GE 


.NLIST  BEX 
.ENABL  LC 
EXSERR  =  2 

FORMAT  STRINGS 


•*  NOTE  **  EDIT  MESSAGE  ALWAY  MOVES  AT  LEAST  ONE  CHARACTER 
FROM  THE  INPUT  STRING  INTO  THE  OUTPUT  BUFFER  (EVEN  IF  YOU 
SAY  THE  INPUT  LENGTH  IS  ZERO  FOR  A  5!VA)  II 

<12>/Circuit  characteristics  as  of  XY  3!3Z/ 

<12>/Known  circuit  characteristics  as  of  XY  X3Z/ 

<12>/Circuit  =  / 

20. 

/ZVAXVA/ 


/, 


Owner  =  XVA,  Type  =  XVA/ 
/  Hello  timer  =  XM/ 
/,  Seri/ice  =  XVA/ 
/  Cost  =  m.   State  =  XVAXVAXVA/ 
/  Router  priority  =  XM,  Maximum  routers  =  W/ 

/X2R/  "■■  "■■■ 

/XIR-XM.XM/ 
<12>/Circuit  =  XVA/ 

/  Owner  =  XVA,  Type  =  XVA.  „ 

/  Usage  -  XVA,  Channel  =  XM/ 
Counter  limt'-  =  XM/ 

/  State  -  :;VA,  Maximum  data  =  XM/ 

/  Maximum  window  =  XM,  Line  =  / 


FORMAT  NON-DLM  PVC  NAME 
FORMAT  DLM  STYLE  PVC  NAME 


DTE  =  X5R/ 


/  Cost  =  XM,  Hello  timer 


.ASCII  /XN/ 

.ASCIZ  /Circuit  =  DLM-XM.XM/ 


XM/ 
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SHOCIR   -  LIST   CIRCUIT   CHARACTER  MACRO  V05.03b   Thursday   29-Aug-85 
GETSTA   -   GET    STATION   TEMPLATE 


ill' 


1     Page  11 


716 
717 
718 
719 
720 
721 
722 
723 
72A 
725 
726 
727 
728 
729 
750 
751 
752 
755 
754 
755 


004522 
004522 
004526 
004354 
004540 
004344 
004546 
004352 
004356 


016^46 
042767 
012705 
004767 
105402 
004767 
012667 
000207 


OOOOOOG 

OOOOOOC  OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 


.S8TTL  GETSTA  -  GET  STATION  TEMPLATE 

•*  GETSTA  -  GET  STATION  TEMPLATE 

INPUTS        STMLST  =  TEMPLATE  LISTHEAD 

SDVNAM  =  DEVICE,  LINE  AND  TRIB  ID 

OUTPUT        CARRV  CLEAR:  R5  =  ADDRESS  OF  TEMPLATE 
CARi<Y  SET:  FAILURE 

GETSTA: 

MOV  $WILD,-(SP)  ;  SAVE  WILDCARD  FLAGS 

BIC  #WC.UNT!WC.TRI,$UILD  ;  TURN  OFF  WILDCARD  PROCESSING 

MOV  #$TMLST,R5  ;  POINT  TO  START  OF  TEMPLATES 

CALL  SFNSLT  ;  LOCATE  SLT 

BCS  10$  ;  NO  SLT  ? 

CALL  SFNSTA  ;  TRY  TO  FIND  STATION 

10$:    MOV  (SP)  +  ,$WILD  ;  RESTORE  WILDCARD  FLZ-GS 

RETURN 
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SHOEXE  -  LIST  EXECUTOR  OPTIONS 
Table  ot  contents 


M^CRO  V05.0?b  Saturday  29-Jun-85 


I  1* 

05:2 


25 


A- 

S^ 

s- 

'8/ 

f,- 

4^1 

/- 

A6() 

H- 

499 

8- 

bT9 

MACRO  DEFINITIONS 

SSHEXE  -  SHOW  EXECUTOR  CHARACTERISTICS 

PRINT  -  PRINT  A  LINE 

PUTADR  -  PUT  A  PHASE  4  ADDRESS 

SEGSIZ  -  PRINT  ECL  SEGMENT  SIZE 

PUTHST  FIND  AND  FORMAT  HOS'  ADDRESS  AND  NAME 


J  U 
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SHOEXE  -  1  1ST  EXECUTOR  OPTIONS  MACRO  V05.03b  Saturday  29-Jun-85  05:25  Page  8-1 
PUTHST  FIND  AND  FORMAT  HOST  ADDRESS  AND  NAME 

556  003202  012701  000A2A'  MOV     *HSINAM,R1      ;  POINT  AT  CONTROL  STRING  FOR  NAME 

557  003206  00A767  OOOOOOG  CALL    lEDMSG         ;  FORMAT  NAME 

558  003212  0002C7  20$:    RETURN 

559  000001  .END 
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SHOLIN 
tSHLlN 


LIST  LINE   CHARACTERIST  MACRO  V05.03b  Saturday  29-Jun-85  05:56     Page  5 
SHOW  LINE    CHARACTERISTICS 


W.^6 


285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 

297  001510 

298  001510 

299  0015U 

300  001522 

301  001524 

302  001530 

303  001534 

304  001540 

305  001544 

306  001554 

307  001560 
308 

309 
310 

311  001566 

312  001572 

313  001574 

314  001576 

315  001604 

316  001606 

317  001614 

318  001616 

319  001624 
320 

321 
322 

323  001632 

324  001634 

325  001636 

326  001644 

327  001646 

328  001654 

329  001656 

330  001660 

331  001666 

332  001670 

333  001676 

334  001700 

335  001706 
356  001714 

337  001722 

338  001730 
339 

340 
341 


012701 
032767 
001402 
012701 
012700 
012702 
004767 

012700 
042767 


004767 
103524 
010005 
122765 
001370 
02652' 
001764 
016567 
012767 


011505 
001503 
122765 
001405 
032767 
001766 
000426 
032767 
001004 
026567 
001355 
016567 
016567 
016567 
016567 
004767 


.SBTTL  ISHLIN  -  SHOW  LINE  CHARACTERISTICS 
»♦*  -  $SHLIN  -  SHOW  LINE  CHARACTERISTICS 
INPUT: 


$WILD  ■-  WILI)  CARDS  PRESENT 


OUTPUT 


THE  CHARACTERISTICS  FOR  THE  LINE  IS  DISPLAVED. 


000102' 
OOOOOOG  OCOOOOG 

000145' 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 


SSHLIN;: 


5$: 


MOV 

BIT 

BEQ 

MOV 

MOV 

MOV 

CALL 

PRINT 

MOV 

BIG 


#HEADR,R1 

#WC.NAM,$WILD 

5$ 

#HEADR1,R1 

#$8UFF,R0 

#$GTBUF,R2 

SEDMSG 

#$BUFF 

#$TML5T,R0 

#FL.TRI,$FLAG5 


ASSUME  ONLY  1  LINE 

KNOWN  LINES  ? 

IF  EQ,  NO  ..  OKAY 

ELSE,  DIFFERENT  HEADER 

POINT  TO  OUTPUT  BUFFER 

POINT  AT  ARGUMENT  BLOCK 

FORMAT  THE  HEADER 

PRINT  THE  HEADER 

GET  START  OF  TEMPLATES 

NEVER  WANT  TRI8  INFO  FOR  LINES 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  015355 

OOOOOOG  OOOOOOG 
OOOOOOG  176244 


SEARCH  FOR  THE  DDM  PROCESS  NAME 


10$: 
15$: 


CALL 

BCS 

MOV 

CMPB 

BNE 

CMP 

BEQ 

MOV 

MOV 


$FNPRO 

40$ 

R0,R5 

*CS.DDM,C.STS(R5 

10$ 

C.PRM(R5),#"RDLM 

10$ 

C.PRM(R5),$DVNAM 

*$TMLST,CURSLT 


FIND  THE  DDM  TEMPLATE 

IF  CS,  NO  MORE 

SAVE  TEMPLATE  ADDRESS 

;  IS  IT  A  DDM  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 
:  IS  THIS  THE  DLM  DDM  ? 

IF  EQ,  NOT  REALLY  A  LINE  -  SKIP 
;  STORE  THE  DDM  PROCESS  NAME 

GET  NEXT  SLT  FROM  START  OF  LIST 


IT 


SEARCH  FOR  THE  RIGHT  CONTROLLER 


50$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  23$: 

OOOOOOG  OOOOOOG  24$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  25$: 
000002G  177506 
000004G  177476 
000006G  177474 
000734 


MOV  (R5),R5        ;  GET  NEXT  TEMPLATE 

BEQ  40$  ;  IF  EQ,  END  OF  TEMPLATES 

CMP8  *CS.CNT,C.STS(R5)  ;  IS  THIS  A  CONTROLLER  TEMPLATE  ? 

BEQ  24$  ;  IF  EQ,  YES  ..  OKAY 

BIT  #WC.CNT,$WILD   ;  ELSE,  IS  IT  ALL  CONTROLLERS  ? 

BEQ  20$  ;  IF  EQ,  NO  ..  LOOK  FOR  CONTROLLER 

BR  30$  ;  ELSE,  MAYBE  A  UNIT  TEMPLATE 

BIT  #WC.CNT,$WILD   ;  ALL  CONTROLLERS  ? 

BNE  25$  ;  IF  NE,  YES 

CMP  C.PRM(R5),$CNTNM  ;  IS  THIS  THE  RIGHT  CONTROLLER  ? 

BNE  20$  ;  IF  NE,  NO  ..  KEEP  LOOKING 

MOV  C.PRM(R5),$CNTNM  ;  STORE  THE  CONTROLLER  NUMBER 

MOV  C.PRM+2(R5),CNT8LK+2  ;  STORE  THE  VECTOR  ADDRESS 

MOV  C.PRM+4(R5),CNTBLK  ;  STORE  THE  CSR  ADDRESS 

MOV  C.PRMt6(R5),CNTBLK+4  ;  STORE  THE  PRIORITY 

CALL  GETURM         ;  GET  THE  UNIBUS  RUN  MASK 


LOOK  FOR  THE  UNIT  TEMPLATE 
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SSFOBJ  -  UPDATE  OBJECT  DEFINITION 


181 

182  000506 

183  000512 
18A  0005U 

185  000522 

186  00052A 

187  00053A 

188  000536 

189  000544 

190  000546 

191  000550 

192  000554 

193  000556 

194  000562 

195  000566 

196  000572 

197  000574 

198  000602 

199  000610 

200  000616 

201  000624 

202  000632 

203  000640 

204  000646 

205  000650 

206  000656 

207  000664 

208  000666 

209  000674 

210  000676 

211  000704 

212  000712 

213  000720 

214  000722 

215  000730 

216  000736 

217  000742 

218  000746 

219  000754 

220  000762 
221 

222 
22': 

224  000764 

225  000774 

226  00:776 

227  0GI006 

228  C01010 

229  001020 
230 


005767 
001011 
032767 
001411 

000404 
032767 
001521 
005000 
004767 
103503 
012700 
012701 
004767 
103501 
012760 
116760 
016760 
016760 
112760 
112760 
032767 
001403 
152760 
032767 
001412 
032767 
001406 
152760 
116760 
032767 
001406 
142760 
156760 
004767 
004767 
062767 
062767 
000207 


000207 
000207 
000207 


OOOOOOG        50$: 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  52$: 


000302 

OOOOOOG 

000013 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002G 

000002 

000001 

OOOOOOG 


55$: 
57$: 


OOOOOOG 

000004 

000006 

000010 

000005 

000012 

OOOOOOG 


70$: 


000100  000005 
OOOOOOG  0000006 

OOOOOOG  OOOOOOG 


000200  000005 
OOOOOOG  000012 
OOOOOOG  OOOOOOG  75$: 


000007  000005 
OOOOOOG  000005 
000060 
OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


77%: 


80$: 


ERRORS 


101$ 
102$ 
103$ 


$TNUM 

52$ 

#00.NAH,$0PRND 

55$ 

#ERR0NA 

55$ 

#O0.NAM,$OPRND 

103$ 

RO 

CHKMUL 

101$ 

#$XXAVL,RO 

#C.LEN,R1 

$RQ8F 

102$  , 

#CS.OBJ,C.STS(RO) 

$TNUM,C.TYP(RO) 

$TNAM,C.NAM(RO) 


IS  THIS  OBJECT  TYPE  ZERO  ? 

IF  NE,  NO  -  NEED  OBJECT  NAME 

ELSE  IS  NAME  PRESENT  ? 

IF  EQ,  NO  -  OK 

ELSE  WARNING 

CONTINUE 

IS  THE  OBJECT  TASK  NAME  PRESENT  ? 

IF  EQ,  NO  -  ERROR 

INDICATE  NO  TEMPLATE  YET 

CHECK  MULTICOPY  TASKNAHE 

IF  CS,  BAD  TASKNAME 

POINT  AT  END  OF  TASK  LISTHEAD 

GET  LENGTH  OF  AN  OBJECT  TEMPLATE 

TRY  TO  ALLOCATE  A  TEMPLATE 

IF  CS,  ALLOCATION  FAILURE 

;  INDICATE  THAT  THIS  IS  AN  OBJECT  TEMPLATE 

STORE  THE  OBJECT  TYPE 

STORE  THE  TASK  NAME 


$TNAMt2,C.NAM+2(R0)  ;  AND  2ND  HALF  OF  NAME 


ERROR$ 
RETURN 
ERROR$ 
RETURN 
ERROR$ 
RETURN 


#2,C.FLG(R0) 

#1,C.CPY(R0) 

#SW.RLU,$SWICH 

70$  , 

#OF.fiLU,C.FLG(R0) 

#00.C0P,$0PRND 

75$ 

#SW.SMC,$SW1CH 

75$  , 

#OF.SMC,C.FLG(R0) 

$COPES,C.CPY(RO) 

*O0.VFY,$OPRND 

77' 

*7,C.FLG(R0) 

$VLVL,C.FLG(R0) 

F I NOB J 

$QINSN 

*O.LENX,$BYTMN 

#O.LENX  $BYTXT 


#ERRMUL 
#ERR8UF 
#ERRNAM 


;  STOh,  THE 
WAS  THE  VEf 
IF  EQ,  NO 


US§  VERIFICATION  2,  NO  FLAGS 

ASSUME  NO  COPIES  SPECIFIED 

RUN  THE  TASK  UNDER  THE  LOGIN  UK  ? 

IF  EQ,  NO  ..  LEAVE  ALONE 

;  ELSE,  FORCE  THE  TASK  TO  RUN  UNDER  THE  LOGIN 

WAS  THE  NUMBER  OF  COPIES  SPECIFIED  ? 

IF  EQ,  NO 

IS  IT  "SINGLE"  COPIES  ? 

IF  EQ,  YES  .   OKAY 

-•  SET  TO  SP,-  '  COPIES  OF  THE  TASK 

,BER  OF  COPIES  TO  SPAWN 

RATION  SPECIFIED  ? 

ASSUME  LEVEL  2 
ELSE, 'CLEAR  OUT  OLD  BITS 
SET  THE  VERIFICATION  LEVEL 
FIND  PLACE  FOR  TEMPLATE 
INSERT  ENTRY  INTO  QUEUE 
UPDATE  MINIMUM  POOL  BYTE  EXTENSION 
AND  CURRENT  BYTE  EXTENSION 


ERROR  IN  MULTICOPY  TASKNAME 

ALLOCATION  FAILURE 

WARNING  -  OBJECT  TASK  NAME  MUST  BE  SPECIFIED 
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*«FILE«MD««SETPR0 


SSSS5SSS 

FFEEEEEEEE 

TTTTTTTTTT 

PPPPPPPP 

RRRRRRRR 

000000 

ssssssss 

t  TTFEEEE 

TTTTTTTTTT 

PPPPPPPP 

RRRRRRRR 

000000 

ss 

El 

PP      PP 

RR      RR 

00      00 

ss 

EE 

PP      PP 

RR      RR 

00      00 

ss 

EE 

PP      PP 

RR      RR 

00      00 

ss 

EE 

PP      PP 

RR      RR 

00      00 

SSS5SS 

EEEEEEEE 

PPPPPPPP 

RRRRRRRR 

00     00 

SSS5SS 

EEEEEEEE 

PPPPPPPP 

RRRRRRRR 

00      00 

SS 

EE 

PP 

RR  RR 

00      00 

ss 

EE 

PP 

RR  RR 

00      00 

SS 

EE 

PP 

RR    RR 

00      00 

ss 

EE 

PP 

RR    RR 

00      00 

SSSSSSSS 

EEEEEEEEEE 

PP 

RR      RR 

000000 

ssssssss 

EEEEEEEEEE 

PP 

RR      RR 

000000 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

lL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

ccTTDDr,    _    ccT    DDnrtrcc    noTiriMQ  MATDn    MH'^    d'^h    <;;ifiirrtAv    ?9-.ltin-RS    OS:?"^ 
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53 
5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
12 
73 
7A 
75 
76 

n 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 

92  000000 

93  000045 

94  000106 

95  000145 

96  000210 

97  000272 
98 

99  000306 
100 
101 
102 

103  000324 

104  000326 


LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEX' 
TEXT.RO 
SPRINT 
PRINT 


.MACRO  ERRORS  TEXT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERl 

.ENDM  EPRINT 

.MCALL  CALLR.SAVRG.RESRG 

**** 
LOCAL  DATA 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


000002 
002 
002 
002 
002 
002 
115 

000014 
115 

000016 


103 
103 
103 
103 
103 
101 

101 


106 
106 
106 
106 
106 
130 


ERRPVC 
ERRDTE 
ERRPAR 
ERRCHN 
ERRPRM 
TXDAT: 


130  TXWND: 


FOUND: 
SCR: 


.NLIST 

BEX 

.ENABL 

LC 

EXSERR 

=  2 

.ASCIZ 

<EXSERR>/CFE  — 

.ASCIZ 

<EXSERR>/CFE  — 

.ASCIZ 

<EXSERR>/CFE  — 

.ASCIZ 

<EXSERR>/CFE  — 

.ASCIZ 

<EXSERR>/CFE  — 

.ASCII 

/MAXIMUM  DATA/ 

TXDATL 

=  .-TXDAT 

.ASCII 

/MAXIMUM  WINDOW/ 

TXWND 1 

-  .-TXWND 

.EVEN 

.LIST  fa 

.BLKW 

.BLKW 

10 

Circuit  not  in  configuration/ 

DTE  not  in  configuration/ 

Missing  parameter:  DTE/ 

Missing  parameter:  CHANNEL/ 

Zero  parameter  ignored:  XVA  for  DLM-XM.XM/ 


FOUND  FLAG 


sFTPwr  -  <;ft  pvr  paramftfrs 
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SETREM  -  SET  REMOTE  NODE 
MACRO  DEFINITIONS 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

65 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 


89 

90 

91 

92 

93 

94 

95 

96 

97  GOOOOO 

98 

99 
100 
101 
102 

103  000000 
104 

105  000000 

106  000002 

107  000004 

108  000010 
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109 


000002 
002 


000000 


000012 


103 


106 


.SBTTL 

MACRO  DEFINITIONS 

.MCALL 

savrg,r;srg 

•  **** 
;  LOCAL 

MACROS 

.MACRO 
MOV 
CALL 
.ENDM 

PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 

.MACRO 

ERRORS  TEXT 

■  THE  ERROR  TEXT  MUST  HAVE  THE  ER 
;  MESSAGE  STRING. 

.IF  DIF 

MOV 

.ENDC 

CALL 

.ENDM 

<TEXT><RO> 
TEXT.RO 

SCFERR 
ERRORS 

.MACRO 

EPRINT  TEXT 

;  PRINT 

TEXT  ON 

ERROR  LUN 

.IF  DIF 

MOV 

.ENDC 

CALL 

.ENDM 

<TEXT><RO> 
TEXT.RO 

SCFER1 
EPRINT 

•  **** 
;  LOCAL 

;  *  *  *  * 

DATA 

■  ERROR 

MESSAGES 

ERRBUF : 

.NLIST 
.ENABL 
EXIERR 
.ASCIZ 
.EVEN 

BEX 
LC 
=  2 
<EXSERR>/CFE  --  B 

;  DEFINE  REMOTE 

TEMPLATE 

C.NAM: 
C.ADD: 
C.LEN=. 

.ASECT 

.=0 

.BLKW 

.BLKU 

.oLKU 

.BLKW 

1 

1             ; 

2 

1 

POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


-  Buffer  allocation  failure/ 


C.LNK 

C.STS 

REMOIE  NODE  NAME  (RAD50) 

REMOTE  NODE  ADDRESS 
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GETDLL   -  GET   DLL    TEMPLATE   POINTERS 


535  0OUO4 

536  OOUIO 

537  001A14 

538  001A20 

539  001A22 

540  00U26 
5A1  00K30 
5A2  0OK3A 
5A5  00U36 
5AA  OOUAO 
5A5  00HA6 
5A6  OOU52 
5A7 

548  00U56 

549  00H60 
550 

551  00U62 
552 

553  001A66 

554  001476 
555 

556 


25$: 


012700  OOOOOOG 

012701  000016 
004767  OOOOOOG 
103422 

010067  176416 
010001 

012702  000007 
005021 
077202 

012760  OOOOOOG  OOOOOOG 

017601  000000 

004767  OOOOOOG 


30$: 

000207 

000167  OOOOOOG        101$: 

102$: 

000167  OOOOOOG 

000001 


MOV  #$XXAVL,RO 

MOV  #F$LEN,R1 

CALL  $RQBF 

BCS  102$ 

MOV  RO.FILPT 

MOV  RO.fil 

MOV  #F$LEN/2,R2 

CLR  (R1)+ 

SOB  R2,25$         , 

MOV  #CS.F1L,C.STS(R0) 

MOV  a(SP),Rl 

CALL  $QINSN 

RESRG  RO 
RETURN 


JHP 


.CONER 


ERROR$  #ERRALL 
JMP     .EXIT 

.END 


POINT  TO  FREE  LIST 

LENGTH  OF  ALLOCATION  IN  BYTES 

REQUEST  CORE  BLOCK 

IF  CS,  ERROR 

SAVE  ADDRESS 

COPY  ADDRESS 

GET  LENGTH 

CLEAR  IT.. 

..OUT 

;  MARK  IT  AS  A  F1L$DF 

GET  ADDRESS  OF  SER$DF 

LINK  IT  AFTER  SER$DF 


SOMETHING'S  WRONG 

ALLOCATION  FAILURE 
THAT'S  ALL,  FOLKS 
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SETROU     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:23 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


CS.MOO 

CS.ROU 

C.ACST 

C.ADD 

C.AHOP 

C.CST 

CHOP 

C.LEN 

C.L2TM 

C.NA 

C.NBEA 

C.RTM 

C.STS 

ERRPNA 

ERRROU 

EXSERR 

E2.BEA 

E2.BRT 

OE.ACO 

OE.AHO 

OE . AMA 

OE.MXC 

OE.MXH 

OE.NN 

OE.RTM 

SCFtRR 

SEACOS 

SEAHOP 

SEAMAX 

SEBEA 

SEBRT 

$MAXC 

SMAXH 

$NN 

SOPRND 

$0PRN2 

$RTM 

SSEROU 

STMLST 


****** 
****** 
000022 
OOOOOA 
000020 
000006 
000010 
000026 
00002A 
OOOOU 
000016 
000012 

**t *♦* 

000036 
000000  R 
000002 


GX 


-  ****** 
=  ****** 

-  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 
~  ****** 

-  ****** 
=  ****** 

-  ****** 
=  ****** 

-  ****** 
=  ****** 
=  ****** 

r  ****** 

-  ****** 

-  ****** 
~  ****** 

000110  RG 

-  «*•*»*  GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

5-138 

5-134 
#4-108 
#4-101 
#4-107 
#4-102 
#4-103 
#4-110 
#4-109 
#4-105 
#4-106 
#4-104 

5-134 
#4-92 
#4-91 
#4-90 

5-175 

5-171 

5-159 

5-163 

5-167 

5-144 

5-140 

5-148 

5-155 

5-184 

5-161 

5-165 

5-169 

5-177 

5-173 

5-146 

5-142 

5-152 

5-140 

5-171 

5-157 
#5-127 

5-128 


*5-161 
5-136 
•5-165 
•5-146 
•5-142 

•  5-173 

•5-169 

5-150 

•5-157 

•5-138 

5-187 

5-184 

4-91 


5-187 


5-153 
5-144 
5-175 


5-150 


•5-152 


4-92 
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•5-153 


•5-177 


5-148 


5-155 


5-159 


5-163 


5-167 
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332 
333 

334 

335 

336 

337 

338 

339 

340 

3A1 

3A2 

3A3 

3AA 

3A5 

3A6  001002 

3A7  001006 

3A8  00101A 

3A9 

350 

351 

352  001016 

353  001022 
35A 

355  00102A 

356  001032 

357  00103A 

358  0010A2 

359  001050 

360  001056 

361  001060 
362 

363  001066 

364  001074 

365  001076 

366  001104 

367  001112 
368 

369  001120 

370  001126 

371  001130 

372  001136 

373  001144 

374  001146 
375 

376  001154 

377 

378  001156 

379 


.SBTTL  SETSTA  -  SET  STATION  PARAMETERS 

♦**  -  SETSTA  -  SET  STATION  PARAMETERS 

INPUT: 

SOPRND  =  OPERANDS  MASK  WORD 

SSWICH  =  SWITCH  MASK  WORD  8  SW.SLT  OPTIONS  BITS 

$HTM    =  HELLO  TIMER 


OUTPUT: 


STATION  FLAGS  ARE  UPDATED 


004567  OOOOOOG        SETSTA:  JSR     R5,$SAVRG 
032767  OOOOOOG  OOOOOOG        BIT     #FL.MTP,$FLAGS 
001460  BEQ     70$ 


SEARCH  FOR  STATIONS 


004767 
103455 

032767 
001415 
052765 
142765 
032767 
001403 
152765 

032767 
001411 
052765 
016765 
052765 

032767 
001412 
142765 
032767 
001403 
152765 

000720 

000207 


OOOOOOG        10$: 
OOOOOOG  OOOOOOG  20$: 


OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 

000006 

OOOOOOG 

000006 

OOOOOOG 

OOOOOOG 

000012 

OOOOOOG 


30$: 


OOOOOOC  OOOOOOG  40$: 


OOOOOOG 
OOOOOOG 


000006 
OOOOOOG 


OOOOOOG  000006 


50$: 
70$: 


CALL 
BCS 

BIT 

BEG) 

BIS 

BICB 

BIT 

BEQ 

BISB 

BIT 
BEQ 
BIS 
MOV 
BIS 

BIT 
BEQ 

Bice 

BIT 
BEQ 
BISB 

BR 

RETURN 


$FNSTA 
70$ 

#0L.STA!OC.STA,$0PRND 

30$ 

#CS.M0D,C.STS(R5) 

*SF.ENA,6(R5) 

*SW.ENA, SSWICH 

30$ 

#SF.ENA,6(R5) 

*0C.HTM,$0PRND 

40$ 

#CS.M0D,C.STS(R5) 

$HTM,12CR5) 

#ST$HTM,C.STS(R5) 

#SW.SEN1SW.SDI,$SWICH 

50$ 

*SF.SER,6(R5) 

#SW.SDI, SSWICH 

50$ 

*SF.SER,6(R5) 

10$ 


SAVE  REGISTERS 

IS  THE  CIRCUIT  MULTIPOINT 

IF  EQ,  NO  ..  LEAVE 


FIND  THE  NEXT  STATION 
IF  CS,  ALL  DONE 

TRIBUTARY  STATE  CHANGED  ? 

IF  EQ,  NO  ..  LEAVE 

INDICATE  THAT  THIS  TEMPLATE  IS  MOD. 

ELSE,  ASSUME  THE  CIRCUIT  IS  NOT  ENABLED 

IS  THE  CIRCUIT  TO  BE  ENABLED  ? 

IF  EQ,  NO 

ELSE,  ENABLE  THE  STATION 

DID  HELLO  TIMER  CHANGE  ? 

IF  EQ,  NO 

INDICATE  THAT  THIS  TEMPLATE  IS  MOD. 

ELSE  SET  IT  UP 

SET  UP  FLAGS 

SERVICE  PARSED  ? 

IF  EQ,  NOPE 

ELSE  ASSUME  SERVICE  ENABLED 

DISABLE  SERVICE  FOR  CIRCUIT  ? 

NO 

DISABLE  SERVICE  FOR  CIRCUIT 

;  NEXT  STATION 
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SETSVC  -  SET  SVC  PARAMETERS 
SSESVC  -  SET  SVC  PARAMETERS 


101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 

112  000112 

113  000112 
1U  000120 

115  000122 

116  000130 

117  000132 

118  000136 

119  000K2 

120  000U4 

121  000152 

122  0001 5A 

123  000162 

124  000164 

125  000170 

126  000172 

127  000174 

128  000200 

129  000206 

130  000210 

131  000216 

132  000220 

133  000226 

134  000230 

135  000236 

136  000240 

137  000246 

138  000250 

139  000256 
140 

141 
142 

143  000260 

144  000262 

145  000270 

146  000272 

147  000300 

148  000302 

149  000310 

150  000312 
151 

152  000520 

153  000326 

154  000330 

155  000336 

156  000342 

157  000344 
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.SBTTL  SSESVC  -  SET  SVC  PARAMETERS 
"♦♦*  -  SSESVC  -  SET  SVC  PARAMETERS 
INPUT: 


SOPRND  =  OPERANDS  PRESENT 


OUTPUT 


THE  SVC  TEMPLATE  FOR  THE  PARSED  CIRCUIT  IS  MODIFIED 


022767 
001406 
032767 
001002 
000167 
012700 
005001 
032767 
001406 
032767 
001002 
000167 
011000 
001002 
000167 
122760 
001370 
022767 
001420 
032767 
001014 
026760 
001354 
032767 
001004 
026760 
001344 


005201 
032767 
001413 
032767 
001404 
052760 
000403 
042760 

032767 
001415 
052760 
012702 
010003 
062705 


OOOOOOG 

OOOOOOG 

000452 
OOOOOOG 

OOOOOOG 

OOOOOOC 

000454 

000364 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


5$: 


SSESVC: 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

10$: 

OOOOOOG  12$: 

0000006 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002G 


CMP 

BEQ 

BIT 

BNE 

JMP 

MOV 

CLR 

BIT 

BEQ 

BIT 

BNE 

JMP 

MOV 

BNE 

JMP 

CMPB 

BNE 

CMP 

BEQ 

BIT 

BNE 

CMP 

BNE 

BIT 

BNE 

CMP 

BNE 


*C0.KNC,$C0MP 

5$ 

#FL.DLM,$FLAGS 

5$ 

80$ 

#$TMLST,RO 

Rl 

#OC.USG,$OPRND 

10$ 


KNOWN  CIRCUITS    ? 

BR    IF    YES 

ELSE    SEE    IF    CICUIT    IS   DLM 

IF   NE,   OK 

IF    EQ,    CAN'T   BE   A  SVC 

POINT   TO   TEMPLATES 

NO   TEMPLATES   FOUND,    YET 

USEAGE   SPECIFIED   7 

IF  EQ,  NO 


#SW.INCISW.OUT,$SWICH  ;  CHECK  FOR  PERMANENT 


,C.STS(R05 


10$ 

102$ 

(R0),RO 

12$ 

75$ 

#CS.SVC 

10$ 

#C0.KNC,$COMP 

15$ 

#WC.CNT,$WILD 

15$  , 

$CNTNM,S$VNAM(RO) 

10$ 

#WC.TRI,$WILD 

$STAN,S$VNAM+2(R0) 
10$ 


IF  NE,  OK 

IF  EQ,  ERROR 

NEXT  TEMPLATE 

IF  NE,  OK 

IF  EQ,  END  OF  LIST 

IS  THIS  A  SVC  ? 
IF  NE,  NO 
KNOWN  CIRCUITS  ? 
IF  ED,  UPDATE  TEMPLATE 
WILDCARD  CONTROLLERS? 
IF  NE,  YES 

;  ELSE  COMPARE  NAMES 
IF  NE,  NOT  THIS  TEMPLATE 
WILDCARD  TRIBUTARIES? 
IF  NE,  YES 

;  COMPARE  PART  2 
IF  NE,  KEEP  LOOKING 


found  one,  so  process  its  parameters 


15$: 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000002  OOOOOOG 

000002  OOOOOOG  20$ 

OOOOOOG  OOOOOOG  30$ 

OOOOOOG  OOOOOOG  35$ 
OOOOOOG 

OOOOOOG 


INC 

BIT 

BEQ 

BIT 

BEQ 

BIS 

BR 

BIC 

BIT 
BEQ 
BIS 
MOV 
MOV 
ADD 


Rl 

#OC.USG 

30$ 

#SW.INC 

20$ 

#SF$INC 

30$ 

#SF$INC 

#0C.NUM 

40$ 

*SV$DTE 

#$DTE,R 

R0,R3 

*S$VDTE 


;  INCREMENT  FOUND  COUNT 
,$OPRND  ;  USEAGE  SPECIFIED  ? 

;  IF  EQ,  NO 
,1SW1CH  ;  NEW  USAGE  =  INCOMING  ? 

;  IF  EQ,  NO  -  GOTTA  BE  OUTGOING 
,S$VFLG(RO)  ;  MAKE  IT  INCOMING 

;  GO  PROCESS  DTE 
,S$VFLG(RO)  ;  MAKE  IT  OUTGOING 


,$OPRND  ;  DTE  ADDRESS  ("NUMBER")? 

;  IF  EQ,  NOPE 

.C.STS(ROi  ;  REMEMBER  DTE  NUMBER  PRESENT 

J       ;  POINT  TO  PARSED  STRING 

;  COPY  TEMPLATE  POINTER 

R3      ;  POINT  TO  TARGET  FIELD 


SETSVC  -  SET  SVC  PARAMETERS 
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SETUNT  - 
SSEUNT  - 

2A2 

2A5 

2A4 

2^.5 

2A6 

247 

2A8 

2'!,9 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

27o 

271 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 
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SET  UNIT  PARAMETERS 


♦♦♦  -  SETSTA  -  SET  STATION  PARAMETERS,  IF  ANY 


000564 
000564 
000572 
000574 
000602 
000604 


000610 
000612 
000616 
000620 


000622 
000626 


032767 
001447 
032767 
001043 
012700 


010005 
004767 
103435 
010500 


004767 
103770 


000630  052765 


000636 
000644 
000646 


000654 
000662 
000664 


000672 
000700 
000702 

000710 

000712 


032767 

001403 
116765 


032767 
001403 
116765 


INPUTS: 

SOPRND   =  OPERANDS  MASK   WORD 


OUTPUT: 


032767 
001403 
116765 

000744 

000207 


OOOOOOC  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  000007 

OOOOOOG  OOOOOOG 
OOOOOOG  000010 

OOOOOOG  OOOOOOG 
OOOOOOG  000005 


SETSTA: 


STATIONS  MODIFIED    IF   NEEDED 


BIT  *<OC.CST!OC.TRI!OC.APR>, 

BEQ  60$ 

BIT  *OL.SEC,$OPRND 

BNE  60$ 

MOV  #$TMLST,RO 


SEARCH   FOR   STATIONS 

io$ 


MOV 
CALL 
BCS 
MOV 


R0,R5 
.FNSLT 
60$ 
R5,R0 


NOW  LOOK  FOR  STATIONS 


J0$: 


CALL 
BCS 


$FNSTA 
10$ 


30$:    BIS     *CS.M0D,C.STS(R5) 
TRIBUTARY  COST 


BIT 
BEQ 

Move 

#OC.CST,$OPRND 

35$ 

$COST,7CR5) 

;  ACTIVE  RATIO 

55$:    BIT 
BEQ 

Move 

#OC.APR,$OPRND 

37$ 

$APR,10(R5) 

;  TRIBUTARY  ADDRESS 

57$:    BIT 
BEQ 

Move 

#0C.TRI,$OPRND 

40$ 

$STADR,5(R5) 

40$:    BR 

20$ 

60$:    RETURN 

$OPRND;  ANY  STATION  INFORMATION  PRESENT 
IF  EQ,  NO  -  LEAVE 
IS  IT  REALLY  STATION  INFORMATION? 
IF  NE,  NO— MUX  MULTIPT  CSRS  FOR  LINE 
POINT  TO  START  OF  TEMPLATES 


COPY  LAST  TEMPLATE  ADDRESS 
FIND  THE  NEXT  SLT  ADDRESS 
IF  CS,  NO  MORE 
SAVE  THE  TEMPLATE  ADDRESS 


FIND  NEXT  STATION 

IF  CS,  NO  MORE  STATIONS  ON  THIS  LINE 

ELSE,  INDICATE  THAT  THIS  TEMPLATE  IS  MODIFIED 


HAS  THE  COST  CHANGED  ? 

IF  EQ,  NO 

ELSE,  CHANGE  THE  COST 


HAS  THE  APR  CHANGED  ? 

IF  EQ,  NO 

ELSE,  STORE  STATION  COST 


HAS  THE  TRIBUTARY  ADDRESS  CHANGED  ? 

IF  EQ,  NO 

ELSE,  CHANGE  THE  TRIBUTARY  ADDRESS 

LOOK  FOR  NEXT  STATION 
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SETX2P     CREATED  BY  MACRO  ON  29-JUN-85  AT  05:24 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


J  10 

PAGE  2 

CREF   04.00 


EPRINT 

#A-76 

ERROR! 

#4-65 

PRINT 

#4-60 

*«F!LE*MD««SETX3P 


K  10 


SHOBJ  -  LIST  OBJECT  CHARACTERIS  MACRO  V05.03b  Saturday  29-Jun-85  05:25  Page  3 
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1 
2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  SH08J  -  LIST  OBJECT  CHARACTERISTICS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SHOW  OBJECT  DEFAULTS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  U-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Mkro/RSX   Vl.O 


OF  ITS 
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SI 
St 


167  000773 

168  001050 

169  001121 

170  001173 

171  001223 
172 

173 
174 
175 
176 

177  001242 

178  001302 
179 

180 
181 

182  001326 

183  001330 

184  001333 

185  001343 

186  001351 

187  001355 

188  001367 

189  001400 

190  001410 
191 

192  001420 

193  001427 
194 

195  001437 

196  001457 

197  001471 

198  001520 

199  001532 

200  001544 
201 

202 

203  001550 

204  001554 

205  001560 

206  001564 

207  001570 

208  001574 

209  001600 

210  001604 
211 

212  001610 

213  001614 

214  001620 
215 

216  001624 

217  001630 

218  001634 

219  001640 
220 

221  001642 

222  001646 

223  001652 


040 
040 
040 
040 
054 


000002 
002 


015 
054 


040 
040 
040 
040 
040 


103 


012 
040 


000000  000000 


000003  001544' 


000172'  001736' 

000224'  001746' 

000266'  002030' 
000000 

000420'  001754' 

000437'  001760' 

000504'  002002' 


117  SVCM2 

115  SVCM3 

115  SVCM4 
103  5VCM5 

116  SVCOl 


.ASCIZ  /  Owner  =  Executor,  Type  =  X.25,  Usage  =  XVA/ 

.ASCIZ  /  Maximum  data  =  XM,  Maximum  window  =  XH/ 

.ASCIZ  /  Maximum  recalls  =  XM,  Recall  timer  =  XM/ 

.ASCII  /  Cost  =  XM,  State  =  XVA/ 

.ASCIZ  /,  Number  =  X5R/ 


106 


ERROR  STRINGS 

ERRNST:  .ASCII  "<EX$ERR>/CFE 
NSTLIN:  .BLK8   20. 


No  station  template  for  / 


REPLACEMENT  STRINGS 

STRING  ON, 

STRING  OFF, 

STRING  EXEC, 

STRING  NONE, 

STRING  X25, 

STRING  SERV, 

STRING  PERM, 

STRING  OUTG, 

STRING  INCM, 

STRING  ENA8, 

STRING  DSA8, 


040  TRI8:  .ASCII 

TRIVAL:  .8LKB 

115  APR: 

APRVAL:  .BLK8 

SCRACH:  .BLKB 

HWP:  .8LKB 

.EVEN 


PR0T8L:  PRO 

.WORD 

PRO 

PRO 

PRO 

PRO 

PRO 

.WORD 

DDCTBL:  PRO 
PRO 
PRO 

.WORD 
.WORD 
.WORD 
.WORD 


TRNTBL: 


PVCTBL:  .WORD 
.WORD 
.WORD 


<0n> 

<Off> 

<Executor> 

<(none)> 

<X.25> 

<X25-Seruer> 

<Permanent> 

<Outgoing> 

<Incoming> 

<Enabled> 
<Disabled> 


<15><12>/  Tributary  =  / 
10. 
ASCII  /.  Multi-point  Actiue  =  / 
10. 

10.  ;  SCRATCH  BUFFER 

3  ;  ODM  NAME  IF  HARDWARE  PROTOCOL 


<None> 

0,0 

<8isync> 

<SDLC> 

<X.25> 

<Ethernet> 

3)  HWP 

<DDCMP  Point> 
<DDCMP  Control> 
<DDCMP  Tributary> 

TYPMSG,TyPBLK 
HELMSG,HELBLK 
STAMSG,STABLK 
0 

PVCMSG,PVCBLK 
PVCMS2,PVCBL2 
PVCMS3,PVCBL3 


1  DDCMP 


7  HARDWARE  PROTOCOL 


PRINT  THE  CIRCUIT  TYPE  AND  OWNER 
PRINT  THE  HELLO  AND  LISTEN  TIMERS 
STATE 


;  PVC  FORMATTING  TABLE 
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SHOPVC    -   SHOW  PERMANENT   VIRTUAL    CIRCUIT 


737 
738 
739 
7^0 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 

753  004360 

754  004360 

755  004366 

756  004370 

757  004376 

758  004400 

759  004406 

760  004410 

761  004416 

762  004420 

763  004424 

764  004432 

765  004434 

766  004442 


.S8TTL  SHOPVC  -  SHOW  PERMANENT  VIRTUAL  CIRCUIT 
'•»  SHOPVC  -  SHOW  PERMANENT  VIRTUAL  CIRCUIT 
INPUTS 


OUTPUT 


R5  =  ADDRESS  OF  DTESDF  TEMPLATE 
R4  =  ADDRESS  OF  PVC$DF  TEMPLATE 
R3  =  ADDRESS  OF  X3P$DF  TEMPLATE 

SWITCHED  VIRTUAL  CIRCUIT  CHARACTERISTICS  DISPLAYED. 


REGISTERS 

RO  -  R3  ARE  CORRUPTED. 


022767 
001436 
026764 
001010 
032767 
001006 
026764 
001422 
000167 
032767 
001004 
126764 
001366 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 


SHOPVC: 


000612 
OOOOOOG 


10$: 
OOOOOOG  15$: 


OOOOOOG  000002G 


767  004444 

032767 

OOOOOOG 

OOOOOOG  17$: 

768  004452 

001004 

769  004454 

126764 

OOOOOOG 

000003G 

770  004462 

001356 

771  004464 

012767 

015355 

OOOOOOG  20$; 

772  004472 

116467 

000002G 

OOOOOOG 

773  004500 

116467 

000003G 

OOOOOOG 

774  004506 

012702 

001754" 

775  004512 

026427 

OOOOOOG 

015355 

776  004520 

001037 

777  004522 

112767 

000054 

174007 

778  004530 

005067 

175132 

779  004534 

032767 

OOOOOOG 

OOOOOOG 

780  004542 

001004 

781  004544 

032767 

OOOOOOC 

OOOOOOG 

782  004552 

001722 

783  004554 

105067 

173757 

25$: 

784  004560 

012767 

000707' 

175100 

785  004566 

012701 

000406' 

78l  004572 

105067 

173450 

787  004576 

016422 

OOOOOOG 

788  004602 

116422 

000002G 

789  004606 

105022 

790  004610 

116422 

000003G 

791  004614 

105022 

792  004616 

000410 

793 

CMP 

BEQ 

CMP 

BNE 

BIT 

BNE 

CMP 

BEQ 

JMP 

BIT 

BNE 

CMPS 

BNE 

BIT 

BNE 

CMP8 

BNE 

MOV 

MOVB 

M0V8 

MOV 

CMP 

BNE 

MOVB 

CLR 

BIT 

BNE 

BIT 

BEQ 

CLRB 

MOV 

MOV 

CLRB 

MOV 

MOVB 

CLRB 

MOVB 

CLRB 

BR 


*CO.KNC,$COMP 

20$  ; 

$CIfijn,P$VNAM(R4) 

10$ 

#FL.DLM,$FLAGS 

15$ 


KNOWN  CIRCUITS  ? 

IF  EQ.YES 

;  ELSE  COMPARE  NAMES 

IF  NE,  NO  MATCH 

DATA  LINK  MAPPING  ? 
,  IF  YES,  HAVE  TO  DO  WILDCARDS 
$CIRJDt2,P$VNAM+5(R4)  ;  ELSE  COMPARE  HIGH  ORDER 
20$  ;  BR  IF  THEY  MATCH 

120$ 

#WC.CNT,$WILD   ;  WILDCARD  CONTROLLERS? 
1 7S  *  BR  IF  YES 

$CNTNM,P$VNAMt2(R4)  ;  ELSE  DO  TRIBS  MATCH  ? 
10$  ;  IF  NE,  NOT  THIS  ONE 

#WC.TRI,$W1LD   ;  WILDCARD  TRIBUTARIES? 
20$  ;  BR  IF  YES 

$STAN,P$VNAM+3(R4)  ;  ELSE,  DO  TRIBS  MATCH  ? 
10$  ;  IF  NE,  NOPE 

#*RDLM,$DVNAM   ;  ENSURE  DDM  NAME  CORRECT 
P$VNAM+2(R4),$CNTNM  ;  IN  CASE  KNOWN  CIRCUITS 
P$VNAM+3{R4),$STAN  ;  SET  UP  FOR  STATION  SCAN 
#PVC6LK,R2      ;  POINT  TO  ARGUMENT  BLOCK 
P$V0WN(R4),**RDLM  ;  DATA  LINK  MAPPING  ? 

IF  NE,  NO 

ASSUME  NOT  OLM 


30$ 

*<',>, PVCOl 

PVCSW 

#FL.DLM,$FLAGS 

25$ 


DATA  LINK  MAPPING  SYLE  CIRCUIT  ID? 

IF  NE,  YES  -  OK 
#WC.CNT!WC.TRI,$WILD  ;  ELSE,  WILDCARDS  ? 
10$  ;  IF  EQ,  HE  WANTS  "DLM",  NOT  "DLM-0.0" 

PVCOl  ;  DON'T  PRINT  COUNTER  TIMER  FOR  DLM  PVC 

#PVCMS6, PVCSW   ;  PRINT  COST,  HELLO  TIMER  FOR  DLM 
*FMTDLM,R1      ;  FORMAT  DLM  STYLE  ID  STRING 
SERMSG         ;  SUPPRESS  SERVICE  PARAMETER 
P$VNAM(R4),(R2)+  ;  PROCESS  ID 
P$VNAM+2(R4),(R2)+  ;  CONTROLLER 
(R2)+  ;  CLEAR  HI  BYTE 

P$VNAM*-3(R4),(R2)+  ;  TRIB  NUMBER 
(R2)+  ;  NIX  HI  BYTE 

40$  ;  JOIN  COMMON  CODE 
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1 
2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE   SHOEXE  -  LIST  EXECUTOR  OPTIONS 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1984,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 
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SHOEXE  -  LIST  EXECUTOR  OPTIONS 
Symbol  table 


i   15 
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ADDMSG 

000332R 

c.us 

000010 

HEADR 

ADDMS2 

000364R 

C.LST 

000021 

HOSMSG 

ATYP 

00U^2R 

C.L2TM 

000024 

HSTMSG 

CD.LEN= 

000022 

C.NA 

OOOOH 

HSTMS2 

CS.DEC= 

****** 

GX 

C.NAM 

OOOOOA 

HSTNAM 

CS.FEA= 

»•**** 

GX 

C.NBEA 

000016 

IDMSG 

CS.LLC= 

*•***« 

GX 

C.NOC 

000006 

MSGBLK 

CS.NOD= 

4  *  *  *  «  t 

GX 

C.NID 

000010 

NAMMSG 

CS.REM= 

**  »* t * 

GX 

C.NUM 

000052 

NF$ACC= 

CS.ROU= 

»  ♦  t  **» 

GX 

C.OUTT 

000013 

NF$EVT= 

CS.THI: 

•  **■•** 

GX 

CPRM  = 

.*«»♦»  GX 

NF.ACC= 

CS.TLO= 

*•*'*** 

GX 

CRETE 

000015 

NF.SCP= 

C.ACST 

000022 

CRTM 

000012 

NF.END= 

C.ADO 

OOOOOA 

CSEG 

000004 

NF.EVT= 

C.AHOP 

000020 

C.STS  = 

«*•«•*  GX 

NF.LLI= 

C.CST 

000006 

DELMSG 

001303R 

NF.LV2= 

C.DELF 

000016 

ECLSEG 

00061 3R 

NF.SLI= 

C.DELW 

000017 

ERRDEC 

000074R 

NF.SMC= 

CHOP 

000010 

ERRECL 

000037R 

NF.SWP= 

C.HOS 

00005A 

ERRNOD 

000124R 

NM$ARA= 

C.INAC 

OOOOU 

ERRROU 

000157R 

NM$N0D= 

C.INCT 

000012 

ERRXPT 

000002R 

NT$AKD= 

C.IPL 

000020 

EX$ERR= 

000002 

NT$AKJ= 

C.LEN  - 

000026 

.  ABS. 

000056 

000 

(RW,I,GBL,ABS,0VR) 

0032Ti 

001 

(RW,I,LCL,REL,CON) 

$$$5TR 

OOOO'iO 

002 

(R0,D,L 

CCREL.CON) 

Errors 

detectec 

: 

0 

•••  Assembler  statistics 

Work   f 

ile  reads 

0 

Work   f 

1 le  writes 

0 
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00021 5R 

000434R 

000351R 

000A06R 

00042';r 

000264R 

00U60R 

0003UR 

100000 

040000 

000001 

000040 

000200 

000002 

000004 

000100 

000400 

000020 

000010 

176000 

001777 

000020 

000022 


NT$CC  = 

000016 

RETMSG 

001352R 

NT$CON= 

000000 

ROUMSG 

000646R 

NT$CTL= 

000000 

ROUTMP 

001456R 

NT$DAT= 

000002 

R02MSG 

001046R 

NT$DC  = 

000012 

SEGSIZ 

003056R 

NT$D1S= 

000014 

SUBBA 

001154R 

NT$DLS= 

000006 

SUBBA2 

001 20 1 R 

NT$1LS= 

000010 

TEMP 

OOOOOOR 

NT$IMS= 

000002 

TIMMSG 

001230R 

NT$]Nr= 

000004 

VFYCOM 

000564R 

NT$RET= 

000032 

VFYMSG 

000516R 

NT$ROU= 

000024 

$BUFF  ^ 

**»»»♦  GX 

NT$RTR= 

000030 

$CFERR= 

•♦»»♦♦  GX 

NT$TSP= 

000026 

$CNFIG= 

»*♦»»»  GX 

N$$ACK= 

000011 

$EDMSG= 

******   GX 

N$$HDR= 

000007 

$GTBUF= 

»»««**  GX 

N$$0VR= 

000022 

$PR1NT= 

******   GX 

OFF 

001432R 

$PSIPT= 

*»*«*♦  GX 

PRINT 

002744'^ 

$RDBS2= 

******   GX 

PUTADR 

0027'2R 

SSHEXE 

001500RG 

PUTHST 

003104R 

$TMLST= 

******   GX 

P$STHI= 

*»»«♦♦  GX 

$$$   = 

000023R 

P$STL0= 

*»«»*«  GX 

$$$L  = 

000015 

Size  of  Kork  tile: 
Size  of  core  pool 


9739  Words   (  39  Pages) 
14440_Words  (  55  Pages) 


Operating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:14.55 
SY:SHOEXE.V2,C132,134]SHOEXE/CR/-SP=SV:[l,1]RSXMCM.SML/ML,r 


30,110]NETL]B/ML,C132,10]SHOEXE 


002 


SHOEXE 


CREATED  BY  MACRO  ON  29-JUN-85  AT  05:26 
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^5l^6 


liii  001 75A 
3a;  001736 
II,',  001740 

345  001742 

346  001750 

347  001752 

348  001760 

349  001762 

350  001770 

351  001772 

352  001774 

353  002002 

354  002004 

355  002012 

356  002014 

357  002022 
35?  002024 

359  002032 

360  002036 

361  002042 
362 

363  002044 


010500 
011505 
001441 
122765 
001411 
032767 
001431 
122765 
001743 
0006"'5 
032767 
001410 
032767 
001004 
026567 
001344 
016567 
004767 
004767 
000734 

000207 


30$: 

OOOOOOG  OOOOOOG  32$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  33$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  35$: 

000222 

000004 

40$: 


MOV  R5.R0 

MOV  (R5),R5 

BEQ  40$  , 

CMP8  #CS.UNT,C.STS(R5) 

BEQ  33$ 

BIT  #WC.CNT,$U1LD 

BEQ  40$  , 

CMP8  #CS.CNT,C.STS(R5) 

BEQ  25$ 

BR  10$ 

BIT  *FL.MUX,$FLAGS 

BEQ  35$ 

BIT  *WC.UNT,$WILD 

BNE  35$ 

CMP  C.PRM(R5),$UNTNM 

BNE  30$ 

MOV  C.PRM(R5),$UNTNM 

CALL  GETUNT 

CALL  DISPLV 

BR  30$ 

RETURN 


SAVE  CURRENT  TEMPLATE 
GET  NEXT  TEMPLATE 
IF  EO.  END  OF  TEMPLATES 
;  IS  THIS  A  UNIT  TEMPLATE  ? 
IF  EQ,  VES 
MORE  CONTROLLERS  ? 
IF  EQ,  NO  ..  DISPLAYED  ALREADY 
;  ELSE,  IS  IT  A  CONTROLLER  TEMPLATE 
IF  EQ,  YES 

ELSE,  GET  NEXT  DEVICE 
IS  THIS  A  MUX  DEVICE  ? 
IF  EQ,  NO  ..  MUST  BE  RIGHT  UNIT 
ALL  UNITS  ? 
IF  NE,  YES 

:  ELSE,  IS  THIS  THE  RIGHT  UNIT  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
;  STORE  THE  UNIT  NUMBER 
GET  THE  UNIT  CHARACTERISTICS 
DISPLAY  THE  CHARACTERISTICS 
AND  LOOK  FOR  NEXT  UNIT 
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232 
233 

23' 
235 
236 
237 
238 
239 
2^.0 
2AT 
242 
243 

244  001022 

245  001022 

246  001026 

247  001030 

248  001032 

249  001034 

250  001042 

251  001044 

252  001052 

253  001054 
254 


.SBTTL   FINOBJ  -  FIND  NEXT  OBJECT  IN  SORTED  LIST 

*•*  -  FINOBJ  -  FIND  NEXT  OBJECT  IN  SORTED  LIST 

INPUTS: 

RO  =  TEMPLATE  TO  BE  INSERTED 

OUTPUTS: 

R1  =  ADDRESS  OF  TEMPLATE  TO  PRECEED  CURRENT  TEMPLATE 


012702 
010201 
011202 
001410 
122762 
001371 
126062 
103365 
000207 


OOOOOOG 


FINOBJ: 
10$: 


OOOOOOG  OOOOOOG 
000004  000004 


20$: 


MOV  #$TMLST,R2 

MOV  R2,R1 

MOV  (R2),R2 

BEQ  20$ 

CMPB  /'CS.0BJ,C.STS(R2) 

BNE  iO$ 

CMPB  C.TYP(R0),C.TYP(R2) 

unlS  10$ 

RETURN 


GET  START  ADDRESS  OF  TEMPLATES 
SAVE  ADDRESS  OF  PREVIOUS 
GET  NEXT  TEMPLATE  IN  LIST 
IF  EQ,  END  OF  LIST 
IS  THIS  A  OBJECT  TEMPLATE  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
ELSE,  DOES  TEMPLATE  GO  HERE  ? 
IF  HIS,  NO  ..  KEEP  LOOKING 
ELSE,  OKAY 
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SETPVC  -  SET  PVC  PARAMETERS 
tSEPVC  -  SET  PVC  PARAMETERS 


106 

107 

108 

109 

110 

111 

112 

115 

1H 

115 

116 

117 

118  000346 

119 

120 

121 

122  000346 

123  000352 

124  000360 

125  000362 

126  000370 

127  000372 

128  000376 

129  000404 

130  000406 

131  000412 

132  000416 

133  000422 

134  000426 

135  000430 

136  000434 

137  000442 

138  000450 

139  000452 

140  000454 

141  000460 

142  000464 
143 

144 
145 

146  000504 

147  000506 
148 

149 
150 

151  000510 

152  000514 

153  000516 

154  000520 

155  000522 

156  000530 

157  000532 

158  000540 

159  000542 

160  000550 

161  000552 

162  000560 
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.SBTTL 

'«♦•  -  SSEPVC 

INPUT; 


SSEPVC  -  SET  PVC  PARAMETERS 
-  SET  PVC  PARAMETERS 


SOPRND  =  OPERANDS  PRESENT 

OUTPUT: 

THE  PVC  TEMPLATE  FOR  THE  PARSED  CIRCUIT  IS  MODIFIED 
IF  THERE  IS  NO  PVC  TEMPLATE,  ONE  IS  ALLOCATED. 


SSEPVC: 


ALLOCATE  A  PVC  TEMPLATE  IF  NECESSARY 

005067 

177752 

CLR 

FOUND 

NO  TEMPLATES  FOUND,  YET 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.CRE,$FLAGS  , 

CREATING  A  NEW  PVC  ? 

001453 

BEQ 

10S 

IF  EQ,  NO 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#0C. DTE, SOPRND 

CHECK  FOR  DTE  ADDRESS  IN  COMM«ND  LINE 

001002 

BNE 

IS 

IF  NE,  OK 

000167 

000526 

J  MP 

103$ 

ELSE  ERROR 

032767 

OOOOOOG 

OOOOOOG 

S: 

BIT 

#OC.CHN, SOPRND 

CHECK  FOR  CHANNEL  NUMBER  IN  COMMAND  LINE 

001002 

BNE 

2S 

IF  NE,  OK 

000167 

000504 

JHP 

100$ 

ELSE  ERROR 

012700 

OOOOOOG 

2S: 

MOV 

*SXXAVL,RO 

POINT  TO  FREE  LIST 

012701 

OOOOOOG 

MOV 

#P$VLEN,R1 

LENGTH  OF  PVC  TEMPLATE 

004767 

OOOOOOG 

CALL 

$RQBF 

REQUEST  CORE  BLOCK 

103002 

BCC 

3$ 

IF  CC,  OK 

000167 

000476 

JMP 

104$ 

ELSE  ALLOCATION  FAILURE 

062767 

OOOOOOC 

OOOOOOG 

5$: 

ADD 

#CSLENXtXSLENX,$BYTMN  ;  UPDATE  BYTE  MINIMUM 

062767 

OOOOOOC 

OOOOOOG 

ADD 

#C$LENX+X$LENX,SBYTXT  ;  UPDATE  BYTE  ALLOCATION 

010001 

MOV 

R0,R1 

COPY  ADDRESS 

005721 

TST 

(Rl)  + 

SKIP  LINK  WORD 

012721 

OOOOOOG 

MOV 

#CS.PVC,(R1)t 

MARK  AS  PVC  TEMPLATE 

016721 

OOOOOOG 

MOV 

SCIRID,(R1)t 

STUFF  CIRCUIT  ID 

016721 

000002G 

MOV 

SCIRID+2,(R1)t 

000006 

.REPT 
CLR 
.ENDR 
CLR 

6 
(R1)  + 

CLEAR  REMAINDER 

005001 

Rl 

NOTHING  TO  UNLINK  FOR  DTE  CHANGE 

000452 

;  LOOK 

BR 
FOR  PVC 

20$ 
TEMPLATE 

JOIN  COMMON  CODE 

012700 

OOOOOOG 

iO$: 

MOV 

#SPSIPT,R0 

POINT  TO  PSI  TEMPLATES 

010001 

15S: 

MOV 

R0.R1 

SAVE  PREVIOUS  ADDRESS 

011000 

MOV 

(r6),ro 

NEXT  TEMPLATE 

001561 

BEQ 

75$ 

•  IF  EQ,  END  OF  LIST 

122760 

OOOOOOG 

OOOOOOG 

CMPB 

#CS.PVC,C.STS(R0 

5;  IS  THIS  A  PVC  ? 

001371 

BNE 

15$ 

■  IF  NE,  NO 

022767 

OOOOOOG 

OOOOOOG 

CMP 

#C0.KNC,SCOMP 

;  KNOWN  CIRCUITS  ? 

001435 

BEQ 

20$ 

;  IF  EQ,  UPDATE  TEMPLATE 

026760 

OOOOOOG 

OOOOOOG 

CMP 

$CIRID,P$VNAM(R0 

)  ;  ELSE  COMPARE  NAMES 

001361 

BNE 

15$ 

;  IF  NE,  NOT  THIS  TEMPLATE 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.DLM,$FLAGS 

;  DATA  LINK  MAPPING  ? 

001005 

BNE 

17$ 

;  IF  NE,  YES  -  GO  PROCESS  WILDCARDS 
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MACRO  DEFINITIONS 

.PSECT 
DEFINE  SERSDF  TEMPLATE 


110  0000A2 

111 

112 

115 

1U  000012 

115 

000000 

116  000000 

117  000002 

118  000004 

119  000006 

120  000010 

121  000012 

122  000022 

123  000032 

124  000034 

125  000050 

126  000054 

127 

000056 

128  000042 

129 

130 

131 

132 

000001 

133 

000002 

134 

000004 

135 

000010 

136 

000020 

137 

000040 

138 

000100 

139 

000200 

140 

000400 

141 

142 

143 

144 

145  000056 

146 

000000 

147  000000 

148  000002 

149  000004 

150  000006 

151  000010 

152  000012 

153  000014 

154 

000016 

155  0000^.2 

156 

157 

158 

159 

160 

161 

000036 

162 

163  000016 

164 

000000 

165  000000 

166  000002 

SSFLG 
S$ADD 
S$HST 
SSHAD 
SSCIR 
SSDEV 
S$PSS 
S$DPA 
SSDPC 
S$LEN= 


.ASECT 

.  -  0 

.BLKU 

.BLKW 

.BLKU 

.BLKW 

.BLKU 

.BLKW 

.BLKU 

.BLKW 

.BLKW 

.BLKU 

.BLKW 

.PSECT 


Flags  definitions: 

SF.ADD  =  1 
SF.HST  =  2 
SF.HAD  =  4 
SF.CIR  =  10 
SF.DEV  =  20 
SF.PSS  =  40 
SF.DPA  =  100 
SF.OPC  =  200 
SF.PH3  =  400 


Define  FILSDF  template 


.ASECT 

.  =  0 

.BLKU 

.BLKU 

.BLKU 

.BLKU 

.BLKU 

.BLKU 

.BLKU 


F$SEC: 

FSTER: 

F$LD: 

F$D1A: 

F$DUM: 

F$LEN=. 


.PSECT 


Define  file  descriptor  offsets 


MXFSP   =  30. 

.ASECT 

.  =  0 
F.LNK:   .BLKU   1 
F.CNT:   .BLKU   1 


C.LNK 
C.FLG 

option  flags 
Target  node  address 
Host  node  address 
Hardware  address 
Service  circuit 
Service  device 
Service  password 
Dump  address 
Dump  count 


(16  bit  node  address) 
(16  bit  node  address) 
CRAD50) 

(extended  RAD50) 
(extended  RAD50) 
(RAD50) 

(octal  binary) 
(in  k  bytes) 


Target  address  specified 
Host  address  specified 
Hardware  address  specified 
Service  circuit  specified 
Service  device  specified 
Service  password  specified 
Dump  address  specified 
Dump  count  specified 
Service  node  type  is  Phase  3 


Link 

Flags 

Secondary  loader  file  name 

Tertiary  loader  file  name 

Load  file  name 

Diagnostics  file  name 

Dump  fi le  name 


Max  filespec  length 


;  Link  word 
;  Use  count 
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Symbol   table 

RN.SPA=: 

RN.TLO= 

RN.XXX= 

R.LENX= 

SERPT 

SETBIT 

SETFIL 

SETWOR 

SF.ADD= 

SF.CIR= 

SF.DEV= 

SF.DPA= 

SF.DPC= 

SF.HAD= 

SF.HST= 

SF.PH3= 

SF.PSS= 

S$ADD 

S$CIR 

SSDEV 


«»•   Assembler   statistics 

Work      file     reads:  0 

Work      file   writes:  0 

Size  of   work   file:  8546  Words      C   34  Pages) 

Size  of  core  pool:  9992  Words      (   38  Pages) 

Operating      system:  RSX-11M/PLUS 

DB2:SETRErV'!'T3,[?^2?134isETREM/CR/-SP=DB2:[1,nRSXMCM.SML/f1U[130,110]NETLIB/ML,[132,10]SETREM 


ALCFIL 

001U4R 

FSSEC 

000004 

CS.DEC= 

»•••«♦  GX 

F$TER 

000006 

CS.FIL= 

»•♦•»•  GX 

F.CNT 

000002 

CS.REM= 

»»«»»♦  GX 

F.DEV 

000005 

CS.SER= 

»«****  GX 

F.LEN  = 

000043 

C.ADD 

000010 

F.LNK 

000000 

C.LEN  = 

000012 

GETBYT 

00-216R 

C.NAM 

000004 

GETDLL 

00-240R 

C.STS  = 

»*•**»  GX 

MXFSP  = 

000036 

DEAFIL 

001000R 

RN.DCT= 

**♦»•»  GX 

DTBL 

000402R 

RN.D1A= 

•♦«**»  GX 

ERRALL= 

».♦**»  GX 

RN.DMP= 

««»**•  GX 

ERRBUF 

OOOOOOR 

RN.DPA= 

«***•*  GX 

EX$ERR= 

000002 

RN.HAR= 

*»*»♦*  GX 

FILPT 

0000A4R 

RN.H0S= 

♦«****  GX 

FINREM 

000276R 

RN.LOD= 

******  GX 

FNDFIL 

001074R 

RN.NAM= 

******  GX 

F$OIA 

000012 

RN.SCI= 

******  GX 

FSDUM 

OOOOU 

RN.SDV= 

******  GX 

F$LD 

000010 

RN.SLO= 

******  GX 

F$LEN  = 

000016 

RN.SNV= 

******  GX 

.  ABS. 

000056    000 

(RW,I,GBL,ABS,OVR 

001502    001 

(RW,I,LCL,REL,CON 

Errors 

detected:  0 

******  GX 

S$DPA 

000050 

$RNDIA= 

******  GX 

******  GX 

S$DPC 

000054 

|rndmp= 

♦**«**  GX 

******  GX 

S$FLG 

000004 

$RNDPA= 

******  GX 

*»»***  GX 

SSHAD 

000012 

$RNHAR= 

*«*♦♦*  GX 

000042R 

SSHST 

000010 

$RNHOS= 

******  GX 

000662R 

S$LEN  = 

000056 

$RNLOD= 

******  GX 

000702R 

S$PSS 

000034 

$RNSCI= 

******  GX 

000640R 

S.LENX= 

****** 

GX 

$RNSDV= 

******  GX 

000001 

UPDDLL 

000332R 

$RNSLO= 

******  GX 

000010 

$BYTMN= 

****** 

GX 

$RNSPA= 

******  GX 

000020 

$BVTXT= 

****** 

GX 

$RNTL0= 

******  GX 

000100 

$CFERR= 

GX 

$RQBF  3 

******  GX 

000200 

$FILHD= 

****** 

GX 

$SAVAL= 

******  GX 

000004 

$NODAD= 

****** 

GX 

$SAVVR= 

*♦«♦**  GX 

000002 

$NODNA= 

****** 

GX 

SSEREM 

000046RG 

000400 

$NTADD= 

****** 

GX 

$SWICH= 

******  GX 

000040 

$OPRND= 

****** 

GX 

$TMLST= 

******  GX 

000006 

$QINSN= 

****** 

GX 

$XXAVL= 

******  GX 

000022 

$RLBF  = 

****** 

GX 

.C0NER= 

******  G" 

000032 

$RNDCP= 

****** 

GX 

.EXIT  = 

******  GX 

SETREM 


CREATED  BY     MACRO     ON  1-JUL-85   AT   16:37 
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MACRO  CROSS  REFERENCE  CREF   04.00 

MACRO  NAME      REFERENCES 

5-184  5-187 


EPRINT 

#4-74 

ERRORS 

#4-63 

PRINT 

#4-58 
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SETSLi  - 
FNDACT  - 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 
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FIND  TRIBUTARY  ACIIVITy 

.SBTTL  FNDACT  -  FIND  TRIBUTARY  ACTIVITY 
'*♦*  -  FNDACT  -  FIND  TRIBUTARY  ACTIVITY 
INPUT: 


001160 

001160  032767 

001166  001415 

001170  010500 


001172  011000 
001174  001412 


001176 
001204 
001206 
001214 
001216 
001220 


122760 
001006 
132760 
001766 
000261 
000401 


001222  000241 
001224  000207 


R5  =  CURRENT  SLT  ADDRESS 


OUTPUT 


C-BJT  CLEAR  -  NO  TRIBUTARY  ACTIVITY 
C-BIT  SET  -  TRIBUTARY  ACTIVITY 
RO  =  DESTROYED 


OOOOOOG  OOOOOOG 


FNDACT: 


BIT 
BEQ 
MOV 


#FL.MTP,$FLAGS 

20$ 

R5,R0 


SEARCH  FOR  STATIONS 


10$: 


OOOOOOG  OOOOOOG 
OOOOOOG  000006 


20$: 
30$: 


MOV 
BEQ 

CMPB 

BNE 

BJT8 

BEQ 

SEC 

BR 

CLC 
RETURN 


(R0),RO 
20$ 

*CS.STA, 
20$ 


C.STS(RO) 


#SF.ENA,6(R0) 
10$ 

30$ 


IS  THE  LINE  MULTIPOINT 
IF  EQ,  NO  ..  LEAVE 
COPY  TEMPLATE  ADDRESS 


GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

IS  THIS  A  STATION  TEMPLATE 

IF  NE,  NO  ..  LEAVE 

IS  THIS  STATION  'ON'  ? 

IF  EQ,  NO 

ELSE,  INDICATE  ACTIVITY 

AND  LEAVE 

NO  ACTIVITY  I 
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158 

000005 

.REPT 

5 

159 

MOV 

(R2)+,(R3)t 

MOVE  DTE  ADDRESS 

160 
161 

162 

.ENDR 

':    PARAMETERS  APPLICABLE  TO  BOTH  INCOMING  AND 

163 
164 
165  000362 

;  OUTGOING  SVCS 

032767 

OOOOOOG 

OOOOOOG 

40$: 

BIT 

*OC.MRC,$OPRND  . 

MAX  RECALLS  ? 

166  000370 

001403 

BEQ 

45$ 

IF  EQ,  NO 

167  000372 

168 

169  000400 

016760 

OOOOOOG 

OOOOOOG 

MOV 

$MRC,S$VRCL(RO)  , 

ELSE  UPDATE 

032767 

OOOOOOG 

OOOOOOG 

45$: 

BIT 

#OC.RTH,$OPRND  , 

RECALL  TIMER  ? 

170  000406 

001403 

BEQ 

50*        .V  ■ 

IF  EQ,  NO 

171  000410 

172 

173  000416 

016760 

OOOOOOG 

OOOOOOG 

MOV 

$RTM,S$VTIH(RO)  , 

ELSE  UPDATE 

032767 

OOOOOOG 

OOOOOOG 

50$: 

BIT 

#OC.MBL,$OPRND  . 

MAXIMUM  DATA? 

174  000424 

001406 

BEQ 

55$ 

BR  IF  NO 

175  000426 

016760 

OOOOOOG 

OOOOOOG 

MOV 

$M8L,S$VPSZ(R0)  , 
*SV$PSZ,C.STS(RO) 

STUFF  MAX  BLOCKS 

176  000434 

177 

178  000442 

052760 

OOOOOOG 

OOOOOOG 

BIS 

;  REMEMBER  OPTION 

032767 

OOOOOOG 

OOOOOOG 

55$: 

BIT 

#OC.MWI,$OPRND  . 

MAXIMUM  WINDOW? 

179  000450 

001406 

BEQ 

60$ 

BR  IF  NO 

180  000452 

016760 

OOOOOOG 

OOOOOOG 

MOV 

$MUJ,S$VUSZ(R0) 
*SV$USZ,C.STS(RO 

STUFF  VALUE  INTO  TEMPLATE 

181  000460 

182 

183  000466 

052760 

OOOOOOG 

OOOOOOG 

BIS 

;  REMEMBER  OPTION 

032767 

OOOOOOG 

OOOOOOG 

60$: 

BIT 

#OC.STA,$OPRND 

STATE  ? 

184  000474 

001431 

BEQ 

70$ 

BR  IF  NO 

185  000476 

012705 

OOOOOOG 

MOV 

#$TMLST,R5 

POINT  TO  LISTHEAD 

186  000502 

004767 

OOOOOOG 

CALL 

$FNSLT 

LOOK  FOR  SLT 

187  000506 

103416 

BCS 

65$ 

IF  CS,  ERROR 

188  000510 

004767 

OOOOOOG 

CALL 

$FNSTA 

LOOK  FOR  STA$DF 

189  000514 

103413 

BCS 

65$ 

IF  CS,  ERROR 

190  000516 

142765 

OOOOOOG 

OOOOOOG 

BICB 

#Sf.ENA,S$TFLG(R^)  ;  ASSUME  NOT  ENABLED 

191  000524 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#SU.ENA,$SWICH 

MARK  FOR  ENABLE  ? 

192  000532 

001412 

BEQ 

70$ 

,  IF  EQ,  NO 

))  ;  SET  STATE  ON 

193  000534 

152765 

OOOOOOG 

OOOOOOG 

BIS6 

#Sf .ENA,S$TFLG(R 

194  000542 

000406 

BR 

70$ 

CONTINUE 

195  000544 

010046 

65$: 

MOV 

RO,-(SP) 

PUSH  RO 

196  000546 

ERROR$ 

*ERRCIS 

CIRCUIT  NOT  FOUND 

197  000556 

198 

199  000560 

200 

201  000564 

012600 

MOV 

(SP)+,RO 

RECOVER  POINTER 

000167 

177404 

70$: 

JMP 

10$ 

CONTINUE 

022767 

OOOOOOG 

OOOOOOG 

75$: 

CMP 

#C0.KNC,$COHP 

KNOWN  CIRCUITS  ? 

202  000572 

001406 

BEQ 

80$ 

IF  EQ,  1ES 

203  000574 

032767 

OOOOOOG 

OOOOOOG 

SIT 

*WC.CNT,$UILD 

WILDCARD  CONTROLLERS  ? 

204  000602 

001002 

BNE 

80$ 

IF  NE,  MAY  BE  OTHER  CIRCUITS  FOUND 

205  000604 

005701 

TST 

R1 

ELSE  WAS  IT  FOUND  ? 

206  000606 

207 

208  000610 

209 

001401 

BEQ 

101$ 

•  IF  EQ,  NO  -  ERROR 

000207 

80$: 

RETURN 

210 
211 
212 
213  000612 

;  ERROR  CONDITIONS 

ioi$: 

ERROR$ 

#ERRSVC 

;  SVC  NOT  FOUND 

214  000622 

000207 

RETURN 

SETSVC  -  SET  SVC  PARAMETERS 
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S^'JNT  -  SET  UNIT  PARAMETERS 


297 
298 
299 
300 

+ 
***  - 

SPEED  - 

CHANGE  THE  CURRENT  BAUD  RATE 

INPUT 

301 

■rO  =  ADDRESS  OF  UNIT  TEMPLATE 

302 

$8AUD  = 

NEW  BAUD  RATE 

303 
304 

OUTPUT: 

305 

C.CWO  = 

UPDATED 

306 

307 

- 

308 

309  0007K 

012701 

000036 

SPEED: 

MOV 

#T8LEN+2,R1 

ASSUME  HIGH  SPEED  LINE 

310  000720 

026727 

OOOOOOG 

022600 

CMP 

$BAUD,#9600. 

HIGH  SPEED  LINE  ? 

311  000726 

101016 

BHI 

20$ 

BR  IF  YES 

312  000730 

005001 

CLR 

Rl 

ELSE  CLEAR  INDEX  POINTER 

313  000732 

026761 

OOOOOOG 

000076' 

10$: 

CMP 

$8AUD,RATETB(R1) 

;  BAUD  RATE  IN  TABLE  ? 

314  000740 

001411 

BEQ 

20$ 

IF  EQ,  YES  ..  OKAY 

315  000742 

005721 

TST 

(R1)  + 

ELSE,  SKIP  TO  NEXT  ENTRY 

316  000744 

020127 

000034 

CMP 

R1.#T8LEN 
lOi 

Al  END  OF  TABLE  ? 

317  000750 

101770 

BLOS 

IF  LOS,  NO  ..  KEEP  LOOKING 

318  000752 

ERRORS 

#ERR8AU 

ELSE,  ILLEGAL  BAUD  RATE 

319  000762 

000415 

BR 

30$ 

AND  LEAVE 

320  000764 

006201 

20$: 

ASR 

Rl 

GET  INDEX  /  2 

321  000766 

000301 

SWAB 

Rl 

GET  TRAvlSMIT  SPEED  IN  Rl 

_/  L-  <    \J  V  V  '     ^^^J 

322  000770 

042760 

17740U 

000006 

BIC 

#177400, C.CWOtRO 
R1,C.CW0(R0) 

;  CLEAR  CURRENT  TRANS  6  RECV  SPEEDS 

323  000776 

050160 

000006 

BIS 

SET  NEW  TRANSMIT  SPEED 

324 

000004 

.REPT 

4 

325 

ASL 

Rl 

GET  RECEIVE  SPEED  IN  Rl 

326 

.ENDR 

327  001012 

050160 

000006 

BIS 

R1,C.CW0(R0) 

•  SET  NEW  RECEIVE  SPEED 

328  001016 

000207 

30$: 

RETURN 

•  AND  RETURN  TO  CALLER 

329 

330 

000001 

.END 
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•  «FILE«*!D"SETX3P 
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ssssssss 

EEEEEEEEEE 

TTTTTTTTIT 

XX      XX 

333333 

PPPPPPPP 

SS55SSSS 

EEEEEEEEEE 

TTTTTTTTTT 

XX      XX 

333333 

PPPPPPPP 

SS 

XX      XX 

33 

33 

PP     PP 

SS 

:  : 

XX      XX 

ii 

33 

PP     PP 

SS 

:; 

XX  XX 

33 

PP     PP 

SS 

EE 

XX  XX 

33 

PP     PP 

SSSSSS 

EEEEEEEE 

XX 

33 

PPPPPPPP 

S5SSSS 

EEEEEEEE 

XX 

33„ 

PPPPPPPP 

SS 

EE 

XX  XX 

33 

PP 

SS 

EE 

XX   XX 

33 

PP 

SS 

EE 

XX      XX 

33 

33 

PP 

SS 

EE 

XX      XX 

ii 

33 

PP 

SSSSSSSi 

EEEEEEEEEE 

XX      XX 

333333 

PP 

SSSSSSSS 

EEEEEEEEEE 

XX      XX 

533333 

PP 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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55 
56 
57 
58 
59 
60 

61  000000 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7h 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 

102  000000 

103  000000 

104  000000 

105  000002 

106  OOOOOA 

107  000005 

108  000006 

109  000012 

110  000013 

111  000000 


LIBRARY  MACRO 

CALLS 

.MCALL 

OBJDFS 

OBJDFS 

LOCAL 
**** 

MACROS 

.MACRO 

.IF  DIF 

MOV 

.ENDC 

CALL 

.ENDM 

PRINT   TEXT 
<TEXT>,<RO> 

text,r6 

$PRINT 
PRINT 

DEFINE  OBJECT  BIT  DEFINITIONS 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 

THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERI 

.ENDM  EPRINT 

•  *** 
LOCAL  DATA 


DEFINE  OBJECT  TEMPLATE 


C.TYP 
C.FLG 
C.NAM 
C.CPY 
C.LEN= 


.ASECT 

.=0 

.SLKW 

.BLKW 

.BLKB 

.BLKB 

.BLKW 

.BLKB 

.PSECT 


;  GET  ADDRESS  OF  ERROR  MESSAGE 
;  PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


C.LNK 

C.STS 

OBJECT  TYPE 

OBJECT  FLAG  BYTE 

OBJECT  TASK  NAME  (RAD50) 

NUMBER  OF  COPIES  TO  SPAWN 
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22^  001656 

225  001662 

226  001666 

227  001672 
228 

229  001674 

230  001700 

231  001704 

232  001710 

233  00171A 

234  001720 

235  001724 
236 

237  001726 

238  001736 

239  001746 
240 

241  001754 

242  001760 

243  002002 

244  002012 

245  002020 

246  002022 
247 

248  002030 

249  002040 

250  002042 


000564'  002012' 

000625'  002020' 

000707'  002022' 
000000 

000745'  001726" 

000773'  001732' 

001050'  001736' 

001121'  001742' 

000224'  001746' 

001173'  001752' 
000000 


001437' 


PVCSW: 

.WORD 
.WORD 
.WORD 
.WORD 

PVCMS4,PVCBL4 
PVCMS5,PVCBL5 
PVCMS6,PVCBL6 
0 

SVCTBL 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

SVCMl.SVCBLK 

SVCM2,SVCBLKt4 

SVCM3,SVCBLK+10 

SVCM4,SVCBLK+14 

HELMSG,S\/CBLK+20 

SVCM5,SVCBLK+24 

0 

SVCBLK 
TYPBLK 
HELBLK 

.BLKW 
.BLKW 
.BLKW 

4 
4 
3 

PVC8LK 
PVCBL2 
PVCBL3 
PVCBL4 
PVCBL5 
PVCBL6 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

2 

9. 

4 

3 

1 

3. 

STABLK 

.BLKW 
.WORD 
.BLKW 

4 

TRJB 

2 

SVC   FORMATTING   TABLE 


USAGE  MAX  RECALL,   RECALL   TIMER 

TYPE,  OWNER 

HELLO  TIMER,  SERVICE  STRING  DESCR. 

PVC  PARAMETER  BLOCK 


LOADING  ARGUMENT  BLOCK 
TRIBUTARY  ADDRESS  STRING 
LENGTH  AND  ADDRESS  OF  APR 
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794  004620 

795  004624 

796  004650 

797  004634 
798 

799  004640 

800  004644 

801  004650 

802  004654 

803  004660 

804  004664 

805  004666 

806  004672 

807  004676 

808  004702 

809  004710 

810  004712 

811  004720 

812  004726 

813  004732 
814 

815 
816 

817  004736 

818  004740 
819 

820 
821 

822  004756 

823  004762 

824  004766 

825  004772 
826 

827 
828 

829  004776 

830  005002 

831  005006 

832  005012 

833  005014 

834  005022 

835  005030 

836  005034 

837  005042 

838  005044 

839  005052 

840  005056 

841  005060 

842  005066 
84  3  005070 
844 

845 
846 

847  00^076 

848  005100 

849  005104 

850  005106 


012701 
016422 
016422 
105067 

012702 
012700 
004767 
162700 
012702 
010022 
012722 
012722 
012722 
026427 
001006 
012762 
012762 
012722 
012722 


010500 
062700 
000005 


000402' 
OOOOOOG 
000002G 
173406 

001754' 
000137' 
OOOOOOG 
000137' 
001754' 

000137' 
000006 
001343' 
OOOOOOG  015355 

000010  177774 
001333'  177776 
000004 
001351' 


OOOOOOG 


30$: 


40$: 


50$: 


MOV 
MOV 
MOV 
CLR8 

MOV 

MOV 

CALL 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BNE 

MOV 

MOV 

MOV 

MOV 


#FMT2R5,R1      ;  POINT  TO  FORMAT  STRING 
P$VNAM(R4),(R2)+  ;  FIRST  PART  OF  NAME 
P$VNAMt2(R4),(R2)+  ;  NEXT  PART  OF  NAME 
SERMSG         ;  SUPPRESS  SERVICE  PARAMETER 


#PVCBLK,R2 

#L1N1D,R0 

SEDMSG 

#L1NID,R0 

#PVC8LK,R2 

R0,(R2)t 

#LJN1D,(R2)+ 

#N0NEL,(R2)+ 

#N0NE,(R2)+ 

P$V0WN(R4),#"RDLM 

50$ 

#EXECL,-4(R2) 

#EXEC,-2(R2) 

#X25L,(R2)+ 

#X25,(R2)+ 


POINT  TO  ARGUMENT  BLOCK 
POINT  TO  BUFFER 
FORMAT  CIRCUIT  ID 
CALCULATE  STRING  LENGTH 

point  to  arg  block 
load  up  string  length 
point  to  string 
assume  no  owner 

■"check  for  DLM 

if  ne,  not  dlm 

else  owner  =  executor 

TYPE  IS  X25 


DTE  ADDRESS  AND  USAGE 


012722 
012722 
016422 
016422 


012722 
012722 
105764 
001006 
012762 
012762 
016322 
032764 
001403 
016462 
116322 
105022 
032764 
001403 
016462 


010346 
012700 
010503 
062703 


000011 
001367' 
OOOOOOG 
OOOOOOG 


000002 

001326' 

OOOOOOG 

000003  177774 
001330'  177776 
OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  177776 
OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  177776 


MOV 

ADD 

.REPT 

MOV 

.ENDR 

MOV 

MOV 

MOV 

MOV 


R5,R0 
#D$TADR,lK 
5 
(R0)+,(R2)t 


;  POINT  TO  DTE  TEMPLATE 

;  POINT  TO  DTE  ADDRESS  FIELD 

;  MOVE  DTE  ADDRESS 

;  USAGE  IS  PERMANENT 


#PERML,(R2)+ 
#PERM,(R2)+     ;   ... 
P$VLCN(R4),(R2)+;  CHANNEL  NUMBER 
P$VCT(R4),(R2)+;  COUNTER  TIMER 


STATE,  MAXIMUM  DATA,  MAXIMUM  WINDOW 


60$: 


70$: 


MOV  (»0NL,(R2)  + 

MOV  *0N,(R2)+ 

TSTB  P$VSTA(R4) 

BNE  60$ 

MOV  *0FFL,-4(R2) 

MOV  #0FF,-2(R2) 

MOV  X$3DFP(R3),(R2)-, 

BIT  #PV$PSZ,C.STS(R4) 

BEQ  70$          ; 

MOV  P$VPSZ(R4),-2CR2) 

M0V8  X$3DW(R3),(R2)+  ; 

CLRB  (R2)+         ; 

BIT  #PV$WSZ,C.STS(R4) 

BEQ  80$          ; 

MOV  P$VWSZ(R4),-2(R2) 


FORMAT  LINE  ID 


000663' 

OOOOOOG 


S0$: 


MOV 
MOV 
MOV 
ADD 


R3,-(SP) 
#PVCLIN,RO 
R5,R3 
#D$TLIN,R3 


ASSUME  STATE  =  ON 

TEST  STATE 
IF  NE,  ON 
ELSE 

STATE  =  OFF 

ASSUME  DEFAULT  DATA  SIZE 
;  MAX  DATA  ON  PVC$DF  ? 
IF  EQ,  NOT  SPECIFIED 
;  BLOCK  SIZE 
ASSUME  DEFAULT  WINDOW 
CLEAR  HI  BYTE 
;  MAX  WINDOW  ON  PVC$DF  ? 
IF  EQ,  NO 
;  WINDOW  SIZE 


PUSH  R3 

POINT  TO  LINE  BUFFER 
POINT  TO 
LINE  ID 
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55 
5A 
55 
56 
57 
58 
59 
60 

61  000000 

62  000000 
6?  000000 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
85 
8i< 
85 
86 
87 
88 
89 
90 
91 
92 
95 
9^; 
95 
96 
97 
98 
99 

100 
101 
102 
105 
10A 
105 
106 
107 
108 
109 
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.SBTTL  MACRO  DEFINITIONS 
LIBRARV  MACRO  CALLS 


.MCALL  NSFDF$,MSGDF$,DECTP$ 


DECTPS 
NSFDFS 
MSGDfS 


LOCAL  MACROS 


.MACRO 
MOV 
CALL 
.ENDM 


PRINT   TEXT 
TEXT.RO 
SPRINT 
PRINT 


DEFINE  DECSDF  TEMPLATE  OFFSETS 
DEFINE  NSP  FEATURES  MASK  SITS 
DEFINE  NSP  MESSAGE  SYMBOLS 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 

THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


.IF  DIF  <TEXT><RO> 


MOV 
.ENDC 
CALL 
.ENDM 


TEXT.RO 

SCFERl 
EPRINT 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


STRING  TEXT 

SSSSTR,  D  ,R0, 

/TEXT/ 
SSS 


.MACRO 

.SAVE 

.PSECT 

SSS  = 

.ASCII 

SSSL  = 

.RESTORE 

.WORD   SSSL, SSS 

.ENDM 


CON,  LCL 


LOCAL  DATA 
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SHOEXE  CREATED   BY     MACRO     ON  29-JUN-85    AT   05:?6 

SVMBOL   CROSS  REFERENCE 


SYMBOL      VALUE 


ADDMSG 

ADDMS2 

ATYP 

CD.LEN 

CS.DEC 

C5.FEA 

CS.LLC 

CS.NOD 

CS.REM 

CS.ROU 

CS.THI 

CS.TLO 

C.ACST 

C.ADD 

C.AHOP 

C.CST 

C.DELF 


000332  R 
000364  R 
00U42 
=  000022 

r     ****** 
r     ****** 


=     ****** 


DELW 
HOP 
HOS 
INAC 
INCT 
I  PL 
..LEN 
C.LKS 
C.LST 
C.L2TM 
C.NA 
C.NAM 
C.NBEA 
C.NDC 
C.NID 
C.NUM 
C.OUTT 
CPRM 
C.RETF 
C.RTM 
C.SEG 
C.STS 

delmsg 

ECLSEG 

ERRDEC 

ERRECL 

ERRNOD 

ERRROU 

ERRXPT 

EXSERR 

HEAOR 

H0SM5G 

HSTMSG 

H5TMS2 


000022 
000004 
000020 
000006 
000016 
000017 
000010 
000054 
000014 
000012 
000020 
000026 
000010 
000021 
000024 
000014 
000004 
000016 
000006 
000010 
000052 
000015 

:     ****** 

000015 
000012 
000004 


001303 
000613 
000074 
000037 
000124 
000157 
000002 
000002 
000215 
000434 
000351 
000406 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 


GX 

R 
R 
R 
R 
R 
R 
R 

R 
R 
R 
R 


REFERENCES 

#4-1';'^ 
04-157 
*4-178 
#4-61 

5-267 

5-256 

5-235 

5-226 

8-545 

5-215 

5-410 

5-410 
#4-139 
#4-132 
#4-138 
#4-133 
#4-61 
#4-61 
#4-134 
#4-120 
#4-61 
#4-61 
#4-61 
#4-121 
#4-61 
#4-61 
#4-140 
#4-136 
#4-116 
#4-137 
#4-61 
#4-117 
#4-119 
#4-61 

5-237 
#4-61 
#4-135 
#4-61 

5-215 

8-545 
#4-172 
#4-163 
#4-149 
#4-148 
#4-150 
#4-151 
#4-147 
#4-146 
#4-152 
#4-160 
#4-156 
#4-158 


5-291 
5-291 
5-350 


5-246 


5-420 
5-415 
5-401 
5-371 
i-400 
3-384 
5-319 
5-328 
5-385 
8-532 
5-342 
5-300 

#4-141 
5-308 

5-388 
5-399 
5-284 
5-387 
5-309 
5-274 
5-289 
5-301 
5-248 
5-343 
5-386 
8-512 
5-226 

5-334 
8-510 
5-438 
5-436 
5-430 
5-434 
5-  ^2 
4-  ;7 
5-200 
5-310 
8-534 
8-534 
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8-535 


8-547 


5-285 


5-276 
8-535 

5-258 


5-235 


-554  8-55-) 


5-362  5-364 


5-246  5-256 


5-267 


5-410 


5-415 


5-420 


4-148 


4-149  4-150 


4-151 


SHOEXE 
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365 
366 
367 

+ 

*  *  *   - 

.SBTTL 
OISPLY 

DISHLY  -  DIbPLAY  LINt  I.HAKAL  1 1  K  I  b  1  1 1  i 

-  DISPLAY  LINE  CHARACTERISTICS 

368 
369 

INPUT 

370 

'CNTSLK 

=  CONTROLLER  INFORMATION 

371 

UNTBLK 

:  UNIT  INFORMATION 

372 

0PT8LK 

=  OPTIONAL  INFORMATION 

373 
374 
375 

X2PeLK 

=  X.25  LEVEL  2  INFORMATION 

OUTPUT: 

376 
377 

_ 

CHARACTERISTICS  hRE  DISPLAYED 

378 

379  002046 

DISPLY; 

380  002046 

004767 

000730 

CALL 

GETSLT 

GET  INITIAL  SLT/STATION  INFORMATI 

381  002052 

103475 

BCS 

101$ 

IF  CS,  NO  SLT  MACRO 

382  002054 

004767 

001346 

CALL 

FMTLIN 

FORMAT  THE  LINE  ID 

383  002060 

PRINT 

#LINMSG 

PRINT  THE  LINE  ID 

384  002070 

012703 

001344" 

MOV 

#T8L1,R3 

POINT  R3  AT  ARGUMENT  BLOCK  TABLE 

385  002074 

386 

387  002100 

012704 

001364- 

MOV 

#T8L2,R4 

PO  NT  R4  AT  INPUT  STRING  TABLE 

012700 

OOOOOOG 

10$: 

MOV 

#$6UFF,R0 

GET  THE  OUTPUT  BUFFER 

388  002104 

012301 

MOV 

(R3)+,R1 

GET  THE  INPUT  BUFFER 

389  002106 

001413 

BEQ 

20$ 

IF  EQ,  END  OF  LIST 

390  002110 

012402 

MOV 

(R4)+,R2 

GET  THE  ARGUMENT  BLOCK 

391  002112 

032467 

175762 

BIT 

(R4)+,DSP0PT 

OPTIONAL  INFO  SELECTED  ? 

392  002116 

001770 

BEQ 

10$ 

IF  EQ,  NO 

393  002120 

004767 

OOOOOOG 

CALL 

$EDMSG 

EDIT  THE  LINE 

394  002124 

PRINT 

#$BUFF 

PRINT  THE  LINE 

395  002134 

000761 

BR 

10$ 

REPEAT 

396  002136 

032767 

OOOOOOG 

OOOOOOG  20$: 

BIT 

*FL.MTP,$FLAGS 

IS  THE  LINE  MULTI-POINT  ? 

397  002144 

001001 

BNE 

30$ 

IF  NE,  YES 

398  002146 

399  002150 

400  002150 

000436 

30$: 
OOOOOOG 

BR 

50$ 

AND  LEAVE 

032767 

OOOOOOG 

BIT 

#FL.TRI,$FLAGS 

DOES  USER  WANT  TRIBUTARY  INFO.  ? 

401  002156 

001425 

BEQ 

45$ 

IF  EQ,  NO 

402  002160 

052767 

OOOOOOG 

OOOOOOG 

BIS 

#FL.TRB,$FLAGS 

SIGNAL  TRIBUTARY  ADDRESS  REQUIRED 

403  002166 

004767 

001234 

CALL 

FMTLIN 

FORMAT  THE  LINE  ID 

404  002172 

PRINT 

#LINMSG 

PRINT  LINE  ID 

405  002202 

012700 

OOOOOOG 

40$: 

MOV 

#$8UFF,R0 

POINT  AT  OUTPUT  BUFFER 

406  002206 

012701 

000631' 

MOV 

#STAMSG,R1 

POINT  AT  INPUT  BUFFER 

407  002212 

012702 

001456' 

MOV 

#STAeLK,R2 

•  POINT  AT  ARGUMENT  BLOCK 

408  002216 

004767 

OOOOOOG 

CALL 

$EDMSG 

■  FORMAT  THE  STRING 

409  002222 

PRINT 

*$BUFF 

■  PRINT  THE  LINE 

410  002232 

004736 

45$: 

CALL 

a(SP)t 

•  BACK  TO  GETSLT  AGAIN 

411  002234 

103345 

BCC 

30$ 

■  IF  CC,  GOT  NEW  LINE 

412  002236 

042767 

OOOOOOG 

OOOOOOG 

BIC 

#FL.TRB,$FLAGS 

■  ELSE,  CLEAR  TRIBUTARY  ADDRESS  BIT 

413  002244 

414 

415 

416 

417  002246 

000207 

50$: 

RETURN 

;  ERROF 

CONDI T 

ONS 

i01$: 

ERROR$ 

«ERRLIS 

;  LINE  NOT  IN  SYSTEM 

418  002256 

000207 

RETURN 
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256 
257 
258 
259 
260 
261 
262 
265 
264 
265 
266 
267 
268 
269 
270 
271 
272 
271   001056 

274  001062 

275  001066 

276  001074 

277  001076 

278  001100 

279  001102 
280 

281 
282 

283  001106 

284  001112 

285  001114 

286  001116 

287  001122 

288  001124 

289  001130 

290  001134 

291  001136 

292  001140 

293  001144 

294  001146 

295  GOT  52 

296  001154 
Z'i7 

298 
299 

300  COM  56 

301  00^64 

302  C01-:66 

303  con  74 

304  001176 

305  C012C0 
306 

307 
308 

309  001202 

310  001206 
3"  COi/'C 
V2   001216 


.SBTTL  CHKMUL  -  CHE;K  FOR  MULTICOPY  TASKNAME 

'inputs       STNAM  =  PARSED  TASK  NAME 

RO  =  OBJECT  TEMPLATE  (0  If  NONE) 

OUTPUT       CARRY  CLEAR: 

SINGLE  COPY  ■■■■:  OK  FOR  SINGLE  COPY  OBJECT  OR 
MULTICOPY  NAME  OK  FOR  MULTICOPY  OBJECT 
CARRY  SET: 
WRONG  NAME  FOR  OBJECT  TYPE 

NOTE:  IT  IS  VALID  TO  HAVE  A  MULTICOPY  TASK  WITH 
MAXIMUM  COPIES  OF  1 


REGISTERS 


ALL  REGISTERS  PRESERVED. 


004267 
012702 
032767 
001004 
010002 
001460 
062702 


012700 
012201 
011246 
004767 
012601 
004767 
124027 
001775 
005200 
012702 
C05202 
124027 
001774 
005001 


C32767 
001406 
032767 
001412 
005201 
000410 


C16600 
001405 
132760 
C0U01 


0000006 
OOOOOOG 
0000006  OOOOOOG 


000006 


CHKMUL 


JSR 
MOV 
BIT 
BNE 
MOV 
BEQ 
ADD 


R2,$SAVVR 

#$TNAM,R2 

#00.NAM,$OPRND 

10$ 

R0,R2 

50i 

#C.NAM,R2 


SAVE  VOLATILE  REGISTERS 

POINT  TO  PARSED  NAME 

PARSED  r   ECT  NAME  ? 

IF  NE,  110 

ELSE  COPY  TEMPLATE  POINTER 

IF  EQ,  CATCH  ERROR  LATER 

POINT  TO  NAME  IN  TEMPLATE 


000244' 


OOOOOOG 

0000006 
000040 


177774 
000044 


CHECK  OBJECT  NAME  FOR  MULTICOPY  FORMAT 


10$: 


15$: 


16$: 


MOV 

MOV 

MOV 

CALL 

MOV 

CALL 

CMP8 

BEQ 

INC 

MOV 

INC 

CMP8 

BEQ 

CLR 


#OBJNAM,RO 

(R2)+,R1 

(R2),-(SP) 

$C5TA 

(SP)+,R1 

$C5TA 

-(fiO), 

15$ 

RO 

#-4,R2 

R2 

-(R0),#'$ 

16$ 

R1 


,#40 


POINT  TO  SCRATCH  BUFFER 
FETCH  FIRST  PART 
PUSH  SECOND  PART 
CONVERT  RAD50  TO  ASCII 
FETCH  NEXT  PART 
CONVERT  RAD50  TO  ASCII 
SCAN  BACK  OVER  BLANKS 
IF  EQ,  KEE,"  ON  SCANNIN' 
BACKTRACKED  ONE  TOO  MANY 
NOT  MULTICOPY  YET 
COUNT  NEXT  DOLLAR 
IS  IT  DOLLAr^  ? 
IF  EQ,  YEP 
NOT  MULTIPLE  COPIES  YET 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


000002 

000200  000005 


CHECK  FOR  MULTIPLE  COPIES  ON  COMMAND  LINE 


BIT 
BEQ 
BIT 
BEQ 
INC 
8R 


#OO.COP,$OPRND 

20$ 

#SW.SMC,$SWICH 

30$ 

R1 

30$ 


CHECK  FOR  PARSED  COPIES 

BR  IF  NONE 

CHECK  PARSED  FLAGS 

IF  EQ,  NOT  MULTIPLE  COPIES 

ELSE  SET  FLAG 

JOIN  COMMON  CODE 


CHECK  FOR  MULTIPLE  COPIES  IN  TEMPLATE 
J0$:    MOV     2(SP),R0 

FLG(R05 


MOV 
BEQ 
BITB 
BEQ 


2(SP) 
30$ 

#OF.SMC 
30$ 


IS  THERE  A  TEMPLATE  YET  ? 
IF  EQ,  NO  -  ASSUME  SINGLE  COPY 
;  SPAWN  MULTI  COPIES  ? 
IF  EQ,  NO 


tiF'nB     -  i;fT  nRiF-T  nPTinN<; 
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1 
2 
3 

5 
6 
7 
8 
9 

TO 
|1 
\2 
13 
1^ 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  SETPRO  -  SET  PROCESS  OPTIONS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SET  OROCESS  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  i6-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00     '2-JUL-85 

i)ECnet-11M/S   V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Mi'cro/RSX   VI  .0 


^FTnRn   -   SFT    PROfFSS   OPTIONS 
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163  000562 
16A  000570 
165  000572 
166 

167  000574 

168  000602 

169  000604 

170  000612 

171  0006U 

172  000622 

173  000624 

174  000632 
175 

176  000634 

177  000640 

178  000646 

179  000650 
180 

181  000656 

182  000664 

183  000666 

184  000672 

185  000674 

186  000700 

187  000704 

188  000706 

189  000714 
190 

191  000722 

192  000730 

193  000732 

194  000736 

195  000740 

196  000744 

197  000750 

198  000752 

199  000760 
200 

201  000766 
20?  000774 
20 :  0776 
20',  '004 
205  .1006 
206 

207  OOIOH 

208  001022 

209  001024 

210  001030 

211  001036 

212  001040 
213 

214  001044 

215  001052 

216  001054 

217  001060 

218  001062 
219 


026760 
001351 
000420 

032767 
0C1004 
126760 
001340 
032767 
001004 
126760 
001330 

005267 
032767 
001403 
016760 

032767 

001416 

005767 

001005 

004167 

000272" 

000406 

016760 

052760 

032767 

001416 

005767 

001005 

004167 

000306' 

000406 

016760 

052760 

032767 
001407 
026027 
001403 
016760 

032767 
001410 
105060 
032767 
001402 
105260 

032767 
001403 
004767 
105432 
000614 


000002G  000002G 

OOOOOOG  OOOOOOG  17$: 
OOOOOOG  000002G 
OOOOOOG  OOOOOOG  18$: 
OOOOOOG  000003G 

177464        20$: 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  30$: 

OOOOOOG 

000416 
000014 

OOOOOOG  OOOOOOG  35$: 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG  40$: 

OOOOOOG 

000352 
000016 


OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

000132 


OOOOOOG  45$: 
OOOOOOG 

OOOOOOG  50$: 

015355 

OOOOOOG 

OOOOOOG  55$: 

OOOOOOG 
OOOOOOG  70$: 
72$: 


CMP 
BNE 
BR 

BIT 

BNE 

CMPB 

BNE 

BIT 

BNE 

CMPB 

BNE 

INC 
BIT 
BEQ 
MOV 

BIT 

BEQ 

TST 

BNE 

JSR 

.WORD 

BR 

MOV 

BIS 

BIT 

BEQ 

TST 

BNE 

JSR 

.WORD 

BR 

MOV 

BIS 

BIT 
BEQ 
CMP 
BEQ 
MOV 

BIT 

BEQ 

CLRB 

BIT 

BEQ 

INC8 

BIT 

BEO 

CALL 

BCS 

BR 


$CIRID+2,P$VNAM+2(R0)  ;  COMPARE  PART  2 
15$  ;  IF  NE,  KEEP  LOOKING 

20$  ;  ELSE  GOT  ONE 

#WC.CNT,$WILD   ;  WILDCARD  CONTROLLERS  ? 
18$  ;  IF  NE,  YES 

$CNTNM,P$VNAM+2(R0)  ;  COMPARE  CONTROLLER  NUMBERS 
15$  ;  BR  IF  WRONG  CONTROLLER 

#WC.TRI,$WILD   ;  WILDCARD  TRIBS  ? 
20$  ;  IF  NE,  YES 

$STAN,P$VNAM+3{R0)  ;  COMPARE  TRIB  NUMBERS 
15$  ;  IF  NE,  WRONG  TRIB 


FOUND 

#OC.CHN,$OPRND 
30$ 
$CHN,P$VLCN(RO) 

#OC.MBL,$OPRND 

40$ 

$MBL 

35$ 

R1,PRMERR 

TXDAT,TXDATL 

40$ 

$HBL,P$VP5Z(R0)  , 

#PV$PSZ,C.STS(R0) 

#0C.MWI,$0PRND 

50$ 

$MBL 

45$ 

Rl.PRMERR 

TXWND,TXWNDL 

50$ 

$MWI,P$VWSZ(RO)  , 

*PV$WSZ,C.STS(RO) 

*OC.CTM,$OPRND 

55$ 

P$VOWN(RO),#«RDLM 

55$ 

$CT,P$VCT(RO) 

#OC.STA,$OPRND 

70$ 

P$VSTA(RO) 

#SU.ENA,$SWICH 

70$ 

P$VSTA(R0) 

#0C.DTE,$0PRND 

72$ 

SETDTE 

110$ 

15$ 


INCREMENT  FOUND  COUNT 

CHANNEL  LUMBER  ? 

IF  EQ,  NOPE 

UPDATE  CHANNEL  NUMBER  IN  TEMPLATE 

MAXIMUM  BLOCK  SPECIFIED  ? 

IF  EO,  NO 

ZERO  VALUE  ? 

IF  NE,  OK  FOR  PVC 

ELSE  SOFT  PARAMETER  ERROR 

PASS  ERROR  TYPE 

CONTINUE  PROCESSING 

ELSE  UPDATE  MAX  BLOCK 

;  REMEMBER  PACKET  SIZE  SPECIFIED 

MAXIMUM  WINDOW  ? 

IF  EQ,  NO 

ZERO  VALUE  ? 

IF  NE,  OK  FOR  PVC 

ELSE  SOFT  PARAMETER  ERROR 

PASS  ERROR  TYPE 

CONTINUE  PROCESSING 

ELSE  UPDATE  WINDOW  SIZE 

;  REMEMBER  OPTION 

COUNTER  TIMER  ? 

IF  EQ,  NO 

;  DATA  LINK  MAPPING  ? 

IF  EQ,  YES  -  IGNORE  FOR  NOW 

ELSE  UPDATE 

STATE  ? 
IF  EQ,  NO 
ASSUME  OFF 
STATE  =  ON  ? 
IF  EQ,  NO 
SET  STATE  OFF 

CHANGE  DTE  ? 
IF  EQ,  NO 
SET  NEW  DTE 
IF  CS,  ERROR 
ELSE  CONTINUE 
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SETREM  -  SET  REMOTE  NODE  OPTION  MACRO  V05.0?b  Monday  Ol-Jul-85  16:37  Page  4-2 
MACRO  DEFINITIONS 

167  OOOOM  -BLKB   1  ;  Filespec  string  Ungth 

168  000005  F.DEV:   .BLKB   MXFSP         ;  Filespec  string  (ASCII) 

169  000043  '  ■  '■■ 

170  000042 
171 
172 
173 
174 

175  000042 

176  000044 
177 


F.DEV: 
F.LEN 

.BLKB 
.BLKB 

>SECT 

1 
MXFSP 

;  LOCAL 

DATA 

SERPT: 
FILPT: 

.BLKU 
.BLKW 

1 
1 

«  4 
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SETREM  CREATED  B¥     MACRO     ON  1-JUL-85   AT   16:37 

SYMBOL   CROSS   REFERENCE 


SYMBOL     VALUE 


REFERENCES 


ALCFIL 

001U4 

R 

8-366 

:s.DEC 

=       ****** 

GX 

5-195 

CS.FIL 

~       ****** 

GX 

12-516 

CS.REM 

-       *♦♦♦♦* 

GX 

5-202 

:S.SER 

~       ****** 

GX 

12-509 

C.ADD 

000010 

#4-108 

C.LEN 

=  000012 

#4-109 

C.NAM 

000004 

#4-107 

C.STS 

~    ****** 

GX 

5-195 

DEAFIL 

001000 

R 

8-360 

3TBL 

000402 

R 

7-277 

ERRALL 

r      ****** 

GX 

11-474 

ERRBUF 

000000 

R 

#4-97 

EXSERR 

=  000002 

#4-96 

FILPT 

000044 

R 

#4-176 

FINREM 

000276 

R 

5-232 

FNDFIL 

001074 

R 

8-362 

FSDIA 

000012 

#4-152 

F$OUM 

000014 

#4-153 

F$LD 

000010 

#4-151 

F$LEN 

=  000016 

#4-154 

FSSEC 

000004 

#4-149 

FSTER 

000006 

#4-150 

F.CNT 

000002 

#4-166 

F.DEV 

000005 

#4-168 

F.LEN 

-  000043 

#4-169 

F.LNK 

000000 

#4-165 

GETBYT 

001216 

R 

8-374 

GETDLL 

001240 

R 

7-276 

MXFSP 

=  000036 

#4-161 

RN.DCT 

=   ****** 

GX 

7-298 

RN.DIA 

-   ****** 

GX 

7-305 

RN.DMP 

=   ****** 

GX 

7-306 

RN.DPA 

=   ****** 

GX 

7-297 

RN.HAR 

-   ****** 

GX 

7-300 

RN.HOS 

=   ****** 

GX 

7-294 

RN.LOD 

=   ****** 

GX 

7-304 

RN.NAM 

r     ****** 

fix 

5-209 

RN.SCI 

r     ****** 

GX 

7-299 

RN.SDV 

-     ****** 

GX 

7-295 

RN.SLO 

r     ****** 

GX 

7-302 

RN.SNV 

=     ****** 

GX 

7-296 

RN.5PA 

:;     ****** 

GX 

7-301 

RN.TLO 

=     ***♦♦♦ 

GX 

7-303 

RN.XXX 

=     ****** 

GX 

7-274 

R.LENX 

=     ****** 

GX 

5-234 

SERPT 

000042 

R 

#4-175 

SETBH 

000662 

P 

7-296 

SETFIL 

000702 

R 

7-302 

SETUOR 

000640 

R 

7-294 

SF.ADD 

=  000001 

#4-132 

SF.CIR 

=  000010 

#4-135 

#11-464 

12-544 
5-223 
12-529 
5-204 
5-218 
*5-211 
5-202 
#9-396 
#7-292 
12-553 
5-221 
4-97 
8-357 
#6-252 
#10-434 
7-305 
7-306 
7-304 
12-536 
7-302 
7-303 
*8-378 
8-371 
8-371 

9-411 

#12-505 

4-168 


5-235 
8-323 
#8-338 
7-303 
7-295 
12-528 
7-299 
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6-257 

•5-231 

•5-212 
•5-223 


6-259 

•5-224 
6-257 


12-511  12-527 

12-509  12-516         *12-529         ♦12-544 


6-259 
•5-225 


•12-515         •12-539 


12-541 


•9-398 
10-439 
9-408 

#12-488 


10-441 
10-441 


12-489 
11-466 


8-326 

7-304 
7-297 


8-338 

7-505 
7-298 


•12-515 

7-506 
7-299 


•12-550 

#8-556 
7-300 


7-301 


#8-523 


SETREM 
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♦•FILE«MD««SEiSLT 


SS5S5SSS 

EEEEEEEEEE 

TTTTTTTTTT 

SSSSSSSS 

TTTTT 

TTTTT 

SSSSSSSS 

EEEEEEEEEE 

TTTTTTTTTT 

SSSSSSSS 

TTTTT 

TTTTT 

ss 

EE 

ss 

ss 

|e 

ss 

ss 

IE 

ss 

ss 

EE 

ss 

ssssss 

EEEEEEEE 

ssssss 

ssssss 

EEEEEEEE 

ssssss 

ss 

EE 

ss 

ss 

EE 

ss 

ss 

EE 

ss 

ss 

EE 

ss 

SSSSSSSS 

EEEEEEEEEE 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

EEEEEEEEEE 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

SSSSSS 

ssssss 

ss 

-s 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

SSSSSSSS 
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ACTERR  -  MULTIPOINT  TRIBS  ACTIVE  ERROR 
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416 
417 
418 
419 
420 
421 
422 
425 
424 
425 

426  001226 

427  001226 

428  001232 

429  001236 

430  001242 

431  001244 

432  001250 

433  001254 

434  001260 

435  001262 

436  001266 

437  001274 

438  001276 

439  001304 

440  001310 

441  001312 

442  001316 

443  001322 

444  001332 


.SeiTL 
ACTERR 


INPUT: 
OUTPUT: 

ACTERR: 


004267 

OOOOOOG 

012700 

OOOOOOG 

012701 

000006' 

112120 

012702 

000000' 

016522 

000004 

116522 

000010 

105022 

105067 

176571 

032767 

OOOOOOG  OOOOOOG 

001406 

112767 

000055  176553 

116522 

000011 

105022 

012702 

000000' 

004767 

OOOOOOG 

10$: 


000207 


JSR 

MOV 

MOV 

M0V8 

MOV 

MOV 

MOVB 

CLRB 

CLRB 

BIT 

BEQ 

MOVB 

MOVB 

CLRB 

MOV 

CALL 

ERRORS 

RETURN 


ACTERR  -  MULTIPOINT  TRIBS  ACTIVE  ERROR 
-  MULTIPOINT  TRIBS  ACTIVE  ERROR 
R5  =  SLT  TEMPLATE  ADDRESS 
ERROR  MESSAGE  FORMATTED  AND  PRINTED 


R2,$SAVVR 

#$8UFF,R0 

#ERRACT,R1 

(R1)+,(R0)+ 

#ARGLST,R2 

C.NAM(R5),(R2)+ 

C.CNT(R5),(R2)+ 

(R2)  + 

ACTOPT 

*FL.MUX,$FLAGS 

10$ 

#'-, ACTOPT 

C.UNT(R5),(R2)+ 

(R2)  + 

#ARGLST,R2 

$EDMS6 

*$8UFF 


SAVE  VOLATILE  REGISTERS 

POINT  TO  OUTPUT  BUFFER 

POINT  TO  FORMATTING  STRING 

MOVE  EXIT  STATUS  BYTE 

POINT  TO  ARGUMENT  LIST 

GET  DDM  NAME 

CONTROLLER  NUMBER 

CLEAR  HI  BYTE 

ASSUME  NOT  MUX 

MUX  ? 

IF  EQ,  NOPE 

ELSE  INCLUDE  UNIT  NUMBER 

STUFF  UNIT  NUMBER 

CLEAR  HI  BYTE 

POINT  AGAIN 

FORMAT  IT 

PRINT  IT 
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SSESVC  -  SET  SVC  PARAMETERS 

216  00062A  1'")2$:   ERRORS  #ERRUSG        ;  USAGE  CANNOT  BE  PERMANENT 

217  000634  000207  RETURN 
218 
219        000001  .END 
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SETUNT  -  SET  LINE  UNIT  OPTIONS 
Symbol  table 


L  9 
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CH.DUP= 

000001 

C.CSR 

000012 

EX$WAR= 

000000 

SPEED 

000714R 

$DPR  = 

******  GX 

CH.D11- 

000100 

C.CST 

COOOU 

FL.KMX= 

******  GX 

SW.FUL= 

******  GX 

$FLAGS= 

******  GX 

CH  ECH= 

000002 

c.cwo 

000006 

FL.LMC= 

♦**»««  GX 

T8LEN  = 

000034 

$FNPRO= 

****♦«  GX 

CH  MDT= 

000020 

C.CU1 

000010 

FL.MUX= 

»**«**  GX 

UN$CST= 

******  GX 

$FNSTA= 

»**♦♦*  GX 

CH.PAR= 

000100 

C.DPR 

000016 

OC.APR= 

******  GX 

UN$DPR= 

******  GX 

$OPRND= 

«***♦»  GX 

CH.PRM= 

000200 

C.LEN 

=  00002A 

0C.CST= 

»*♦.»*  GX 

UN$SCS= 

*♦***♦  GX 

SSCSR  = 

******  GX 

CH  PRT= 

000007 

CPRM 

=  *»«»**  GX 

0C.TRI= 

******  GX 

UC.CNT= 

******  GX 

SSEUNT 

000134RG 

CH  STA= 

000040 

C.STS 

=  »«**«*  GX 

OL.BAU= 

♦*♦*•*  GX 

WC.UNT= 

******  GX 

$STADR= 

******  GX 

CH.SVN= 

000004 

CUNT 

000004 

OL.DPR= 

******  GX 

$APR  = 

******  GX 

$SWICH= 

******  GX 

CH.TYP= 

000010 

DDM 

OOOOOOR 

OL.PLX= 

******  GX 

SBAUD  = 

******  GX 

$TMLST= 

******  GX 

CS  CNT  = 

****** 

GX 

END 

0001 32R 

OL.SEC= 

******  GX 

$CFERR= 

******  GX 

$UNTNM= 

******  GX 

CS.DDM= 

****** 

r,y 

FRRBAU 

000002R 

RATETB 

000076R 

$CNTNM= 

******  GX 

$WILD  = 

******  GX 

CS.MOD= 

r,x 

ERRSEC 

000034R 

SETSTA 

000564R 

$COST  = 

******  GX 

.FNSLT= 

♦«♦***  GX 

CS.UNTr 

****** 

GX 

EXSERR 

=  000002 

.  ABS. 

000024 
001020 

000 
001 

(RU,I, 
(RW.I, 

GBL.ABS.OVR) 
LCL,REL,CON) 

Error? 

detectec 

: 

0 

«»»  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  ooot : 
Ooeratir,g  system: 


0 

0 

10014   Words      {   40  Pages) 

14440  Words      (   55  Pages) 

RSX-11M/PLU5 


DB2:SETUNrf64?[132;i34]SETUNT/CR/-SP  =  DB2:[1,nRSXMC«.SML/ML,[130,110]NETLIB/ML,C132,10]SETUNT 


SETUNT 


CREATED  BY  MACRO  ON  12-AUG-85  AT  15:02 
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SETX?P  -  SET  X.25  LEVEL  3  PARAM  MACRO  V05.03b  Saturday  29-Jun-85 
Tabl"  ot  contents 


^5l?5 


86 
96 


LOCAL  DATA 

tSEX3P  -  SET  X.25  LfVEL  3  PARAMETERS 
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05:25 


112 
113 
1U 
115 

116  000000 

117  00004-; 

118  000111 

119  000165 

120  000202 

121  000243 

122  000276 
123 

124  000304 

125 

126  000311 

127 

128  000320 

129 

130  000322 

131 

132  000325 

133 

134  000334 

135 

136 

137 

138  000336 

139  000340 

140  000342 
I'.l  000352 
142  000362 
143 

144 
145 

146  '■■'JJ^'  2 

147  OuOyi'4 
••48  000376 
149  000400 
150 

151 
152 

153  000402 

154  000404 

155  000406 
156 

157 
158 

159  000410 

160  000414 

161  000420 

162  000424 

163  000430 

164  000434 

165  000440 

166  000444 
167 


000002 
002 
012 
012 
012 
040 
040 
123 

000006 
114 

000005 
104 

000007 
117 

000002 
117 

000003 
111 

000007 
077 

000001 


000165' 
000202' 
000243' 
000000 


000340' 
000342' 
000352' 


000002 
000007 
000003 
000001 
000001 
000001 
000001 
000001 


103 
117 
113 
117 
040 
040 
151 

157 

145 

156 

146 

156 


000320' 
000325' 
000322' 
000334' 
000334' 
000334' 
000334' 
000334' 


106  ERROBJ 

142  HEADR: 

156  HEADR1 

142  01MSG 

116  02MSG 

125  03MSG 

156  ONE: 

147  LOGIN: 

146  DEFALT 

ON: 

146  OFF: 

163  INSP: 

WHAT: 


HFLAG: 
MS1BLK 
MS28LK 
MS3BLK 
BUFR: 


.NLI5T 
.ENABL 
EXSERR 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCII 
ONEL=. 
.ASCII 
LOGINL 
.ASCII 
DFALTL 
.ASCII 
ONL=.- 
. ASCII 
OFFL=. 
.ASCII 
INSPL= 
.ASCII 
WHATL= 
.EVEN 

.BLKW 
.BLKW 
.8LKU 
.BLKW 
.BLK8 


BEX 

LC 
=  2 

<EX$ERR>/CFE  —  Object  not  in  configuration/ 

<12>/0bject  characteristics  as  „f  X?  Xil/ 

<12>/Known  objects  characteristics  as  of  XY  Xll/ 

<12>/0bject  =  JIM/ 

/  Name  =  X2R,  Verification  =  XVA/ 

/  User  =  XVA,  Copies  =  !!VA/ 

/Single/ 
-ONE 

/Login/ 
=. -LOGIN 

/Default/ 
=. -DEFALT 

/On/ 
ON 

/Off/ 
-OFF 

/Inspect/ 
.-INSP 

/?/ 
.-WHAT 


1 
1 
4 
4 
10 


HEADER  FLAG 

MESSAGE  1  ARGUMENT  BLOCK 
MESSAGE  2  ARGUMENT  BLOCK 
MESSAGE  3  ARGUMENT  BLOCK 
SCRATCH  BUFFER 


DEFINE  THE  INPUT  STRING  TABLE 


tSLI: 


.WORD 
.WORD 
.WORD 
.WORD 


01MSG 
02MSG 
03MSG 
0 


DEFINE  THE  ARGUMENT  BLOCK  TABLE 


TBL2: 


.WORD  MS18LK 
.WORD  MS28LK 
.WORD   MS36LK 


DEFINE  THE  VERIFICATION  STATES 


VTBL: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


ONL.ON 

INSPL.INSP 

OFFL.OFF 

WHATL.WHAT 

WHATL.WHAT 

WHATL.WHAT 

WHATL.WHAT 

WHATL.WHAT 


LEVEL  0 


LEVEL 

LEVEL  2 

LEVEL  3 

LEVEL  4 

LEVEL  5 

LEVEL  6 

LEVEL  7 
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SHOCIR  -  LIST  CIRCUIT  CHARACTER  MACRO  V05.03b  Thursday  29-Aug-85  11:51  Page  5 
tSHCIR  -  SHOW  CIRCUIT  CHARACTERISTICS 


252 
255 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 

264  002046 

265  002046 

266  002052 

267  002060 

268  002062 

269  002066 

270  002072 

271  002076 

272  002102 

273  002112 

274  002120 
275 

276 
277 

278  002122 

279  002126 

280  002132 
281 

282 

283  002134 

284  002142 

285  002144 

286  002150 

287  002156 

288  002160 

289  002166 

290  002170 

291  002176 

292  002200 

293  002206 
294 

295 
296 

297  002214 

298  002216 

299  002220 

300  002226 
30-'  002230 

302  002236 

303  002240 

304  002242 

305  002250 

306  002252 

307  002260 

308  002262 


012701 
032767 
001402 
012701 
012700 
012702 
004767 

032767 
001133 


012700 
004767 
103526 


032767 
001005 
005067 
052767 
010005 
026527 
001757 
122765 
001353 
016567 
012767 


011505 
001474 
122765 
001405 
032767 
001766 
000413 
032767 
001004 
02656? 
001355 
016567 


INPUT: 


OUTPUT 


.SBTTL  SSHCIR  -  SHOW  CIRCUIT  CHARACTERISTICS 
SSHCIR  -  SHOW  CIRCUIT  CHARACTERISTICS 

'$WILD  =  WILD  CARDS  PRESENT 

THE  CHARACTERISTICS  FOR  THE  CIRCUIT  IS  DISPLAYED. 


000002' 
OOOOOOG  OOOOOOG 

000050' 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 


SSHCIR: 


5$: 


MOV 

BIT 

BED 

MOV 

MOV 

MOV 

CALL 

PRINT 

BIT 

BNE 


#HEADR,R1 

#WC.NAM,$WILD 

5$ 

#HEADR1,R1 

#$8UFF,R0 

#$GTBUF,R2 

SEDMSG 

#$8UFF 

#FL.X25,$FLAGS 

65$ 


ASSUME  ONLY  1  CIRCUIT 

KNOWN  CIRCUITS  ? 

IF  EO,  NO  ..  OKAY 

ELSE,  DIFFERENT  HEADER 

POINT  TO  OUTPUT  BUFFER 

POINT  AT  ARGUMENT  BLOCK 

FORMAT  THE  HEADER 

PRINT  THE  HEADER 

PARSED  PSI  CIRCUIT  ID  ? 

IF  NE,  YES  -  SKIP  TRANSPORT 


SEARCH  FDR  THE  DDM  PROCESS  NAME 


OOOOOOG              MOV  #$TMLST,RO 

OOOOOOij        10$:    CALL  $FNPRO 

BCS  65$ 

BIT  #WC.NAM,$WILD 

;;;     BEQ  15$ 

OOOOOOG  OOOOOOG        BIT  #FL.TRI ,$FLAGS 

BNE  15$ 

OOOOOOG              CLR  $STAN 

OOOOOOG  OOOOOOG        BIS  *FL.TRI ,$FLAGS 

15$:    MOV  R0,fi5 

OOOOOOG  015355         CMP  C.PRM(R5) ,#*RDLM 

BEQ  10$           ; 

OOOOOOG  OOOOOOG        CMPB  #CS.DDM,C.S f J(R5) 

BNE  10$ 

OOOOOOG  OOOOOOG        MOV  C.PRM(R5) ,$DVNAM 

OOOOOOG  175564         MOV  #$TMLST,CURSLT  ; 

;  SEARCH  FOR  THE  RIGHT  CONTROLLER 

J0$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  25$: 


OOOOOOG  OOOOOOG  30$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  35$: 


MOV 

BEQ 

CMPB 

BLQ 

BIT 

BEQ 

BR 

BIT 

BNE 

CMP 

BNE 

MOV 


(R5),R5 

65$  ; 

#CS.CNT,C.STS(R5) 

30$ 

#WC.CNT,$UILD 

20$ 

40$ 

#WC.CNT,$WILD 

35$ 

C.PRM(R5),$CNTNM 

20$ 

C.PRM(R5),$CNTNM 


GET  START  OF  TEMPLATES 

FIND  THE  DDM  TEMPLATE 

IF  CS,  NO  MORE 

IS  THIS  FOR  ALL  CIRCUITS  ? 

IF  EQ,  NO 

USER  SPECIFIED  A  TRIB? 

YES,  LEAVE  IT 

MATCH  ON  FIRST  (ONLY?)  TRIB 

ELSE,  INCLUDE  TRIBUTARY  INFO. 

SAVE  TEMPLATE  ADDRESS 
;  IS  THIS  THE  DLM  DDM  TEMPLATE  ? 

IF  EQ,  SKIP  NOW  -  SPECIAL  CASE  LATER 

;  IS  IT  A  DDM  TEMPLATE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 
;  STORE  THE  DDM  PROCESS  NAME 

GET  NEXT  SLT  FROM  START  OF  LIST 


GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  A  CONTROLLER  TEMPLATE  ? 

IF  EQ,  YES  ..  OKAY 

ELSE,  IS  IT  ALL  CONTROLLERS  ? 

IF  EQ,  NO  ..  LOOK  FOR  CONTROLLER 

ELSE,  MAYBE  A  UNIT  TEMPLATE 

ALL  CONTROLLERS  ? 

IF  NE,  YES 
;  IS  THIS  THE  RIGHT  CONTROLLER  ? 

IF  NE,  NO  ..  KEEP  LOOKING 
;  UPDATE  CONTROLLER  NUMBER 
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851  005112 

852  005116 

853  005122 

854  005130 

855  005152 

856  005UO 

857  005U4 
858 

859 
860 

861  005150 

862  0051 5A 
865  005162 
86'.  005 16A 

865  005166 

866  005172 

867  0051 7A 

868  005202 

869  005206 

870  005212 

871  0052U 

872  005220 

873  005222 
874 

875 
876 

877  005224 

878  005250 

879  005234 
880 

881  005256 
882 


016746 
005067 
032765 
001403 
052767 
004767 
012667 


005067 
026427 
001020 
010546 
004767 
103413 
012767 
012705 
116525 
105023 
016523 
005025 
012605 


012703 
004767 
012603 

000207 


OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

176402 

OOOOOOG 


174512 
OOOOOOG  015555 


177150 

000707'  174464 

002022' 

OOOOOOG 

OOOOOOG 


■(SP) 


90$; 


MOV  SFLAGS, 

CLR  SFLAGS         ; 

BIT  #CS.UNI,C.STS(R5) 

BEQ  90$ 

BIS  #fL.MUX,$FLAGS 

CALL  rMTLN2 

MOV  (SP)+,$fLAGS 


SAVE  FLAGS 

CLEAR  LINE  OPTIONS  FLAG 

;  MUX  LINE  ? 

IF  EQ,  NOPE 

ELSE  FORMAT  UNIT  NUMBER 

FORMAT  THE  LINE  ID 

RESTORE  FLAGS 


DLM  PVC  -  GET  THE  COST.  HELLO  TIMER 


95$: 


CLR  PVCSW 

CMP  P$V0WN(R4),#*RDLM 

BNE  1 00$ 

MOV  R5,-(SP) 

CALL  GETSTA 

BCS  95$ 

MOV  #PVCMS6, PVCSW 

MOV  #PVCBL6,R5 

M0V8  S$TCST(R5),(R5)+ 

CLRB  (R3)+ 

MOV  S$THTM(R5),(R3)+ 

CLR  (R5)+ 

MOV  (SP)+,R5 


PRINT  THE  PVC  CHARACTERISTICS 


001642' 
000004 


100$ 
110$ 
120$ 


MOV 

CALL 

MOV 

RETURN 


#PVCTBL,R5 

PRINT 

(SP)+,R5 


ASSUME  NOT  DLM  PVC 
;  CHECK  FOR  DLM 
IF  NE,  NOT  DLM 
PUSH  R5 
GET  STATION 
NO  STATION  TEMPLATE  ? 
ELSE  PRINT  STATION  INFO 
POINT  TO  ARG  BLOCK 
;  SET  COST, 

;  HELLO  TIMER, 
NO  MORE  LISTEN  TIMER. 
RESTORE  R5 


POINT  TO  CONTROL  TABLE 
PRINT  IT 
RESTORE  R5 


n   13 
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SHOEXE  -  LIST  EXECUTOR  OPTIONS  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  DEFINITIONS 


D5i2 
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110 

111 

112  000022 

113 

IK  000000 

115  000002 

116  OOOOOA 

117  000010 

118  000012 

119  000052 

120  000054 
121 

122  000000 

12? 

12^;  000000 

125 

126 

127 

128  000056 

129 

130  000000 

131  000002 

132  000004 

133  000006 

134  000010 

135  000012 

136  00001 A 

137  000016 

138  000020 

139  000022 
UO  000024 
141 

142  000002 

143 

144 

145 

146 

147  000002 

148  000037 

149  000074 

150  000124 

151  000157 

152  000215 

153  000264 

154  000314 

155  000332 

156  000^51 

157  000364 

158  000406 

159  000424 

160  000434 

161  000516 

162  000564 

163  000613 

164  000646 

165  00C716 

166  001007 


000000 


000C56 


000000 


000026 


000002 
002 
002 
002 
002 
002 
012 
012 
040 
040 
040 
040 
040 
040 
040 
040 
054 
040 
040 
040 
040 


103 
103 
103 
103 
103 
105 
040 
040 
101 
110 
101 
110 
050 
040 
040 
040 
040 
040 
040 
040 


;  DEFINE  NODE  TEMPLATE 


.ASECT 

.=0 

.8LKW 

1 

.8LKW 

1 

C.NAM: 

.8LKW 

2 

C.NID: 

.BLKW 

1 

.BLKB 

V. 

C.NUM: 

.BLKW 

■* 

CMOS: 

.BLKW 

1 

C.LEN=. 

.PSECT 
TEMP:    .BLKW   1 
;  DEFINE  ROUTING  TEMPLATE 


C.ADD 


106 
106 
106 
106 
106 
170 
040 
116 
144 
157 
144 
157 
045 
115 
124 
115 
123 
115 
122 
102 


CST 
.HOP 


C.RTM 


NA: 
C.NBEA 
C.AHOP 
C.ACST 
C.L2TM 
C.LEN= 


ERRXPT 
ERRECL 
ERRDEC 
ERRNOD 
ERRROU 
HEADR: 
IDMSG: 
NAMMSG 
ADDMSG 
HSTMSG 
ADDMS2 
HSTMS2 
HSTNAM 
HOSMSG 
VFYMSG 
VFVCOM 
ECLSEG 
ROUMSG 


.ASECT 

.=0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.8LKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.PSECT 

.NLIST 
.ENA8L 
EXSERR 
.ASCI7 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCII 
.ASCIZ 


C.LNK 

C.STS 

NODE  NAME 

NODE  ID 

LENGTH  AND  STRING 

NODE  ADDRESS 

HOST  NODE  ADDRESS 


ADDRESS  OF  REMOTE  TEMPLATE 


C.LNK 

C.STS 

MAXIMUM  NODE  ADDRESS 

MAXIMUM  COST  ALLOWED 

MAXIMUM  NUMBER  OF  HOPS  ALLOWED 

ROUTING  TIMER 

NUMBER  OF  AREAS 

NUMBER  BRO  ENDNODE  ADJACENCIES 

AREA  HOPS 

AREA  COST 

LEVEL  2  TIMER 


BEX 
LC 
=  2 
<EX$ERR>/CFE  — 
<EX$ERR>/CFE  — 
<EX$ERR>/CFE  - 
<EX$ERR>/CFE  — 

<EX$ERR>/CFE  —  .,^  .v.^.,.,m  ^^ 

<12>/Executor  characteristics  as  of  JtV  3!3Z/ 

<12>/  Identification  =  XVA/ 

/  Name  =  3i2R,/ 

/  Address  =  XM,/ 

/  Host  =  xn/ 

I   Address  =  XM.XM,/ 

/  Host  =  XM.XM/ 

/  (5!2R),/ 

/  Maximum  Links 

/ 

/ 

/ 

/ 

/ 

/ 


No  XPT  process  macro/ 
No  ECL  process  macro/ 
No  DECSDF  macro/ 
No  node  definition/ 
No  routing  definition/ 


nadirMuiri  Liiirs  -  XM ,  Maximum  node  counters  =  XM/ 

Type  =  5£VA,  Verification  state  =  XVA/ 

Maximum  address  =  5!M/ 

Segment  buffer  size  =  VM 

Maximum  cost  =  XM,  Maximum  hops  =  5!MXN/ 

Routing  timer  =  XM,  Maximum  broadcast  nonrouters  =  XMXN/ 

Broadcast  routing  timer  =  XM/ 
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SHOEXE     CREATED  BV  MACRO  ON  29-JUN-85  AT  05:26 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


HSTNAM 

IDMSG 

MSGBLK 

NAMMSG 

NfSACC 

NF.ACC 

NF.END 

NF.LV? 

OFF 

PRINT 

PUTADR 

PUTHST 

PSSTHl 

PSSTLO 

RETMSG 

ROUMSG 

ROUTMP 

R02MSG 

SEG5I7 

SUBBA 

SUBBA2 

TEMP 

TIMMSG 

VFYCOM 

VFYMSG 

SBUFF 

SCFERR 

SCNFIG 

SEDMSG 

SGTBUF 

SPRINT 

SPSIPT 

SRDBSZ 

SSHEXf 

ITMLST 

$$$ 

$$Sl 


000;2A  R 
00026A  R 
00U60  R 


0003K 
100000 
000001 
000200 
000100 
00K52 
002744 


002772 
00310A 


001352 
000646 
00K56  R 
001046  R 
003056  R 
001154  R 


GX 
GX 


001201 
000000  R 
001230  R 
000564  R 
000516  R 
•»»»••   GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

001500  RG 
.»»...   GX 
000023  R 

000015 


z       *•♦♦•* 


****** 


REFERENCES 

*4-159 
#4-153 
#4-183 

5-389 
#4-154 

5-364 

5-362 

5-354 

5-351 
#4-175 

5-279 
#6-453 

5-290 

5-292 

5-423 

5-417 
#4-173 
#4-164 
#4-182 
#4-167 

5-376 
#4-169 
#4-170 
#4-124 
#4-171 
#4-162 
#4-161 

5-201 

5-430 

5-351 

5-203 

5-202 

5-204 

5-408 

8-514 
#5-199 

5-205 
#4-175 
#4-179 
#4-175 

4-180 


8-556 
5-278 
5-270 
5-397 
5-287 


5-395 
5-359 
5-303 
8-515 
#7-475 
#8-532 


5-344 
5-390 

•5-217 
5-403 

#8-509 
5-419 
5-413 

5-302 
•5-369 
5-374 
5-204 
5-432 
5-354 
5-288 

5-293 


5-250 
4-175 
4-179 
4-175 


5-283 
5-402 


5-311 
8-533 


5-370 


•5-422 


•5-373 

5-286 
5-434 
5-395 
6-456 

6-457 


5-263 

4-175 

4-179 

#4-176 


L  15 
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5-297 
5-412 


5-335 


5-383 


5-380 

5-293 
5-436 

7-496 


8-539 
#4-176 
#4-180 

4-176 


5-307 

5-315 

5-339 

5-?^? 

6-455 

7-477 

8-511 

8-553 

5-345 


5-398 


5-375 


5-391 


5-404 


5-382 


5-424 


6-454 
5-438 

8-557 


4-176 

4-180 

#4-178 


6-457 


4-176 
4-180 
4-178 


#4-178 
#4-179 


4-178 
4-179 


4-178 
#4-180 


SHOEXE 


CREATED  BY     MACRO     ON  29-JUN-85   AT   05:26 
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SMOLlN 

GETUNT 


LIST   LINE   CHARArrERIST  MACRO  V05.03b  Saturday  29-Jun-85  05:26 
GET    THE    UNIT    INFORMATION 


W:^e 
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420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 

435  002260 

436  002266 

437  002272 
458  002274 

439  002276 

440  002302 

441  002306 
442 

443 
444 

445  002314 

446  002322 

447  002330 

448  002336 
4'.9  002340 
450  002346 
451 

452 
453 

454  002354 

455  0C2362 

456  002370 

457  002374 

458  002376 

459  002402 

460  002406 

461  002410 

462  002412 

463  002416 

464  002422 

465  002426 

466  00243C 

467  C02434 

468  002440 
469 

470 
471 

472  002444 

473  002450 

474  002454 

475  002460 

476  002464 


.SSTTL 
»*•  -  GETUNT 
INPUT 


GETUNT  -  GET  THE  UNIT  INFORMATION 
-  GET  THE  UNIT  CHARACTERISTICS 


R5  =  ADDRESS  OF  THE  CURRENT  UNIT  DEFINITION 

OUTPUT: 

UNTBLK  =  DUPLEX 

UNT8LK»4  =  THE  LINE  SPEED  FOR  THIS  LINE 

UNTSLKtlO  =  PROTOCOL  (LAPS  OR  DDCMP) 

OPTBLK  =  SECONDARY  CSR  AND/OR  DEAD  POLLING  RATIO 


012767  000013  175612 

012703  001446' 

005023 

005013 

005063  000002 

005063  000004 

112767  000040  176707 


012767  000004  177110 

012767  000730"  177104 

032765  000001  000006 

001406 

012767  000004  177064 

012767  000734'  177060 


012767  000005  177054 

012767  000754'  177050 

016501  000006 

000501 

042701  177760 

020127  000017 

001416 

006301 

016101  000000' 

012700  001252' 

010067  177012 

005002 

004767  OOOOOOG 

166700  177000 

010067  176772 


012700  001264' 

016701  OOOOOOC 

004767  OOOOOOG 

016500  000010 

042700  177770 


GETUNT: 


MOV 
MOV 
CLR 
CLR 
CLR 
CLR 

Move 


#0P.CNT10P.UNT!0P.STA,DSP0PT  ;  DISPLAY  CONTROLLER  AND  UNIT  INFO 


*0PTBLK,R3 
(R3)  + 
(R3) 
2(R3) 
4(R3) 
#'  ,CSR 


•  DUPLEX 

MOV 

#FULLN, UNTBLK 

MOV 

#FULL,UNTBLKt2  ; 

BIT 

*CH.DUP,C.CW0(R5) 

BED 

10$ 

MOV 

#HALFLN, UNTBLK   ; 

MOV 

#HALF,UNTBLKt2   , 

■  LINE  SPEED 

10$:    MOV 

*HISPDL,UNTBLK+4 

MOV 

#HISPD,UNTBLK+6  . 

MOV 

C.CW0(R5),R1 

SWAB 

Rl 

BIC 

#"C<17>,R1 

CMP 

R1.«17 

BEQ 

20i 

ASL 

Rl 

MOV 

RATETB(R1),R1 

MOV 

#SCRACH,RO 

MOV 

R0,UNTBLKt6 

CLR 

R2 

CALL 

SCBDMG 

SUB 

UNT8LK*6,R0 

MOV 

R0,UNTBLKt4 

•  PROTOCOL  TYPE 

POINT  AT  OPTIONAL  INFO  BLOCK 
CLEAR  OUT  FIRST  HALF  OF  BLOCK 

AND  SECOND  HALF  OF  BLOCK 

ASSUME  ONLY  SECONDARY  CSR  IN  OPTIONAL  DATA 


ASSUME  FULL  DUPLEX  DEVICE 


J0$: 


MOV 

MOV 

CALL 

MOV 

BIC 


*HWP,RO 

$DVNAM»LSNAM,R1 

$C5TA 

C.CW1(R5),R0 

**C7,R0 


;  FULL  DUPLEX  DEVICE 
IF  EQ,  YES  ..  OKAY 
ELSE,  HALF  DUPLEX 


:  ASSUME  HIGH  SPEED  DEVICE 

GET  CHARACTERISTICS  WORD  #0 
GET  THE  TRANS  SPEED  INDEX 

HIGH  SPEED  DEVICE  ? 

CONVERT  TO  A  WORD  INDEX 
GET  SPEED  FROM  TABLE 
POINT  AT  SCRACH  BUFFER 
SAVE  START  ADDRESSOF  BUFFER 
ZERO  SUPPRESSION 
CONVERT  TO  ASCII 
CALCULATE  LENGTH  OF  BUFFER 
SAVE  IT  IN  ARGUMENT  BUFFER 


POINT  TO  DDM  NAME  BUFFER 

GET  DEVICE  NAME 

CONVERT  IN  CASE  HARDWARE  PROTOCOL 

GET  CHARACTERISTICS 

ISOLATE  PROTOCOL  TYPE 


M  16 
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Chic«1UL   -   CHECK    FOR  WULTICOPV    MSKNAME 

;    ELSE    SET   FLAG 
ALID   FOR   NUMNER   OF    COPIES   ? 


313  001220 

005201 

3U 

3^5 

3'fc 

3^^  00^222 

005702 

3^8  00122'. 

100403 

319  0CV26 

005701 

320  001230 

001004 

321  00'232 

0004 D2 

322 

523  001234 

005701 

324  001236 

001401 

32  = 

326  001 2A0 

000261 

32^ 

328  :0'2A2 

000207 

32^- 

33C 

000001 

INC 

R1 

;  IS 

TASKNAMt 

ALID 

50$: 

TST 
9MI 
TST 

R2 

35$: 

TST 
BEQ 

Rl 
50$ 

40$: 

SEC 

50$: 

RETURN 
.END 

PARSED  A  MULTICOPY   NAME    ? 

IF  MI,  NO 

ELSE  VES  -  MULTIPLE  COPIES  SPECIFIED 

IF  NE,  YES  -  SUCCESS 

ELSE  SET  CARRY 

MULTl  COPIES  SPECIFIED 
IF  EQ,  NO  -  SUCCESS 

OTHERWISE  ERROR 


N  1 
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SETPRO  -  SET  PROCESS  OPTIONS 
MACRO  DEFINITIONS 

53 
54 
55 
56 
57  000000 
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000000 

oocooo 

000002 
000004 
000006 
000010 
000011 
000012 
000014 
000015 
000016 

000000 


000000 


58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

9C 


000020 

000012 
000013 


000002 


.SBTTL 
.MCALL 
LLCTPS  LIST 


MACRO  DEFINITIONS 
LLCTPS 


;■  DEFINE  LLC  TEMPLATE 

.ASECT 

.=0 

.BLKW 

.BLKW 

C.NAM 

.BLKU 

C.fLG 

.BLKU 

C.PRI 

.BLKB 

C.LIN 

.8LKB 

C.DEV 

.BLKW 

C.NLT 

.BLKB 

C.EXT 

.BLKB 

C.CTM 

.BLKW 

CL.LEI\I=. 

.PSECT 

C.NLTD  =  12 

C.NCTD  =  13 

■  **** 

;  LOCAL  MACROS 

■  **** 

.MACRO 

PRINT 

MOV 

TEXT.RO 

CALL 

SPRJNT 

.ENDM 

PRINT 

DEFINE  LLCSDF  TEMPLATE  OFFSETS 


C.LNK 

C.STS 

LLC  PROCESS  NAME 

LLC  FLAGS  WORD 

LLC  PROCESS  PRIORITY 

NUMBER  OF  LINES  ASSIGNED  TO  THIS  LLC 

PSEUDO  DEVICE  NAME  FOR  THIS  LLC 

NUMBER  OF  LINE  TABLE  TO  ALLOCATE 

PROCESS  EXTENSION  IN  BLOCKS 

COUNTER  TIMER 


NLT  FOR  ODM/DLC  PROCESSES 
NCT  FOR  DDM/DLC  PROCESSES 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


TEXT 


.MACRO  ERRORS  TEXT 

THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENDM  ERRORS 

.MACRO  EPRINT  TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 

.NLIST  BEX 
.ENABL  LC 
EXSERR  =  2 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 


SEIPRC  -  SET  PROCESS  OPTIONS 


N 
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SETP.  -  ui  PVr  PARAMETERS 
SSEPVC  -  SET  PVC  PARAMETERS 


N  3 

MACRO  V05.03b  Saturday  29-Jun-85  05:23  Page  5-2 


220  001064 

221  001072 

222  001074 
225  001102 

224  001104 

225  001110 
226 

227  001112 

228  001114 
229 

230 
231 
232 

233  001116 

234  001122 
235 

236  001124 

237  001130 
238 

239  001132 

240  001136 
241 

242  001140 

243  001144 
244 

245  001146 

246  001154 

247  001156 

248  001160 

249  001164 

250  001170 

251  001174 
252 

253  001200 

254  001206 

255  001210 
256 

257 


022767 
001407 
032767 
001003 
005767 
001413 

000241 
000207 


OOOOOOG  OOOOOOG  75$: 
OOOCOOC  OOOOOOG 
177214        77$: 

80$: 


CMP 
BEQ 
BIT 
BNE 
TST 
8EQ 

CLC 
RETURN 


#CO.KNC,$COMP 
80$ 


KNOWN  CIRCUITS 
IF  EO,  YES 


#yC.CNTlWC.UNTIWC.TRI,$UILD  ;  WILDCARD/KNOWN  OPERATION 


80$ 

FOUND 

101$ 


ERROR  CONDITIONS 


012705  000145' 
000426 

012705  000106' 
000423 

012705  OOOOOOG 
000420 

012705  000000' 
00041' 

0327t.  .COOOG  OOOOOOG 

001407 

010002 

012701  000001G 

012700  OOOOOOG 

004767  OOOOOOG 

012705  000045' 


000261 
000207 


100$: 
103$: 
104$: 
101$: 
110$: 


115$: 
120$: 


MOV 
BR 

MOV 
BR 

MOV 
BR 

MOV 
BR 

BIT 

BEQ 

MOV 

MOV 

MOV 

CALL 

MOV 

ERROR$ 

SEC 

RETURN 


#ERRCHN,R5 
120$ 

#ERRPAR,R5 
120$ 

#ERRALL,R5 
120$ 

*ERRPVC,R5 
120$ 

#FL.CRE,$FLAGS 

115$ 

R0,R2 

*P$VLEN,R1 

#$XXAVL,RO 

$RLBF 

*ERRDTE,R5 

R5 


IF  NE,  OK  IF  NOTHING  FOUND 
ELSE  WAS  IT  FOUND  ? 
IF  NE,  NO  -  ERROR 

RETURN  SUCCESS 


CHANNEL  NUMBER  MISSING 


DTE  MISSING 


ALLOCATION  FAILURE 


;    PVC   NOT   FOUND 


CREATED  TEMPLATE? 
IF  EO,  NO 

COPY  TEMPLATE  POINTER 
LENGTH  TO  RETURN 
POINT  TO  FREE  LIST 
RELEASE  CORE  BLOCK 
NO  SUCH  DTE 

PRINT  ERROR  MESSAGE 
RETURN  ERROR 


N  3 


SETPVC  -  SET  PVC  PARAMETERS 


MACRO  V05.0?b  Saturday  29-Jun-85  05:23  Page  6 


M  4 
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SSEREM  -  UPDATE  REMOTE  DEFINITION 


5 


179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 

191  000046 

192  000046 

193  000052 

194  000054 

195  000056 

196  000064 
197 

198 
199 

200  000066 

201  000070 

202  000072 

203  000100 

204  000102 

205  000110 
206 

207 
208 

209  000112 

210  000120 

211  000122 

212  000130 

213  000136 
214 

215 
216 

217  000140 

218  000144 

219  000150 

220  000154 

221  000156 

222  000166 

223  000170 

224  000176 

225  000204 

226  000212 

227  000220 

228  000222 

229  000226 

230  000232 

231  000236 

232  000244 

233  000250 

234  000254 

235  000262 


012700 
011000 
001507 
122760 
001372 


011000 
001423 
122760 
001372 
026760 
001366 


032767 
001463 
016760 
016760 
000454 


.SBTTL  SSEREH  -  UPDATE  REMOTE  DEFINITION 
SSEREM  -  UPDATE  REMOTE  DEFINITION 


INPUT: 


NONE. 


OUTPUT: 


THE  REMOTE  TEMPLATE  IS  MODIFIED 


OOOOOOG 


SSEREM:: 
5$: 


OOOOOOG  OOOOOOG 


MOV 

MOV 

BEQ 

CMP8 

BNE 


#$TMLST,RO     ;  GET  START  OF  TEMPLATES 

(R0),RO        ;  GET  NEXT  TEMPLATE 

60$  ;  NO  DECSDF  MEANS  PSI  ONLY,  DON'T  ALLOW  SET 

*CS.DEC,C.STS(RO)  ;  FOUND  THE  DECSDF  TEMPLATE  YET? 

5S  ;  IF  NE,  NO,  KEEP  LOOKING 

ELSE,  FOUND  IT,  GO  SEARCH  FOR  REMOTE 


OOOOOOG  OOOOOOG 
OOOOOOG  000010 

OOOOOOG  OOOOOOG 

OOOOOOG  000004 
000002G  000006 


SEARCH  FOR  THE  REMOTE  TEMPLATE 

iOS:    MOV  (RO),RO 

BEQ  20S  ; 

CMPB  #CS.REM,C.STS(RO) 

BNE  IOS 

CMP  SNODAD,C.ADD(R0) 

BNE  1  OS 


GET  NEXT  TEMPLATE 

IF  EQ,  NOT  IN  LIST  ..  MAKE  NEW  ENTRY 
;  IS  THIS  A  REMOTE  TEMPLATE  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
:  IS  THIS  THE  RIGHT  TEMPLATE  ? 
IF  NE,  NO  ..  KEEP  LOOKING 


FOUND  THE  REMOTE  DEFINITION 


BIT  #RN.NAM,SOPRND  ;  REMOTE  NAME  PARSED  ? 

BEQ  50S  ;    NOPE 

MOV  $NODNA,C.NAM(R0)    ;    STORE   THE   NEW  NODE   NAME 

MOV  SNODNA+2,C.NAM+2(R0)    ;      ... 

BR  50S  ;   AND  LEAVE 


CREATE   A  NEW  REMOTE    TEMPLATE 


012700 
012701 
004767 
103:05 

000440 
012760 
016760 
016760 
032767 
001006 
016746 
042716 
052667 
016760 
004767 
004767 
062767 
062767 


OOOOOOG 

000012 

OOOOOOG 


50S: 


OOOOOOG  OOOOOOG   30S: 
OOOOOOG  000004 
000002G  000006 
176000     OOOOOOG 

OOOOOOG 

001777 

OOOOOOG 

OOOOOOG  000010     55$: 

000026 

OOOOOOG 

OOOOOOG  OOOOf^'^1 

OOOOOOG  OOC 


MOV  #$XXAVL,RO 

MOV  #C.LEN,R1 

CALL  SRQBF 

BCC  30$ 

ERROR$  #ERRBUF 

BR  50$  , 

MOV  #CS.REM,C.STS(R05 

MOV  SNODNA,C.NAM(R0) 

MOV  SNODNAt2,C.NAM+2( 

BIT  **C1023.,$NODAD 

BNE  35$ 

MOV  $NTADP,-(SP) 

BIC  #1023. .(SP) 

BIS  CSP)+,$NODAD 

MOV  $NODAD,C.ADD(R0) 

CALL  FINREM 

CALL  $QINSN 

ADD  #R.LENX,$BVTMN 

ADD  #R.LENX,$BYTXT 


POINT  AT  END  OF  TASK  LISTHEAD 

GET  LENGTH  OF  A  REMOTE  TEMPLATE 

TRY  TO  ALLOCATE  A  TEMPLATE 

IF  CC,  OKAY  GOT  ONE 

ALLOCATION  FAILURE 

AND  LEAVE 

;  INDICATE  THAT  THIS  IS  A  REMOTE  TEMPLATE 
;  STORE  THE  REMOTE  NAME 
RO)  ;   ... 

AREA  SPECIFIED  ? 

IF  NE,  YES  -  USE  IT 

ELSE  PUSH  EXEC  ADDRESS 

ISOLATE  AREA  BITS 

DO  WHAT  HE  MEANS,  NOT  WHAT  HE  SAYS 
;  STORE  THE  NODE  ADDRESS 

FIND  WHERE  REMOTE  SHOULD  GO 

INSERT  ENTRY  IN  LIST 

UPDATE  POOL  BYTE  EXTENSION  MINIMUM 

AND  CURRENT  POOL  BYTE  VALUE 
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SETREM 

CREATED  BY 

MACRO  ON  1 

-JUL-85   AT 

16:37 

PAGE  2 

SYMBOL 

ROSS  REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

SF.DEV 

=  000020 

#4-136 

7-295 

SF.DPA 

=  000100 

#4-138 

7-297 

SF.DPC 

=  000200 

#4-139 

7-298 

SF.HAD 

=  000004 

#4-134 

7-300 

SF.HST 

=  000002 

#4-133 

7-294 

SF.PH3 

=  OOO'iOO 

#4-140 

7-296 

SF.PSS 

=  OOOOAO 

#.-137 

7-301 

SSADD 

000006 

#H-119 

12-511 

♦12-527 

StCIR 

000022 

#4-122 

7-299 

SSDEV 

000032 

#4-123 

7-295 

S$DPA 

000050 

#4-125 

7-297 

SSDPC 

000054 

#4-126 

7-298 

S$FLG 

000004 

#4-118 

7-296 

♦8-327 

♦12-528 

SSHAD 

000012 

#4-1 21 

7-300 

S$HST 

000010 

#4-120 

7-294 

S$LEN 

=  000056 

#4-127 

12-523 

SSPSS 

000034 

#4-124 

7-301 

S.LENX 

=   ****** 

GX 

12-532 

12-533 

UPDDLL 

000332 

R 

5-236 

#7-274 

SBYTMN 

3  ****** 

GX 

♦5-234 

*8-375 

♦9-412 

♦12-532 

SBYTXT 

~   ****** 

GX 

*5-235 

*8-376 

♦9-413 

♦12-533 

SCFERR 

-   ****** 

GX 

5-221 

11-474 

12-553 

SFILHD 

=   ****** 

GX 

9-400 

10-435 

11-470 

♦11-471 

SNODAD 

-   ****** 

GX 

5-204 

5-226 

♦5-230 

5-231 

SNODNA 

-   ****** 

GX 

5-211 

5-212 

5-224 

5-225 

tNTADD 

3   ****** 

GX 

5-228 

SOPRND 

=   ****** 

GX 

5-209 

7-274 

7-285 

SOINSN 

=   ****** 

GX 

5-233 

12-531 

12-546 

SRLBF 

=  ****** 

GX 

9-410 

SRNDCP 

=  ****** 

GX 

7-298 

SRNDIA 

=   ****** 

GX 

7-305 

SRNDMP 

=   ****** 

GX 

7-306 

SRNDPA 

3   ****** 

GX 

7-297 

SRNHAR 

-   ****** 

GX 

7-300 

SRNHOS 

-   ****** 

GX 

7-294 

SRNLOD 

-   ****** 

GX 

7-304 

SRNSCI 

~       ****** 

GX 

7-299 

SRNSDV 

=       ****** 

GX 

7-295 

SRNSLO 

-   ****** 

GX 

7-302 

SRNSPA 

=   ****** 

GX 

7-301 

SRNTLO 

-   ****** 

GX 

7-303 

$RQBF 

z:  ****** 

GX 

5-219 

11-467 

12-524 

12-537 

SSAVAL 

=  ****** 

GX 

9-396 

10-434 

SSAVVR 

=     •*♦♦** 

GX 

n-464 

SSEREM 

000046 

RG 

#5-191 

SSWICH 

-   *♦***■* 

GX 

7-296 

STMLST 

r  ****** 

GX 

5-192 

6-253 

12-506 

SXXAVL 

=  ****** 

GX 

5-217 

9-407 

11-465 

12-522 

.CONER 

r  *♦***» 

GX 

9-416 

12-551 

.EXIT 

r  *«■**** 

GX 

n-475 

12-;54 

12-535 
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A46 
^A7 
4A8 
AA9 
450 
A51 
A52 
A53 
454 
455 

456  001334 

457  001334 

458  001340 

459  001344 

460  001350 
461 

462  001354 

463  001362 

464  001364 

465  001372 

466  001374 

467  001402 

468  001404 

469  001410 
470 

471  001412 

472  001416 

473  001420 

474  001422 

475  001426 

476  001430 

477  001432 

478  001440 

479  001442 

480  001446 
481 

482  001450 

483  001454 
484 

485  001462 

486  001466 

487  001470 

488  001476 

489  001500 

490  001502 

491  001504 

492  001512 

493  001514 
494 

495  001516 

496  001522 

497  001524 

498  001526 

499  001534 
500 

501  001536 

502  001546 


.SBTTL  CHKSTA  -  CHECK  LINE/CIRCUIT  STATES 

•♦-CHKSTA-CHECK  LJNE/CIRCUIT  STATES 

THIS  ROUTINE  CHECKS  FOR  MULTIPLE  ACTIVE  LINES 
ON  ENDNODES. 

ALL  REGISTERS  ARE  PR  jERVED. 


004567 
016746 
016746 
016746 

032767 
001473 
032767 
001467 
032767 
001463 
005767 
001052 

016705 
005004 
005003 
004767 
103451 
010504 
032767 
001403 
004767 
010503 

016705 
012767 

004767 
103431 
032767 
001007 
020504 
001767 
032765 
001011 
000762 

004767 
020503 
001756 
132765 
001752 


000261 


CHKSTA: 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOnOG 

OOOOOOC  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG        10$: 
OOOOOOG  OOOOOOG 

OOOOOOG       20$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  30$: 

OOOOOOG  OOOOOOG 

40$: 


JSR 
MOV 
MOV 
MOV 

BIT 
BEQ 
BIT 
BEQ 
BIT 
BEQ 
TST 
BNF 

MOV 

CLR 

CLR 

CALL 

BCS 

MOV 

BIT 

BEQ 

CALL 

MOV 

MOV 
MOV 

CALL 

BCS 

BIT 

BNE 

CMP 

BEQ 

BIT 

BNE 

BR 

CALL 

CMP 

BEQ 

BITS 

BEQ 

ERRORS 
SEC 


R5,$SAVRG 
$FLAGS,-(SP) 
$STAN,-(SP) 
$UILD,-(SP) 


SAVE  REGISTERS 
SAVE  PARSE  FLAGS 
..STATION  NUMBER 
..WILDCARDS 


#OC.STAIOL.STA,$0PRND  ;  STATE  CHANGE  REQUESTED 


70$ 

#NF.END,$CNFIG 

70$ 

#SW.ENA,$SW1CH 

70$ 

$UILD 

40$ 

$TMLST,R5 

R4 

R3 

.FNSLT 

70$ 

R5,R4 

#LF.f1TP,$FLAGS 

10$ 

$FNSTA 

R5,R3 

$TMLST,R5 
#UC.CIR,$UILD 


.FNSLT 

70$ 

#FL.MTP,SFLAGS 

30$ 

R5,R4 

20$  , 

#LF.ENA,SSLFLG(R5) 

40$ 

20$ 


NO 

IS  THIS  AN  END  NODE  ? 

NO 

REQUESTED  STATE  =  ON  ? 

NO 

WILDCARDS  SPECIFIED  ? 

IF  NE,  YES  -  ERROR 

POINT  TO  FIRST  TEMPLATE 

NO  SLT  POINTER  YET 

OR  TRIS  POINTER,  EITHER 

LOCATE  TARGET  SLT 

SHOULDN'T  EVER  HAPPEN,  BUT... 

SAVE  TARGET  SLT  ADDRESS 

IS  IT  MULTIPOINT  ? 

IF  EQ,  NO 

ELSE  LOCATE  STATION 

SAVE  STATION  ADDRESS 

POINT  TO  FIRST  TEMPLATE 
SCAN  WILDCARD  CIRCUITS 

LOOK  FOR  NEXT  SLT 

IF  CS,  END  OF  THE  LINE  AND  NO  ERROR 

MULTIPOINT  CIRCUIT  ? 

IF  NE,  YES 

IS  THIS  THE  TARGET  CIRCUIT  ? 

IF  EQ,  IT  IS  -  DON'T  CARE 

;  ELSE,  IS  IT  ALREADY  ON  ? 
IF  NE,  YES  -  ERROR 
CONTINUE 


SFNSTA         ;  LOCATE  STATION  TEMPLATE 
R5,R3  ;  IS  THIS  THE  TARGET  CIRCUIT 

20i  ;  YES  -  DON'T  CARE 

*SF.ENA,S$TFLG(R5)  ;  STATION  ALREADY  ACTIVE  ? 
20$  ;  NO  -  ONWARD 


#ERRSTA 


ERROR  -  WILDCARDS  NOT  ALLOWED 
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CO  KNC= 

*.*»»»  Gx 

OC  .LISG= 

******  GX 

S$DTE 

000020 

S$VFLG= 

****** 

GX 

$FLAGS= 

******  GX 

CS  SVC" 

******  QX 

SCR 

00011  OR 

SSFLG 

000010 

S$VNAM= 

****** 

GX 

$FNSLT= 

******  GX 

C  STS  - 

*♦♦«*•  GX 

SF$BLK= 

000001 

S$LEN 

000032 

S$VPSZ= 

****** 

GX 

$FNSTA= 

«♦**♦*  GX 

FR"^  1S= 

*»*««*  GX 

SF$1NC= 

000002 

S$LFT 

000012 

S$VRCL= 

****#•  * 

GX 

$MBL  = 

******  GX 

■  •  iVC 

OOOOnOR 

SF.ENA= 

******  GX 

S$LNK 

000000 

S$VTIM= 

****** 

GX 

$MRC  = 

****♦»  GX 

tHRUSG 

0OOO45R 

SV$DTE= 

******  GX 

SSOUNR 

000030 

S$VWSZ= 

****** 

GX 

$MWI  = 

******  GX 

EX$ERR= 

000002 

SV$PSZ= 

******  GX 

S$PKS2 

000004 

SSWND 

000006 

$0PRND= 

******  GX 

FL  DLM= 

******  GX 

S\/$USZ  = 

******  GX 

S$RCL 

000013 

WC.CNr= 

****** 

GX 

$RTH  = 

******  GX 

OC.MBL" 

.*«*»»  GX 

SU.ENA= 

****«♦  GX 

S$STA 

000003 

WC.TRI= 

****** 

GX 

SSESVC 

000112RG 

OC.MRC= 

******  GX 

SW.INC= 

*»*»*♦  GX 

S$TFLG= 

*»»»**  GX 

$CFERR= 

****** 

GX 

$STAN  = 

******  GX 

OC  MWI= 

******  GX 

SW.0UT= 

**•**»  GX 

SSTIM 

OOOOU 

$CNTNM= 

****** 

GX 

$SWICH= 

******  GX 

DC  NUM= 

**♦«»«  GX 

SSADSZ 

000007 

S$TMR 

00001 t 

$COMP  = 

****** 

GX 

$TMLST= 

******  GX 

OC.RTM= 

******  GX 

SSCTL 

000002 

S$VDTE= 

******  GX 

$DTE  = 

****** 

GX 

$WILD  = 

******  GX 

OC.STA= 

**«*..  GX 

.  ASS. 

000032 
000536 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

Errors 

detected: 

U 

«**  Assembler  statistics 

Work  file  reads:  0 

Work   f 1 le  writes:  0 

Size  of  work  file:  9125  Words  (  36  Pages) 

Size  of  core  pool:  U44C  Words  (  55  Pages) 

Operatir.g  system:  RSX-11M/PLUS 
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SYMBOL 

VALUE 

REFERENCES 

CS.CNT 

r    ****** 

GX 

5-178 

5-194 

CS.DDM 

-    ****** 

GX 

5-167 

CS.MOD 

=     ****** 

GX 

5-207 

6-272 

CS.UNT 

~     ****** 

GX 

5-190 

C.CSR 

000012 

#4-137 

*5-230 

C.CST 

000014 

#4-138 

»5-210 

C.CWO 

000006 

#4-135 

•5-214 

•5-217 

•7-322 

•7-323 

C.CWI 

000010 

#4-136 

C.DPR 

000016 

#4-139 

•5-234 

C.LEN 

=  00002A 

#4-142 

CPRM 

r     ****** 

GX 

5-169 

5-171 

5-182 

C.STS 

:;     ****** 

GX 

5-167 

5-178 

5-190 

5-194 

•5-207 

CUNT 

000004 

#4-134 

5-202 

5-224 

DDM 

000000 

R 

#4-97 

•5-169 

END 

000132 

R 

#4-123 

4-125 

ERRBAU 

000002 

R 

#4-102 

7-318 

ERRSEC 

000034 

R 

#4-103 

5-227 

EXSERR 

=  000002 

#4-100 

4-102 

EXSWAR 

=  000000 

#4-101 

4-103 

FL.KMX 

L.        ****** 

GX 

5-222 

FL.LMC 

_        ****** 

GX 

5-220 

FL.MUX 

r     ****** 

GX 

5-198 

OC.APR 

-     ****** 

GX 

6-254 

6-282 

OC.CSI 

-     *  *  n-  *  * 

GX 

5-208 

6-254 

6-276 

OC.TRl 

-        *  *   T  *  *  * 

GX 

6-254 

6-288 

OL.BAU 

=        *♦»*♦* 

GX 

5-236 

OL.DPR 

-        ****** 

GX 

5-232 

OL.PLX 

~        ****** 

GX 

5-212 

OL.SEC 

-        ****** 

GX 

5-218 

6-256 

RATETB 

000076 

R 

#4-108 

4-125 

7-313 

SETSTA 

00056A 

R 

5-159 

#6-253 

SPEED 

0007U 

R 

5-238 

#7-309 

SW.FUL 

=   ****** 

G" 

5-215 

TBLEN 

=  000034 

#4-125 

7-309 

7-316 

UNSCST 

=  ****** 

■^ 

5-211 

UN$DPR 

=  ****** 

.X 

5-235 

UNSSCS 

-  ****** 

GX 

5-231 

WC.CNT 

r     ****** 

GX 

5-180 

5-192 

WC.UNT 

-     ****** 

GX 

5-200 

$APR 

r     ****** 

GX 

6-284 

$BAUD 

-     ****** 

GX 

7-310 

7-313 

SCFERR 

=     »**♦*♦ 

GX 

5-227 

7-318 

SCNTNM 

-     ****** 

GX 

5-182 

$COST 

r     ****** 

GX 

5-210 

6-278 

$DPR 

r     ****** 

GX 

5-234 

SFLAGS 

r     ****** 

GX 

•5-170 

•5-171 

5-198 

5-220 

5-222 

SFNPRO 

-     ****** 

GX 

5-164 

IFNSTA 

r     ****** 

GX 

6-269 

SOPRND 

-     ****** 

GX 

5-208 
6-288 

5-212 

5-218 

5-232 

5-256 

tSCSR 

-     ****** 

GX 

5-230 

SSEuNI 

000134 

RG 

#5-158 

♦7-327 


•5-211 


•5-231 


•5-235 


•6-272 


6-254 


6-256 


6-276 


6-282 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  CR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

CFE  -  SET  X.25  LEVEL  3  PARAMETERS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  26-0CT-81 

DECNET-11M/S  V3.1 
DE^NET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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SHOBJ  -  LIST  OBJECT  CHARACTERIS  MACRO  VO5.03b  Saturday  29-Jun-85  05:25  Page  5 
$SH0BJ  -  SHOW  OBJECT  CHARACTERISTICS 


169 

170 

171 

172 

17? 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183  000450 

ISA  OOO^ISO 

185  OOOA52 

186  OOOA56 
187 

188 
189 

190  000462 

191  000464 

192  000466 

193  000474 

194  000476 

195  000504 

196  000506 

197  000514 
198 

199 
200 

201  000516 

202  000522 

203  000524 

204  000530 

205  000534 

206  000542 

207  000544 

208  000550 

209  000554 

210  000560 

211  000564 

212  000574 

213  000600 

214  000606 

215  000614 

216  000622 

217  000626 

218  000632 

219  000634 

220  000636 

221  000644 

222  000652 

223  000660 

224  000666 

225  000674 


005000 
005067 
012705 


011505 
001564 
122765 
001372 
032767 
001004 
126765 
001362 


005767 
C0102'< 
005267 
012701 
032767 
001402 
012701 
012700 
012702 
004767 

005067 
116567 
016567 
016567 
116501 
042701 
006301 
006301 
016167 
016167 
012767 
012767 
132765 
001006 


.SBTTL  $SH0BJ  -  SHOW  OBJECT  CHARACTERISTICS 
♦»♦  -  SSHOBJ  -  SHOW  OBJECT  CHARACTERISTICS 

'$TNUM  =  THE  TASK  NUMBER  TO  DISPLAY  (-1  IMPLIES  KNOWN  OBJECTS) 
SWILD  =  WILD  CARD  SPECIFICATIONS 

OUTPUT: 

THE  OBJECT  CHARACTERISTICS  ARE  DISPLAYED. 
R0-R5  ^  DESTROYED 


SSHOBJ : 


177660 
OOOOOOG 


CLR 
CLR 
MOV 


RO 

HFLAG 

#$TMLST,R5 


SUCCESS  INDICATOR 
CLEAR  PRINT  HEADER  FLAG 
GET  START  OF  TEMPLATE  LIST 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  000004 


SEARCH  FOR  THE  OBJECT  TEMPLATE 

iO$:    MOV  (R5),R5        ;  GET  NEXT  TEMPLATE 

8EQ  60$            ;  IF  EQ,  END  OF  TEMPLATES 

CMPB  *CS.0BJ,C.STS(R5)  ;  IS  THIS  AN  OBJECT  TEMPLATE 

BNE  10$            ;  IF  NE,  NO  ..  KEEP  LOOKING 

BIT  #WC.OBJ,$WILD   ;  DO  IT  FOR  ALL  OBJECTS  ? 

BNE  20$           ;  IF  NE,  YES 

CMPB  $TNUM,C.TYP(R5)  ;  IS  THIS  THE  RIGHT  TEMPLATE  ? 

BNE  10$            ;  IF  NE,  NO 


DISPLAY  THE  OBJECT  CHARACTERISICS 


177614 

177606 
000044' 
OOOOOOG  OOOOOOG 

000111' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


177540 
000004 
000006 
000010 
000005 
177770 


177532 
177526 
177522 


000410"  177502 

000412'  177476 

000005  177472 

000304'  177466 

000100  000005 


50$:    TST  HFLAG 

BNE  27$ 

INC  HFLAG 

MOV  #HEADR,R1 

BIT  #WC.0BJ,$W1LD 

BEO  25$ 

MOV  #HEADR1,R1 

25$:    MOV  #$8UFF,R0 

MOV  #$GTBUF,R2 

CALL  $EDMSG 

PRINT  #$eUFF 

27$:    CLR  MS1SLK 

M0V8  C.TYP(R5),MS1BLK 

MOV  C.NAM(R5),MS2BLK 

MOV  C.NAM+2(R5),MS28L 

M0V8  C.FLG(R5),R1 

BIC  #*C<7>,R1 

ASL  R1 

ASL  R1 

MOV  VTBL(R1),MS2BLK+4 

MOV  VTBLt2(Rl),MS2BLK 

MOV  #L0GINL,MS3BLK  ; 

MOV  #L0GIN,MS3BLKt2  ; 

BIT8  #0F.RLU,C.FLG(R5) 

BNE  30$ 


PRINT  HEADER  ? 

IF  NE,  NO 

ELSE,  INDICATE  HEADER  ALREADY  PRINTED 

ASSUME  FOR  ONLY  1  OBJECT 

IS  IT  FOR  ALL  OBJECTS  ? 

IF  EQ,  NO  ..  OKAY 

ELSE,  DIFFERENT  HEADER 

POINT  TO  OUTPUT  BUFFER 

POINT  AT  ARGUMENT  BLOCK 

FORMAT  THE  HEADER 

PRINT  MESSAGE 

CLEAR  GARBAGE  IN  HIGH  BYTE 

STORE  THE  OBJECT  TYPE 

STORE  THE  OBJECT  NAME 
Kt2  ;  2ND  HALF  OF  NAME 
GET  THE  VERIFICATION  LEVEL 
CLEAN  OUT  GARBAGE  BITS 
CONVERT  TO  A  DOUBLE  WORD  INDEX 

;  GET  LENGTH  OF  VERIFICATION  MESSAGE 
■6  ;  AND  ADDRESS  OF  MESSAGE 
ASSUME  LOGIN  ACCESS 

;  IS  THJS  LOGIN  ACCESS  ? 
IF  NE,  YES 
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AnftrTEDicTirc 
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SSHCIR  -  SHOW  CIRCUIT  CHARACTERISTICS 

309 
310 
311 

312  002270 

313  002272 
3U  002274 

315  002276 

316  002304 

317  002306 

318  0023U 

319  002316 

320  00232A 

321  002326 

322  002330 

323  002336 

324  002340 

325  002346 

326  002350 

327  002356 

328  002360 

329  002366 

330  002372 

331  002376 

332  002400 

333  002406 
334 
335 
336 

337  002410 

338  002414 

339  002416 

340  002420 

341  002426 

342  002430 

343  002432 

344  002440 

345  002442 

346  002444 

347  002446 

348  002450 

349  002456 

350  002460 

351  002466 

352  002470 

353  002474 

354  002476 

355  002502 


:•  LOOK 

FOR  THE 

UNIT  TEMPLATE 

010500 

io$: 

MOV 

R5.R0  ; 
(r5),R5 

011505 

MOV 

001441 

BEO 

60$  ; 
#CS.UNT,C.STS(R5) 

122765 

OOOOOOG 

OOOOOOG 

45$; 

CMP8 

001411 

BEO 

50$ 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#WC.CNT.tUILD   ; 

001435 

BEQ 

65$  : 
#CS.CNT,C.STS(R55 

122765 

OOOOOOG 

OOOOOOG 

CMPR 

001756 

BEQ 

35$ 

000677 

BR 

10$ 

032767 

OOOOOOG 

OOOOOOG 

50$: 

BIT 

*FL.MUX,$FLAGS  ; 

001410 

BEQ 

55$ 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#WC.UNT,$UILD 

001004 

BNE 

55$ 

026567 

OOOOOOG 

OOOOOOG 

CMP 

C.PRM(R5),$UNTNM 

001344 

BNE 

40$ 

016567 

OOOOOOG 

OOOOOOG 

55$: 

MOV 

C.PRM(R5),$UNTNM 

004767 

000332 

CALL 

GETTCI 

004767 

000106 

CALL 

DISPLY 

000734 

BR 

40$ 

022767 

OOOOOOG 

OOOOOOG 

60$: 

CMP 

#C0.KNC,$COMP 

001035 

BNE 

90$ 

■  IF 

°Sl    IN  SYSTEM,  DISPLAY  VIRTU 

012705 

OOOOOOG 

65$: 

MOV 

*$PSIPT,R5 

011505 

70$: 

MOV 

(R5),R5        ; 

001427 

BEQ 

85S  ,        /i 

122765 

OOOOOOG 

OOOOOOG 

CMP8 

#CS.X3P,C.STS(R55 

001001 

BNE 

75$ 

010303 

MOV 

R5,R3  ; 
*CS.DTE,C.STS(R55 

122765 

OOOOOOG 

OOOOOOG 

75$: 

CMP8 

001365 

BNE 

70$ 

010504 

MOV 

R5,R4         ; 

011404 

80$: 

MOV 

(R4),R4        ; 

001413 

BEQ 

85$           ; 

122764 

OOOOOOG 

OOOOOOG 

CMPB 

#CS.DTE,C.STS(R4) 

001756 

BEQ 

70$           ; 

122764 

OOOOOOG 

OOOOOOG 

CMPB 

#CS.PVC,C.STS(R4) 

001366 

BNE 

80$          ; 

004767 

001664 

CALL 

SHOPVC 

000763 

BR 

80$ 

004767 

001170 

85$: 

CALL 

SHOSVC 

000207 

90$; 

RETURN 

SAVE  CURRENT  TEMPLATE 

GET  NEXT  TEMPLATE 

IF  EQ,  END  OF  TEMPLATES 

;  IS  THIS  A  UNIT  TEMPLATE  ? 

IF  EO,  YES 

MORE  CONTROLLERS  ? 

IF  EO,  NO  ..  DISPLAYED  ALREADY 

;  ELSE,  IS  IT  A  CONTROLLER  TEMPLATE  ? 

IF  EQ,  YES 

ELSE,  GET  NEXT  DEVICE 

IS  THIS  A  MUX  DEVICE  ? 

IF  EQ,  NO  ..  MUST  BE  RIGHT  UNIT 

ALL  UNITS  ? 

IF  NE,  YES 
;  ELSE,  IS  THIS  THE  RIGHT  UNIT  ? 

IF  NE,  NO  ..  KEEP  LOOKING 
;  STORE  THE  UNIT  NUMBER 

GET  TRANSPORT  CIRCUIT  INFORMATION 

ELSE  DISPLAY  CIRCUIT  CHARACTERISTICS 

AND  LOOK  FOR  NEXT  UNIT 

KNOWN  CIRCUITS  ? 

IF  NE,  NO 


POINT  TO  PSI  TEMPLATES 

POINT  TO  NEXT  TEMPLATE 

IF  EQ,  NO  MORE  TEMPLATES 

;  IS  IT  X3P$DF  ? 

IF  NE,  NO 

ELSE  SAVE  IT 

;  IS  THIS  A  DTE$DF  TEMPLATE 

IF  NE,  NOT  A  DTE$DF  TEMPLATE 

COPY  POINTER 

NEXT  TEMPLATE 

IF  EQ,  END  OF  LIST 

;  CHECK  FOR  DTE$DF 

IF  EQ,  PROCESS  NEXT  DTE$DF  SEQUENCE 

;  CHECK  FOR  PERMANENT  VIRTUAL  CIRCUIT 

IF  NE,  NEXT  TEMPLATE 

ELSE  SHOW  CHARACTERISTICS 

CONTINUE 

DISPLAY  ANY  SVCS 
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r^rcDIV     _     hTCDIAV     TDAMCDnDT     rlOfNTT     IMFfl 


SHOCIR 
PRINT  . 

88'. 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 


-  LIST  CIRCUIT  CHARACTER  MACRO 
PRINT  FORMATTED  DATA 


0052" 
005Z 


H  13 

V05.03b  Thursday  29-Aug-85  11:51  Page  13 

.SBTTL   PRINT  -  PRINT  FORMATTED  DATA 
'♦»  PRINT  -  PRINT  FORMATTED  DATA 
INPUTS:       R3  =  ADDRESS  OF  FORMATTING  TABLE 
OUTPUT:       INFORMATION  PRINTED. 
REGISTERS:    RO,  R1 ,  P2,  R3  CLOBBERED. 


005240 

005240  012700     OOOOOOG 

005244  012301 

005246  00^410 

005250  012302 

005252  004767     OOOOOOG 


00764 


005270  w'.'o207 
000001 


PRINT: 

10$: 

MOV 

*$8UfF,R0 

;  POINT  TO  BUFFER 

MOV 

(R3)t,Rl 

;  POINT  TO  FORMAT  STRING 

BEQ 

20$ 

;  IF  EQ,  END  OF  TABLE 

MOV 

(R3)+,R2 

;  POINT  TO  ARG  BLOCK 

CALL 

$EDMSG 

;  FORMAT 

PRINT 

#$8UFF 

;  PRINT 

BR 

10$ 

;  CONTINUE 

20$: 

RETURN 
.END 
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MACRO  DEFINITIONS 
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16^  001046 

168  001123 

169  001154 

170  001201 

171  001230 

172  001303 

173  001352 
174 

175  001452 

176  001436 
177 

178  001442 

179  001446 

180  001452 
181 

182  001456 

183  001460 

184  001500 
185 


040 
040 

040 
054 
040 
040 
040 


040 
040 
040 
040 
040 
040 
040 


115 
101 
114 
110 
111 
104 
111 


R02MSG: 

.ASCII 

.ASCi; 

SU8BA: 

.ASCII 

SU88A2: 

.ASCIZ 

TIMMSG: 

.ASCIZ 

DELMSG: 

.ASCIZ 

RETM5G: 

.ASCIZ 

OFF: 


ATVP: 


ROUTMP: 
MSGSLK: 


.EVEN 

STRING 

STRING 

STRING 
STRING 
STRING 

.8LKW 
.8LKU 
.PSECT 


Maximum  area  =  XM,   Area  maximum  hops  =  Xlt'M/ 

Area  maximum  cost  =  SIM/ 

Low  subaddress  =  XM/ 

High  subaddress  =  Xf\/ 

Incoming  timer  =  XM,  Outgoing  timer  =  jM/ 


belay   factor  =  XM.   Delay  weight  =  S! 
Inactii/ity  timer  =  JIM,  Retransmit  f 


XM/ 
actor  =  Xn/ 


<0ft> 
<0n> 

<Area> 

<Routing  IV> 
cNonrouting  IV> 

1 
10 


ROUTING  TEMPLATE  ADDRESS 
MESSAGE  ARGUMENT  BLOCK 
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MACRO  CROSS  REt^ERfNCE  CRfF        04.00 


MACRO  NAME 

REFERENCES 

D£CTP$ 

#4-59 

4-61 

EPRINT 

#4-85 

ERRORt 

#4-74 

5-430 

5-432 

5-4  54 

MSGDFS 

#4-59 

4-63 

NSfDF$ 

#4-50 

4-6? 

PRINT 

#4-69 

5-204 

5-295 

('-':ll 

STRING 

#4-95 

4-175 

4-176 

4-178 

5-456  5-438 

4-179  4-180 


•FILE«»ID»'SHOL!N 


N  15 


n  16 

SmOlIN  -  LIST   LINE   CHAR4CIERIST  MACRO  V05.05b   Saturday  29-Jun-85  05:26 
GFTjNT   -  GET   THE   JNIT    INFORMATION 


1.77  002470 
478  GO?"./? 
i.:")  00247A 

480  00250? 

481  002510 

482  L"2512 
48?  0u25H 

484  00-^522 

485  002524 

486  002526 

487  0025^4 

488  0025^6 

489  002540 
4%  C02542 

491  002544 

492  002552 
49? 

494 
495 
4  96  002560 

497  002564 

498  002566 

499  002572 

500  002576 

501  002600 

502  002604 
505  002606 

504  002612 

505  002614 

506  002622 
507 

508 
509 

510  002630 

511  002634 

512  002636 

513  002642 

514  002646 

515  002650 

516  002654 

517  002656 

518  002660 
519 

520  002666 


006300 
006300 
016067 
016067 
001323 
005000 
032765 
001406 
0052JC 
032765 
001001 
005200 
006300 
006300 
016067 
016067 


016501 
001421 
012713 
012700 
005002 
004767 
162300 
010063 
005023 
112767 
052767 


016501 
001414 
012713 
012700 
005002 
004767 
161300 
010043 
052767 

000207 


Page  7-1 


MAKE  IT  A  WORD  INDEX 


001270'  176740 
001272-  176734 


000010  000010 
000020  000010 


001^30'  176670 
001  ,    176664 


000016 

001164' 
001211' 

OOOOOOG 

177774 

000054  176401 
000004  175250 


000012 

001223' 
001240' 

OOOOOOG 
000004  175212 


30$: 


ASL  RO 

ASL  RO  ,-  ... 

MOV  PROT8L(R0),UNTBLK*10  ;  GET  LENGTH 

MOV  PROTeL»2(R0),UNTBLK+12  ;  STRING  ADDRESS 

BNE  40$  ;  IF  NE,  OK 

CLR  RO  ;  ELSE  ASSUME  DDCMP  POINT 

BIT  #CH.TrP,C.CWl(R5)  ;  CHECK  FOR  MULTIPOINT 

BEQ  30$  ;  IF  EO,  NO  -  DDCMP  POINT 

INC  RO  ;  ELSE  ASSUME  TRJB 

BIT  #CH.MDT,C.CW1(R5)  ;  TRIBUTARY  ? 

BNE  30$  ;  IF  NE,  PROTOCOL  =  DDCMP  TRIBUTARY 

INC  RO  ;  ELSE  PROTOCOL  =  DDCMP  CONTROL 

ASL  RO  ;  MAKE  IT  A  WORD  INDEX 

ASL  RO  ;  DOUBLE  WORD 

MOV  DDCT8L(R0),UNTBLK*10  ;  STRING  LENGTH 

MOV  DDCT8Lt2(R0),UNTBLK+12  ;  STRING  ADDRESS 


DEAD  POLLING  RATIO 


i0$: 


MOV 

BEQ 

MOV 

MOV 

CLR 

CALL 

SUB 

MOV 

CLR 

MOVB 

BIS 


C.DPR(R5),R1 

50$ 

#DPR,(R3) 

#DPRVAL,RO 

R2 

$C8DMG 

(R3)t,R0 

R0,-4(R3) 

(R3)  + 

*<',>, CSR 

#0P.OPT,DSP0PT 


SECONDARY  CSR 

$:    MOV 

C.CSR(R5),R1 

BEQ 

70$ 

MOV 

*CSR,(R3) 

MOV 

#CSfiVAL,RO 

CLR 

R2 

CALL 

$C80MG 

SUB 

(R3),R0 

MOV 

R0,-(R3) 

BIS 

#OP.OPT,DSPOPT 

70$: 


RETURN 


GET  THE  DEAD  POLLING  RATIO 

IF  EQ,  NONE 

SAVE  ADDRESS  OF  PRINT  BUFFER 

GET  ADDRESS  OF  BUFFER 

ZERO  SUPPRESS10;\I 

CONVERT  TO  ASCII 

CALCULATE  STRING  LENGTH 

SAVE  LENGTH  IN  ARGUMENT  BLOCK 

SKIP  TO  SECONDARY  CSR  FIELD 

ASSUME  SECONDARY  5R  IS  PRESENT 

SELECT  LINE  FOR  DISPLAY 


GET  SECONDARY  CSR 

IF  EQ  NONE 

SAVE  ADDRESS  IN  ARGUMENT  BLOCK 

POINT  AT  OUTPUT  BUFFER 

ZERO  SUPPRESSION 

CONVERT  TO  ASCII 

GET  LENGTH  OF  STRING 

STORE  IT  IN  ARGUMENT  BLOCK 

SELECT  LINE  FOR  DISPLAY 


F  If) 
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E'OB.    -   SE'    OBJECT   OPHONS 
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CHitMUL  OQIOSbR 

ERRNAM  0000'.2R 

OO.USR= 

***>*♦ 

GX 

SW.RLU= 

****** 

GX 

SRQBF  = 

******  Gy 

fS  OBj=  «•♦•••  GX 

ERRONA  0001 15R 

OO.VFY= 

****** 

GX 

SW.SMC= 

****** 

GX 

$SAV\/R= 

******  GX 

c.coy   000012 

EX$ERR=  000002 

O.FLG 

000003 

$BYTHN= 

****** 

GX 

SSEOBJ 

000252Ri; 

i'.FlG   000005 

FINOBJ  001022R 

O.LEN 

000012 

$BVTXT= 

****** 

GX 

SSWICH= 

******  (-^ 

C.LEN  =  000013 

OBJNAfI  00024AR 

O.LENX= 

****** 

GX 

$CFERR= 

****** 

GX 

$TMLST= 

****** 

C.NAM   000006 

0F.PR0=  000040 

O.LNK 

000000 

$COPES= 

****** 

GX 

STNAM  = 

******  _,x 

C.5TS  =  ••••••  GX 

OF.RLU=  000100 

O.MXC 

000004 

$C5TA  = 

****** 

GX 

STNUM  = 

******  GX 

C.TyP   000004 

OF.SMC=  000200 

0.^'AM 

000006 

$OPRND= 

****** 

GX 

SVLVL  = 

**.*«»  GX 

ERRBUF  oooooor 

OO.COP=  ••*♦♦•  GX 

n.TYP 

000002 

$QINSN= 

****** 

GX 

$XXAVL= 

«***»*  GX 

ERRMUL  000201 R 

OO.NAM=  .*«•**  GX 

.  ABS.  000013 

000 

{RW,I,GBL,ABS,OVR) 

001 2A4 

001 

CRW,I,LCL,REL,CON) 

Errors  detected: 

0 

...  assemfcler  sta 

ist 

cs 

work  tUe  reads 

0 

Work   tl le  writes 

0  . 

Size  of  work  file:  10380  Words  (  41  °ages) 
Size  of  core  ooot:  14440  Words  (  55  Pages) 
Ope'a"ng     system:    RSX -1 IM/PLUS 

S*?SETOBj!v2^[?32J54]SETOBJ/CR/-SP=SV:[1,l]RSXMCM.SML/ML,[130,110]NETLIB/ML,[132,10JSETOej 


SEiPRC  -  SET  PROCESS  OPTIONS  MACRO  V05.03b  Saturday  29-Jun-85  05:23  Page  4-1 
MACRO  DEflNITIONS 

91  000000    002     103    106  ERRN5P:  .ASCIZ  <EX$ERR>/lFE  ~  XPT  not  allowed  to  load  line  tables  in  process  space/ 

92  .LIST   BEX 

93  .EVEN 


SETPVC 
SEIDTE 


SET  PVC  PARAMETERS 
SET  NEW  DTE  ADDRESS 


259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 

276  001212 

277  001212 

278  C01216 

279  001220 

280  001222 

281  001230 

282  001232 

283  001236 

284  001240 

285  001244 

286  001250 

287  001252 

288  001254 

289  001256 
290 

291 
292 

293  001260 

294  001262 

295  001264 

296  001266 

297  001270 
298 

299  001274 

300  001276 

301  001300 

302  001304 

303  001306 

304  001310 
305 

306  001512 

307  001314 
308 


N  3 

MACRO  V05.0?*)  Saturday  29-Jun-85  05:23  Page  6 

.SBTTL  SETDTE  -  SET  NEW  DTE  ADDRESS 
•»  SETDTE  -  SET  NEW  DTE  ADDRESS 


INPUT 


OUTPUT 


REGISTERS 


RO  =  ADDRESS  OF  PVC  DESCRIPTOR 

R1  =  PREVIOUS  TEMPLATE  ADDRESS  FOR  UNLINK 

=  0  IF  TEMPLATE  CREATED 
SFLAGS  SU.CRE  SET  IF  TEMPLATE  WAS  CREATED 
$DTE  =  PARSED  DTE  STRING 

CARRY  CLEAR:  TEMPLATE  LINKED  AFTER  NEW  DTE 

RO  =  UNLINK  ADDRESS  OR  ZERO 
CARRV  SET:  FAILURE 

USES  R2-R5 


012705 
011505 
001434 
122765 
001372 
012702 
010503 
062703 
012704 
022223 
001361 
005304 
003374 


005701 
001404 
011011 
001002 
010067 

011510 
001002 
010067 
010015 
000241 
000207 

000261 
00C207 


OOOOOOG 


SETDTE: 
10$: 


OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 
000005 


20$: 


MOV 

MOV 

BEQ 

CMPB 

BNE 

MOV 

MOV 

ADD 

MOV 

CMP 

BNE 

DEC 

B6T 


#$TMLST,R5 

(R5),R5 

101$  , 

*CS.DTE,C.STS(R5) 

10$ 

#$DTE,R2 

R5,R3 

#D$TADR,R3 

#5,R4 

(R2)+,(R3)t 

10$ 

% 


DTE  FOUND  -  IF  PVC  EXISTS,  UNLINK  FROM  OLD  DTE 


POINT  TO  TEMPLATES 
NEXT  TEMPLATE 
IF  EQ,  NOT  FOUND 
:  IS  IT  A  DTE  TEMPLATE? 
BR  IF  NO 

POINT  TO  PARSED  DTE  ADDRESS 
POINT  TO  ADDESS  STRING 

STRING  LENGTH 
COMPARE  STRINGS 
BR  IF  WRONG  DTE 
REDUCE  COUNT 
UNTIL  DONE 


000002G 


000002G 


25$: 

27$: 
30$: 
101$: 


TST 

^^y 

BNE 
MOV 

MOV 
BNE 
MOV 
MOV 
CLC 
RETURN 

SEC 

RETURN 


Rl 

25$ 

(R0),(R1) 

25$ 

R0,$TMLSTt2 

(R5),(R0) 
27$ 

R0,$TMLSTt2 
R0,Cfi5) 


UNLINK 

:F  EQ,  NO 

1.L0SE  UP  LIST 

IF  NE,  NOT  END 

ELSE  MARK  NEW  END  IN  LISTHEAD 

LINK  TEMPLATE  INTO  NEW  SPOT 
IF  NE,  NOT  END  OF  LIST 
MARK  NEW  END 


N  4 

SETREM  -  SET  REMOTE  NODE  OPTION  MACRO  V05.03b  Monday  01-Jul-85  16:37  Page  5-1 
tSEREM  -  UPDATE  REMOTE  DEFINITION 

236  000270  000167  000036         50$:    CALLR   UPDDLL         ;  UPDATE  DLL  PARAMETERS  AND  RETURN 

237 

238  00027A  000207  60$:    RETURN 
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MACRO  CROSS  REFERENCE  CRbF   04.00 

MACRO  NAME      REFERENCES 

12-553 


EPRINT 

ltU-77 

ERRORS 

tlt-bb 

5-221 

11-474 

PRINT 

#4-61 

RESRG 

#4-55 

8-379 

12-548 

SAVRG 

#4-55 

8-356 

12-505 

SETSLT  -  SET  SI  T  PARAMETERS 


1 
2 
3 

5 

5 

7 

8 

9 
10 
11 
-.2 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

'.O 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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.TITLE   SETSLT  -  SET  SLT  PARAMETERS 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CFE  -  SET  SLT  PARAMET^t^S 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


.MCALL   CALLR 


SETSLT  ■ 
CHKSTA  ■ 

50? 
504 
505 
506 
507 
508 
509 
510 
511 
512 
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SET  SIT  PARAMETERS     MACRO  VO5.03b  Saturday  ?9-Jun-85  05:24 
CHECK  LINE/CIRCUIT  STAGES 


001550  000401 

001552  000241 

001554  012667  OOOOOOG 

001560  012667  OOOOOOG 

001 564  012667  OOOOOOG 

001570  000207 

000001 


BR     80$ 

70$:    CLC 

80$:    MOV  (SP)t,$WlLD 

MOV  (SP)+,$STAN 

MOV  (SP)t,$FLAGS 
RETURN 

.END 


Page  11-1 


RESTORE  WILDCARDS 
RESTORE  STATION 
RESTORE  FLAGS 


N     8 

SETSVC 

CREATED   BY 

MACRO     ON  29 

-JUN-85  AT   05:24 

PAGE   1 

SYMBOL 

■ROSS  REFERENCE 

CREF       04.00 

SYMBOL 

VAlUE 

REFERENCES 

CO.KNC 

~       *** t t* 

GX 

5-113 

5-130 

5-201 

CS.SVC 

-       ♦♦*»*♦ 

GX 

5-128 

C.STS 

=       ****** 

GX 

5-128 

•5-154 

•5-176 

•5-181 

ERRCIS 

=       ****** 

GX 

5-196 

ERRSVC 

000000 

R 

H-9', 

5-213 

ERRUSG 

000045 

R 

#4-95 

5-216 

EXSERR 

=  000002 

#4-93 

4-94 

4-95 

FL.OLM 

=      ****** 

GX 

5-115 

OC.MBL 

z:     ****** 

GX 

5-173 

OC.HRC 

r     ****** 

GX 

5-165 

OC.MUI 

r     ****** 

GX 

5-178 

OC.NUM 

=     ****** 

GX 

5-152 

OC.RTM 

=     ****** 

GX 

5-169 

OC.STA 

=     ****** 

GX 

5-183 

OC.USG 

=     ****** 

GX 

5-120 

5-144 

SCR 

000110 

R 

#4-98 

SFSINC 

=  000002 

5-148 

5-150 

SF.ENA 

=   ****** 

GX 

5-190 

5-193 

SVSDTE 

=   ****** 

GX 

5-154 

SVSPSZ 

r     ****** 

GX 

5-176 

SVSWSZ 

=     ****** 

GX 

5-181 

SW.ENA 

=     ****** 

GX 

5-191 

SW.INC 

r     ****** 

GX 

5-122 

5-U6 

SW.OUT 

=     ****** 

GX 

5-122 

SSTFLG 

=     ****** 

GX 

»5-190 

•5-193 

SSVDTE 

-     ****** 

GX 

5-157 

SSVFLG 

-     ****** 

GX 

*5-148 

•5-150 

SSVNAM 

~     ****** 

GX 

5-134 

5-138 

SSVPSZ 

=     ****** 

GX 

*5-175 

SSVRCL 

-     ****** 

GX 

*5-167 

SSVTIM 

-     ****** 

GX 

•5-171 

SSVWSZ 

::     ****** 

GX 

•5-180 

WC.CNT 

-     ****** 

GX 

5-132 

5-203 

WC.^RI 

=:      ****** 

GX 

5-136 

SCFERR 

=     ****** 

GX 

5-196 

5-213 

5-216 

SCNTNM 

-     ****** 

GX 

5-134 

SCOMP 

=     ****** 

GX 

5-113 

5-130 

5-201 

$DTE 

r     ****** 

GX 

5-155 

SFLAGS 

-     ****** 

GX 

5-115 

SFNSLT 

~     ****** 

GX 

5-186 

SFNSTA 

r     ****■^* 

GX 

5-188 

$MSL 

~     ****** 

GX 

5-175 

SMRC 

r:     ****** 

GX 

5-167 

$MWI 

=      ****** 

GX 

5-180 

SOPRND 

-     ♦**♦*♦ 

GX 

5-120 

5-144 

5-152 

5-165             5- 

■169 

$RTM 

=     ****** 

GX 

5-171 

SSESVC 

00011? 

RG 

#5-112 

$STAN 

r     ****** 

GX 

5-138 

SSlJICH 

-     ****** 

GX 

5-122 

5-146 

5-191 

STMLST 

-     ****** 

GX 

5-118 

5-185 

SWILD 

zz      ****** 

GX 

5-132 

5-136 

5-203 

5-173 


5-178 


5-183 
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SETUNT     CREATED  Bv  MACRO  ON  12-AL,'3-85  AT  15:02     PAGE  2 

SYMBOL  CROSS  REFERENCE  CREF   01.00 

SYMBOL  VALUE  REFERENCES 

SSTADR  =  ••«♦••  GX  6-290 

SSWICH  =  •»♦♦•«  GX  5-215 

STMLST  =  .••»♦*  GX  5-160     6-258 

SUNTNM  =  *.*«.•  GX  5-202 

SUILD   =  **••*•  GX  5-180     5-192     5-200 

.FNSLT  =  .»»»•»  GX  6-263 
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56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7U 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 


*4  ** 

LOCAL  MACROS 
**** 

.MACRO 
MOV 
'.ALL 
.ENDM 


PRINT   TEXT 
TEXT,RO 
SPRINT 
PRINT 


POINT  RO  AT  ADDRESS  OF  MESSAGE  TO  PRINT 
PRINT  MESSAGE 


.MACRO  ERRORS  TEXT 


THE  ERROR  TEXT  MUST  HAVE  THE  ERROR  STATUS  AS  THE  FIRST  BYTE  OF  THE  ERROR 
MESSAGE  STRING. 


.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFERR 

.ENt)M  ERRORS 

.MACRO  EPRINT   TEXT 

PRINT  TEXT  ON  ERROR  LUN 

.IF  DIF  <TEXT><RO> 

MOV  TEXT.RO 

.ENDC 

CALL  SCFER1 

.ENDM  EPRINT 


GET  ADDRESS  OF  ERROR  MESSAGE 
PRINT  ERROR  MESSAGE 


GET  ADDRESS  OF  ASCIZ  STRING  TO  PRINT 
PRINT  MESSAGE  ON  ERROR  LUN 
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SHOBJ  -  LIST  OBJECT  CHARACTERIS  MACRO  V05.03b  Saturday  29-Jun-85  05:25 
SSHOBJ  -  SHOW  OBJECT  ''HARACTERISTICS 


226  000676 

012767 

000007 

177446 

MOV 

*DFALTL,MS3BLK     ; 

227  000704 

012767 

000311' 

177442 

MOV 

#DEFALT,MS3BLK*2 

228  000712 

012767 

000006 

177436 

30$: 

MOV 

#0NEL,MS3BLKt4     ; 

229  000720 

012767 

000276' 

177432 

MOV 

*0NE,MS3BLK*6       ; 
#OF.SMC,C.FLG(R55 

230  000726 

132765 

000200 

000005 

BITS 

231   000734 

001420 

BEQ 

40$ 

232  000736 

116501 

000012 

Move 

C.CPY(R5),R1 

233  000742 

012700 

000362' 

MOV 

#8UFR,R0 

234  000746 

005002 

CLR 

R2 

235  000750 

004767 

OOOOOOG 

CALL 

$CBDMG 

236  000754 

112720 

000056 

MOVB 

#'.,(R0)+ 

237  000760 

162700 

000362' 

SUB 

#BUFR,RO 
R0,MS3BLIC+4 

238  000764 

010067 

177366 

MOV 

239  000770 

012767 

000362' 

177362 

MOV 

#BUFR,MS3BLK+6     ; 

240  000776 

01270' 

000372' 

40$: 

MOV 

#TBL1,R3                 ; 

241   001002 

01270h 

000402' 

MOV 

#T8L2,R4 

242  001006 

012301 

50$: 

MOV 

(R3)+,R1 

243  001010 

001624 

BEQ 

10$ 

244  001012 

012402 

MOV 

(R4)+,R2 

245  001014 

012700 

OOOOOOG 

MOV 

*$8UFF,R0               ; 

246  001020 

004767 

OOOOOOG 

CALL 

$EDMSG 

247  001024 

PRINT 

#$8UFF 

248  001034 

249 

250 

251 

252  001036 

000764 

BR 

50$ 

;■   END 

OF    TEMPLATES   FOUND 

005700 

'bO%: 

TST 

RO 

253  001040 

001004 

BNE 

70$ 

254   001042 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#UC.OBJ,$WILD 

255  001050 

001401 

BEQ 

101$ 

256  001052 

257 

258 

259 

260  001054 

000207 

70$: 

RETURN 

•    ERROR   ^OND.'TIONS 

i01$: 

ERROR$ 

#ERR0BJ 

261    001064 

000207 

RETURN 

262 

263 

264 

000001 

.END 

Page  5-1 

ELSE,    THIS   MUST  BE    DEFAULT  ACCESS 

ASSUME'sInGLE   COPIES 

;    DO  UE'sPAWN  MULTIPLE   COPIES   ? 

IF    £Q,   NO    ..    OKAY 

GET  NUMBER  OF   COPIES   TO  SPAWN 

GET   ADDRESS   OF   SCRATCH  BUFFER 

ZERO  SUPPRESSION 

CONVERT  NUMBER   to  DECIMU 

INSERT  A  DECIMAL  POINT 

CALCULATE   LENGTH  OF    STR.'NG 

STORE   LENGTH  OF    STRING   IN  ARGUMENT  BLOCK 

POINT  AT   CONVERTED   STRING 

POINT  AT    INPUT   STRING   TABLE 

POINT  AT   ARGUMENT  BLOCK   TABLE 

POINT  AT    INPUT   STRING 

IF    EQ,   END   OF    TABLE    ..    LOOK   FOR  MORE 

;    POINT  AT  ARGUMENT  BLOCK 
POINT  AT   OUPUT  BUFFtR 
FORMAT   IHE    STRING 
PRINT  THE  MESSAGE 
REPEAT  LOOP 


WERE   ANY   OBJECTS   FOUND   ? 

IF  NE,  YES  ..  OKAY 

ELSE,  WAS  THIS  FOR  KNOWN  OBJECTS 

IF  EQ,  NO  ..  OBJECT  NOT  FOUND 

RETURN  TO  CALLER 


FAILED  TO  FIND  OBJECT  TEMPLATE 


SHOCIR  -  LIST  CIRCUIT  CHARACTER  MACRO  V05.03b  Thursday  29-Aug-85  11 
DISPL*  -  DISPLAY  TRANSPORT  CIRCUIT  INFO 


^•^^1 
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357 

.SBTTL  DISPLY  -  DISPLAY 

TRANSPORT  CIRCUIT  INFO 

358 
359 
360 
351 

*•*•  -  DISPLY  -  DISPLAY  TRANSPORT  CIRCUIT  INFO 

INPUT: 

362 
363 
364 

ARGUMENT  BLOCKS  FROM  GETTCI 

OUTPUT: 

355 
356 

CHARACTERISTICS  ARE  DISPLAYED 

367 
368 
369  002504 

004  767 

000402 

DISPLY:  CALL    GETSLT         ;  GET  INITIAL  SLT/STATION  INfORMATION 

370  002510 

103427 

BCS     40$ 

IF  CS,  NO  SLT  MACRO 

371  002512 

016704 

175262 

MOV     CURSLT,R4       ,  GET  SLT  DESCRIPTOR  ADDRESS 
BIT     »LF.)(2P,S$LFLG(r5)  ;  IS  THIS  AN  X25  LINE  ? 

372  002516 

032765 

OOOOOOG 

OOOOOOG 

373  002524 

001020 

BNE     30$ 

IF  NE  YES  -  NOT  A  CIRCUIT 

374  002526 

032757 

OOOOOOG 

OOOOOOG 

BIT     #FL.MTP,$FLAGS  , 

IS  THE  LINE  MULTI-POINT  ? 

375  002534 

376 

377 

001002 

BNE     10$ 

IF  NE,  YES 

POINT  TO  POINT  TRANSPORT  CIRCUITS 

378 

379  002536 

380 

381 

CALLR   OUTCIR         ;  OUTPUT  INFO  AND  LEAVE 

MULTIPOINT  TRANSPPORT  CIRCUITS 

382 

383  002542 

052767 

OOOOOOG 

OOOOOOG 

0$:    BIS     #FL.TRB,$FLAGS  ;  SIGNAL  TRIBUTARY  ADDRESS  REQUIRED 

384  002550 

004767 

000026 

CALL    OUTCIR 

OUTPUT  INFO 

385  002554 

004736 

20$:    CALL    a(SP)t 

BACK  TO  GETSLT  AGAIN 

386  002556 

103371 

BCC     10$ 

IF  CC,  GOT  NEW  LINE 

387  002560 

389  002566 

390 

391 

392 

393  002570 

042767 

OOOOOOG 

OOOOOOG 

B'r     *FL.TRB,$FLAGS 

ELSE,  CLEAR  TRIBUTARY  ADDRESS  BIT 

000207 

50$:    RETURN 

;  ERROR  CONDITIONS 

;0$:    ERROR$  *ERRCIS        ;  LINE  NOT  IN  SYSTEM 

394  002600 

395 

396 

397 

398  002602 

000207 

RETURN 

;  OUTPUT  CIRCUIT  INFORMATION  SUBROUTINE 

OUTCIR: 

399  002602 

004767 

000730 

CALL    FMTLIN 

FORMAT  THE  LINE  ID 

400  002606 

PRINT   #LINMSG 

PRINT  THE  LINE  ID 

401  002616 

112767 

000054 

175422 

M0V8    #<',>, SERMSG 

INCLUDE  SERVICE  PARAMETER 

402  002624 

012703 

001624' 

MOV     #TRNTBL,R3 

POINT  R3  AT  ARGUMENT  BLOCK  TABLE 

403  002630 

004767 

002404 

CALL    PRINT 

PRINT  IT 

404  002634 

016703 

175140 

MOV     CUfiSLT,R3 

EXAMINE  CURRENT  SLT 

405  002640 

032764 

OOOOOOG 

OOOOOOG 

BIT     *LF.8R0,S$LFLG(R4^  ;  BROADCAST  CHANNEL 

406  002646 

001425 

BEQ     10$ 

IF  EQ,  NO 

407  002650 

032767 

OOOOOOG 

OOOOOOG 

BIT     #NF.END,$CNFIG 

•  IS  THIS  AN  END  NODE? 

408  002656 

001021 

BNE     10$ 

•  IF  YES,  DON'T  PRINT  MAX  ROUTERS,  PRIOR 

TY 

409  002660 

012700 

OOOOOOG 

MOV     #$8UFF,R0 

•  POINT  TO  BUFFER 

410  002664 

012701 

000325' 

MOV     #RPRHSG,R1 

;  POINT  TO  STRING 

411  002670 

012702 

002030' 

MOV     #STA8LK,R2 

;  POINT  TO  ARG  BLOCK 

412  002674 

016312 

OOOOOOG 

MOV     S$LRPR(R3),(R2) 

;  GET  ROUTING  PRIORITY 

413  002700 

016362 

OOOOOOG 

000002 

MOV     S$L8RA(R3),2(R2) 

;  GET  MAXIMUM  ROUTERS 

N  13 
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Symbol    table 


APR 

00K71R 

ERRNST 

001242R 

OFFL   = 

000003 

SF$BLK= 

9562SI 

S$VPSZ= 

**♦»**  GX 

APRVAL 

00152OR 

EXEC 

001333R 

ON 

001326R 

SF$1NC= 

000002 

S|VRCL= 
S$VWSZ= 

******  GX 

CH.DUP= 

000001 

EXECL  = 

000010 

ONL   = 

000002 

SF.ENA= 

******  GX 

»**♦*«  GX 

CH.D1 1= 

000100 

EX$ERR= 

000002 

OPTMSG 

000163R 

SF.SER= 

•**«♦♦  GX 

SSWND 

000006 

CH.ECH= 

w  V  V  t   yj  \/ 

000002 

FL.DLC= 

»•»*«*  GX 

OUTCIR 

002602R 

SHOPVC 

004360R 

TRIB 

001437R 

CH  MDT= 

000020 

FL.DLM= 

»»«»»»  GX 

OUTG 

001400R 

SHOSVC 

003672R 

TRIVAL 

001457R 

CHiPAR= 

*J  V  W  V  t,  v 

000100 

FL.MTP= 

******  GX 

OUTGL  = 

000010 

STABLK 

002030R 

TRNT8L 

001624R 

CH.PRM= 

W  W  V  <    ^J  \J 

000200 

FL.MUX= 

******  GX 

PERM 

001367R 

STAMSG 

000266R 

TYPBLK 

001736R 

CH.PRT= 

000007 

FL.SLV= 

******  GX 

PERML  = 

oooor 

SVCBLK 

001726R 

TYPMSG 

0001 72R 

CH.STA= 

000040 

FL.TRB= 

•*«***  GX 

PRINT 

005240R 

SVCM1 

000745R 

WC.CNT= 

******   GX 

ch!syn= 

V  \J  \J  \J^  \J 

OOOOOA 

FL.TRI=: 

******  GX 

PROTBL 

001550R 

SVCM2 

000773R 

WC.NAM= 

******  GX 

CH.TYP= 

000010 

FL.X25= 

******  GX 

PVCBLK 

001754R 

SVCM3 

001050R 

WC.TRI^ 

******  GX 

CO.KNC= 

»«.*♦.  GX 

FMTDLM 

000406R 

PVCBL2 

001760R 

SVCM4 

001121R 

WC.UNT= 

******  GX 

CS.CNT= 

»»•«*•  GX 

FMTLIN 

003536R 

PVC8L3 

002002R 

SVCM5 

001173R 

X$3DFP= 

*♦  *«*  GX 

CS.DDM= 

««««»«  GX 

FMTLN1 

003542R 

PVC8L4 

00201 2R 

SVC01 

001223R 

X$3DW  = 

******  GX 

CS.DTE= 

*♦*♦♦*  GX 

FMTLN2 

003546R 

PVCBL5 

002020R 

SVCTBL 

001674R 

X25 

001351R 

CS.PVC= 

••»•♦*  GX 

FMT2R5 

000402R 

PVC8L6 

002022R 

SV$DTE= 

******  GX 

X25L  = 

000004 

CS.SVC= 

••«»•*  GX 

GETSLT 

003112R 

PVCLIN 

000663R 

SV$PSZ= 

******  GX 

$BUFF  = 

******  GX 

CS.UNI= 

»«»*»*  GX 

GETSTA 

004322R 

PVCMSG 

000420R 

SV$WSZ= 

******  GX 

$C8TA  = 

******  GX 

CS.UNT= 

*•••**  GX 

GETTCI 

002724R 

PVCMS2 

000437R 

SSADSZ 

000007 

$CFERR= 

******   GX 

CS.X3P= 

»«♦«««  GX 

HEADR 

000002R 

PVCMS3 

000504R 

S$CTL 

000002 

$CIR1D= 

******  GX 

CURSLT 

OOOOOOR 

HEADR1 

00C150R 

PVCMS4 

000564R 

S$DTE 

000020 

$CNFIG= 

******  GX 

C.CSR 

000012 

HELBLK 

00i7<6R 

PVCMS5 

000625R 

S$FLG 

000010 

$CNTNM= 

******  GX 

C.CST 

OOOOU 

HELMSG 

000224R 

PVCMS6 

000707R 

S$LBRA= 

******  GX 

$COMP  = 

*♦♦*♦*  GX 

C.CWO 

000006 

HWP 

001544R 

PVC01 

000537R 

S$LEN 

000032 

$C5TA  = 

******  GX 

C.CWl 

000010 

NCM 

001410R 

PVCSW 

001666R 

S$LFLG= 

******  GX 

$DVNAM= 

******   GX 

C.DPR 

000016 

NCML  = 

000010 

PVCTBL 

001642R 

S$LFT 

000012 

$EDMSG= 

******  GX 

C.HTM 

000020 

LF.BRO= 

******  GX 

PV$PSZ= 

******  GX 

S$LHTH= 

******  GX 

$FLAGS= 

******  GX 

C.LEN  = 

000024 

LF.ENA= 

******  GX 

PV$WSZ= 

******  GX 

S$LNK 

000000 

$FNPRO= 

******  GX 

C.LTM 

000022 

LF.SER= 

******  GX 

P$VCT  = 

******  GX 

S$LRPR= 

******  GX 

$FNSLT= 

******  GX 

CPRM  = 

V  V  ^i/  W  l_  (_ 

«««»«*  GX 

LF.X2P= 

******  GX 

P$VLCN= 

******  GX 

SSOWNR 

000030 

$FNSTA= 

******  GX 

C.STS  = 

******  GX 

LINIO 

000137R 

P$VNAf1= 

******  GX 

SSPKSZ 

000004 

$GTBUF= 

******  GX 

CUNT 

000004 

LINMSG 

000124R 

P$VOWN= 

******  GX 

S$RCL 

000013 

$PR  NT= 

******  GX 

ODCTBL 

001610R 

LSCNT  = 

******  GX 

P$VPSZ= 

******  GX 

S$STA 

000003 

$PS  PT= 

******  GX 

OISPLV 

002504R 

L$NAM  = 

»»«***  GX 

P$VSTA= 

******  GX 

S$TCST= 

******  GX 

SSHCIR 

002046RG 

DSAB 

00U27R 

L$TRI  = 

******  GX 

P$VWSZ= 

******  GX 

S$TFLG= 

******  GX 

$STAN  = 

******   GX 

DSABL  = 

000010 

L$UNT  = 

*»**»«  GX 

RPRKSG 

000325R 

S$THTM= 

******  GX 

$TMLST= 

******  GX 

0$TADR= 

«♦»»**  GX 

NF.END= 

******  GX 

SCRACH 

001532R 

S$TIM 

000014 

$UNTNM= 

******  GX 

0$TLlN= 

**.«*«  GX 

NONE 

001343R 

SERMSG 

000246R 

SSTMR 

000016 

SWILD  = 

******   GX 

ENAB 

00K20R 

NONEL  = 

000006 

SERV 

001355R 

S$VFLG= 

******  GX 

$$$ 

000017 

ENABL  = 

000007 

NSTLIN 

001302R 

SERVL  = 

000012 

S$VNAM= 

******  GX 

$$$1   = 

000065R 

ERRCIS= 

»»««*<  GX 

OFF 

001330R 

.  ABS. 

000032 
005272 

000 
001 

(RW,I,G8L,ABS,0VRJ 
(RW,I,LCL,REL,C0N) 

TEXT 

000104 

002 

(RW,D,LCL,REL,C0N) 

Errors 

detected: 

0 

'*•  Assembler  statist! 

s 

Work   f 

ile  reads 

0 

Work   f 

ile  writes 

0 

Si 26  of 

work  file 

10838  Words 

(  43  Pages) 

Size  of 

core  tjool 

14440  Words 

(  55  Pages) 

Operating  system 

RSX 

-11M/PLUS 

F' aosec 

time:  00: 

30:29 

16 

002 


N  U 

SHOEXE  -  LIST  EXECUTOR  OPTIONS  MACRO  V05.05b  Saturday  29-Jun-85  05:?5  Page  5 
tSHEXE  -  SHOW  EXECUTOR  CHARACTERISTICS 


187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 

199  001500 

200  001500 

201  001 50A 

202  001510 

203  0015U 
20A  001520 

205  001530 

206  001 53A 

207  001536 
208 

209 
210 

211  0015A0 

212  0015A2 

213  001 54A 
2U 

215  001550 

216  001556 

217  001560 

218  001 56A 
219 

220 
221 

222  001566 

223  001570 
221.  001572 
225 

226  001576 

221   001604 

228 

229 

230 

231  001606 

232  001610 

233  001612 
234 

235  001616 

236  001624 

237  001626 

238  001634 
239 

2W 

2'>} 

21^2   001636 

243  001640 


.SSTTL  SSHEXE  -  SHOW  EXECUTOR  CHARACTERISTICS 
♦••  -  SSHEXE  -  SHOW  EXECUTOR  CHARACTERISTICS 
INPUT: 


NONE. 


OUTPUT: 


THE  EXECUTOR  CHARACTERISTICS  ARE  DISPLAYED. 


012701 
012700 
012702 
004767 

012705 
010504 
010503 


011505 
001002 
000167 

122765 
001370 
010567 
010405 


011505 
001002 
000167 

122765 
001370 


011404 
001002 
000167 

122764 
001370 
026427 
901364 


011303 
001002 


000215' 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 


SSHEXE: 


MOV 

MOV 

MOV 

CALL 

PRINT 

MOV 

MOV 

MOV 


#HEADR,R1 

*S8Uff ,R0 

#SGT8UF,R2 

SEDMSG 

#S8UfF 

#STMLST,R5 

R5,R4 

R5,R3 


POINT  TO  THE  FORMAT  STRING 

POINT  TO  THE  OUTPUT  BUFFER 

POINT  AT  ARGUMENT  BLOCK 

FORMAT  THE  HEADER 

PRINT  THE  HEADER 

GET  START  OF  TEMPLATE  LIST 

TWICE 

..ONCE  MORE  FOR  GOOD  LUCK  : 


SEARCH  FOR  THE  ROUTING  TEMPLATE 


lOS: 
001136 

OOOOOOG  OOOOOOG  20S: 
177672 


MOV 
BNE 
JMP 

CMPB 
BNE 
MOV 
MOV 


(R5),R5 

20S 

250$ 

#CS.R0U,C.STS(R5) 

lOS 

R5,R0UTMP 

R4,R5 


SEARCH  FOR   THE   NODE    TEMPLATE 


iOS: 

001064 

OOOOOOG  OOOOOOG  40$: 


MOV 
BNE 
JMP 

CMPB 
BNE 


(R5),R5 

40$ 

230$ 

#CS.NOD,C.STS 
30$ 


SEARCH  FOR  THE  XPT  TEilPLATE 

50$:    MOV  (R4),R4 

BNE  60$ 

001056  JMP  240$ 

OOOOOOG  OOOOOOG  60$:    CMPB  #CS.LLC ,C .STS(R4) 

BNE  50$ 

OOOOOOG  114224        CMP  C.PRM(R4)  ,#"RXPT 

BNE  50$ 


GET  NEXT  TEMPLATE 

IF  NE,  OKAY 

ELSE,  END  OF  TEMPLATES 

;  IS  THIS  THE  ROUTING  TEMPLATE  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
SAVE  TEMPLATE  ADDRESS 
COPY  START  ADDRESS  OF  TEMPLATES 


GET  NEXT  TEMPLATE 

IF  NE,  OKAY 

FLSE,  END  OF  TEMPLATES 

,  IS  THIS  A  NODE  TEMPLATE 
IF  NE,  NO  -  KEEP  LOOKING 


GET  NEXT  TEMPLATE 

IF  NE,  OKAY 

ELSE,  END  OF  TEMPLATES 

;  IS  THIS  AN  LLC  TEMPLATE 
IF  NE,  NO  -  KEEP  LOOKING 
;  IS  THIS  THE  XPT  LLC  ? 
IF  NE,  NO  ..  KEEP  LOOKING 


SEARCH  FOR  THE  ECL  TEMPLATE 


?'0$: 


MOV 

BNE 


(R3),R3 
80$ 


GET  NEXT  TEMPLATE 
IF  NE,  OKAY 


N  15 
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Mill 
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H 
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1^ 

I 

6 

D  1 
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J 
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D 
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H 
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C 
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I 

2 

D 

L 
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E 

M  ' 
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IC 
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F 
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L 
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G 
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SETPVC 

B 

8 
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M 
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C 

8 

K : 
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I 
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D 
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2 
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E 

8 
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5 

K 

3 

F 

8 

SETSVC 
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5 

L 

3 

G 

8 

B 
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H 

8 

c 

: 
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0 
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4 
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I 
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4 

SETREM 

B 

9 

J 

^ 

H 

4 

C 

9 

SEIUNT 
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■ 
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D 

9 

] 
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A 

E 

9 
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K 
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l. 

G 

9 

B 

4 

.»! 

4 

H 

9 

t 

4 

N 

A 

I 
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9 
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C 

5 
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9 
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5 

M 

9 
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5 
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9 

I   14 

G 

5 

B 

10 
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H 

<; 

C 

10 

SETX2P 

K  14 

! 

5 

D 

10 

L 

14 

SETX3P 


SHOBJ 


SHOCIR 


SHOEXE 


M  U 
N  U 
B  15 
C  15 
D  15 
E  15 
F  15 
G  15 
H  15 
1  15 
J  15 
K  15 
L  15 
M  15 
N  15 
B  16 
C  16 
D  16 
E  16 
F  16 
G  16 
H  16 
1  16 
J  16 
K  16 
L  16 
M  16 


SHOLIN 


